SoloCodigo
Programación General => Visual Basic 6.0 e inferiores => Mensaje iniciado por: Genhi en Sábado 16 de Noviembre de 2002, 22:18
-
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
-
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®