• Domingo 22 de Diciembre de 2024, 20:15

Autor Tema:  Re: Error 3131  (Leído 1647 veces)

Genhi

  • Nuevo Miembro
  • *
  • Mensajes: 5
    • Ver Perfil
Re: Error 3131
« en: Sábado 16 de Noviembre de 2002, 22:18 »
0
Hola alguien me puede decir porque al ejecutar el sig. proc. me genera error 3131:
Private Sub TxtCod_KeyPress(KeyAscii As Integer)
    If KeyAscii = 13 Then
        Dim dbsLaboratorio11 As DAO.Database
        Set dbsLaboratorio11 = OpenDatabase("C:Proyecto NuevoDatosLaboratorio11.mdb")
        Dim rPacient As Recordset
        Dim VarBuscar As String
        Dim strSQL As String
        VarBuscar = Val(TxtCod.Text) '"Busqueda por Código"
        If VarBuscar = "" Then
            MsgBox "No ha Introducido el Código"
            Exit Sub
        End If
        strSQL = "SELECT [CodiPaciente] FROM Pacientes" _
        & "WHERE CodiPaciente =`VarBuscar´"
        Set rPacient = dbsLaboratorio11.OpenRecordset(strSQL)
        rstPacient!Cédula = TxtCedpacient.Text
        TxtNompacient.Text = rstPacient!Nombre
        TxtEdad.Text = rstPacient!Edad
        TxtSexo.Text = rstPacient!Sexo
        TxtTalla.Text = rstPacient!Talla
        TxtPeso.Text = rstPacient!Peso
        TxtDirec.Text = rstPacient!Dirección
        TxtTlf.Text = rstPacient!Teléfono
        CboTipopacient.Text = rstPacient!TipoPaciente
        TxtFecha.Text = rstPacient!Fecha
   End If
End Sub

Kapeta®

  • Nuevo Miembro
  • *
  • Mensajes: 20
    • Ver Perfil
Error 3131
« Respuesta #1 en: Domingo 17 de Noviembre de 2002, 02:02 »
0
Intenta revisar en la ayuda de Visual que pasa con el error 3131 si es visual estudio este trae Cd's de ayuda puedes ver hay., lo otro asi dando tu codigo no es la idea hay que intentar pensar un poquito por quer se produce ese erro no te des por vencido tan rapido investiga y si no da resultado preguntalo..,

Ok..

No te enojes pero es la mejor manera de Aprender!!., te lo digo por experiencia propia.. intentalo y ya veras!!!

Atte.
            Kapeta®