Ir para o conteúdo
ROBERT_PZO

Acesso a base de dados lento

Mensagens Recomendadas

ROBERT_PZO    0
ROBERT_PZO

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

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


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade