• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

ROBERT_PZO

Acesso a base de dados lento

1 mensagem neste tópico

Bom dia,

tenho o seguinte codigo, porem o BD para mysql, porem este pedaço de codigo demora muito para acessar os dados chega até a 15 segundos para obter resposta, prciso de ajuda para acelerar este proceso o que posso fazer para isso?

este é o codigo :

Private Sub Texto97_LostFocus()
Dim Respuesta As String
If Not IsNull(Me.Texto97) Then
If yaExisteCedula(Me.Texto97) Then
Me!Texto103 = DLookup("[sCE08Nombre]", "SCE08", "[sCE08Cedula]= '" & Me!Texto97 & "'")
Me!Texto105 = DLookup("[sCE08Apellido]", "SCE08", "[sCE08Cedula]= '" & Me!Texto97 & "'")
Else
Respuesta = MsgBox("Agregar la Cédula ?", vbExclamation + vbOKCancel, "ATENCION")
       If Respuesta = 1 Then
         Dim stDocName As String
         Dim stLinkCriteria As String
         stDocName = "Clientes"
         DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.GoToRecord , , acNewRec
[Forms]![Clientes]![sCE08Cedula] = Me.Texto97
Else
Cancel = -1
End If
End If
End If
End Sub

Sem mais,

Robert

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora