Hola quien me puede ayudar con este problema
Hola estoy desarrollando una aplicación y estoy utilizando un inputbox y cuando presiono el botón cancelar me genera error, ya intente cambiando el código con uno que me encontré en esta página pero persiste el error
todo expertos si hay alguien que me pueda ayudar se lo agradecería mucho ya que soy nuevo en este cuento
variable
Dim codigo As Integer
rstco = InputBox("ingrese codigo A buscar", "Informacion del Sistema")
If rstco = 0 Then Exit Sub
With rsttabla
If .BOF And .EOF Then
MsgBox "No existe ningun registro relacionado"
Else
.MoveFirst
End If
bandera = False
Do While Not .EOF
If rstco = !cedula Then
txtced = !cedula
DTPicker1.Value = !Fecha
txtNombre = !nombre
txtDireccion = !direccion
txtCiudad = !ciudad
txtTel = !TelFijo
txtCel = !celular
rstco = True
Exit Do
End If
.MoveNext
Loop
If rstco = False Then
MsgBox "No se Encuentra el Codigo Bucado", vbExclamation
End If
End With
End Sub
todo expertos si hay alguien que me pueda ayudar se lo agradecería mucho ya que soy nuevo en este cuento
variable
Dim codigo As Integer
rstco = InputBox("ingrese codigo A buscar", "Informacion del Sistema")
If rstco = 0 Then Exit Sub
With rsttabla
If .BOF And .EOF Then
MsgBox "No existe ningun registro relacionado"
Else
.MoveFirst
End If
bandera = False
Do While Not .EOF
If rstco = !cedula Then
txtced = !cedula
DTPicker1.Value = !Fecha
txtNombre = !nombre
txtDireccion = !direccion
txtCiudad = !ciudad
txtTel = !TelFijo
txtCel = !celular
rstco = True
Exit Do
End If
.MoveNext
Loop
If rstco = False Then
MsgBox "No se Encuentra el Codigo Bucado", vbExclamation
End If
End With
End Sub
1 respuesta
Respuesta de calvuch
1