Anónimo
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
Respuesta de calvuch
1
¿Qué error te da?
Indica número y descripción
Indica número y descripción
Error '13' en tiempo de ejecución
No coinciden los tipos
Y ademas e intentado dejando la variable abierta osea sin especificación de Integer, boolean etc. a la hora ejecutarlo nos funciona pero no busca los datos sale que el código no existe
No coinciden los tipos
Y ademas e intentado dejando la variable abierta osea sin especificación de Integer, boolean etc. a la hora ejecutarlo nos funciona pero no busca los datos sale que el código no existe
Prueba así:
Private Sub Command1_Click()
Dim rstco As String
rstco = InputBox("ingrese codigo A buscar", "Informacion del Sistema")
If rstco = Empty Then Exit Sub
Resto de tu código...
End Sub
Private Sub Command1_Click()
Dim rstco As String
rstco = InputBox("ingrese codigo A buscar", "Informacion del Sistema")
If rstco = Empty Then Exit Sub
Resto de tu código...
End Sub