| lannymorc |  |
|
2008-11-26 22:32 - Respuestas: 0 - Tema nº: 2556971
Características: Windows XP Profesional nada.nada nada.
hola como estan
tengo el siguiente procedimiento para buscar un registro dentro de la tabla llamada sistemas y parte del codigo en donde hace la consulta a la tabla es el siguiente
Private Sub go_Click()
Dim rstStoreItems As ADODB.Recordset
Dim blnFound As Boolean
' This flag will allow us to know whether the item number was found
Dim fldItem As ADODB.Field
' Since we are only starting, we assume that no item number has been found
blnFound = False
' If there is no value in the Item Number text box, don't do nothing
If Me.cod_sistema = "" Then Exit Sub
Set rstStoreItems = New ADODB.Recordset
rstStoreItems.Open "SELECT * FROM sistemas WHERE cod_sistema = '" & _
Forms!sistemas1!cod_sistema & "'", _
CurrentProject.Connection, _
adOpenStatic, adLockReadOnly, adCmdText
cuando el programa llega a este punto me da error Data Type Mismatch in criteria expression...donde esta el problema en ese codigo???
si alguien pudiera ayudarme, se lo agradeceria mucho
| |
|
|
