NUEVO
Publicado por SELDA (48 intervenciones) el 18/07/2007 21:21:55
Hola de nuevo a todos, tengo esta duda, tengo el siguiente codigo, para enviar un dato a un cuadro de texto, muy amablemente nuevo me ayudo y si funciona, pero cuando quiero poner otro campo que no sea no_ensamble me marca un error, es el siguiente : USO NO VALIDO DEL NULL ...
que es lo que tengo mal ??? o que es lo que estoy omitiendo ?
Private Sub Texto29_GotFocus()
Dim sql As Database
Dim tabla As Recordset
Dim strSQL As String
Dim strPalabrabuscada As String
strPalabrabuscada = Texto25
Set sql = DBEngine.OpenDatabase("E:\PROYECTO.mdb")
strSQL = "SELECT * FROM Tubular where Tubular.no_ensamble like '*" & strPalabrabuscada & "*'"
Set tabla = sql.OpenRecordset(strSQL, dbOpenDynaset)
Texto29.Text = tabla!DESCR
End Sub
que es lo que tengo mal ??? o que es lo que estoy omitiendo ?
Private Sub Texto29_GotFocus()
Dim sql As Database
Dim tabla As Recordset
Dim strSQL As String
Dim strPalabrabuscada As String
strPalabrabuscada = Texto25
Set sql = DBEngine.OpenDatabase("E:\PROYECTO.mdb")
strSQL = "SELECT * FROM Tubular where Tubular.no_ensamble like '*" & strPalabrabuscada & "*'"
Set tabla = sql.OpenRecordset(strSQL, dbOpenDynaset)
Texto29.Text = tabla!DESCR
End Sub
Valora esta pregunta


0