Inputbox
Publicado por Luis Medina (15 intervenciones) el 16/03/2007 19:18:50
Como le hago para que en un inputbox me acepte letras y numeros, ya que en el que programe solo me acepta numeros, el codigo es el siguiente:
Dim dato As String
Dim campo As String
dato = InputBox("Ingresa el codigo", "busqueda")
If dato = Cancel Then
Exit Sub
Else
campo = "Codigo=" & dato
adoclientes.Recordset.MoveFirst
adoclientes.Recordset.Find campo
Dim dato As String
Dim campo As String
dato = InputBox("Ingresa el codigo", "busqueda")
If dato = Cancel Then
Exit Sub
Else
campo = "Codigo=" & dato
adoclientes.Recordset.MoveFirst
adoclientes.Recordset.Find campo
Valora esta pregunta


0