Filtrar datos en los campos de texto del Microsoft Access
David, perdona por no haberte calificado antes, ya lo he echo, me ha servido de bastante.
De todas formas sigo sin poder filtrar por lo dos campos siendo los dos campos de texto. Lo he probado como tu me dijiste y access, me dice lo mismo, "el tipo no coincide", te mando como lo tengo puesto(Id_Proyecto y Nom_Técnico son los dos campos de texto):
Private Sub PagosRedacción_Click()
On Error GoTo Err_PagosRedacción_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "PagosRedacción"
stLinkCriteria = "Nom_Técnico=" & "'" & CStr(Me.Nom_Técnico) & "'" And "Id_Proyecto=" & CStr(Me.Id_Proyecto)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_PagosRedacción_Click:
Exit Sub
Err_PagosRedacción_Click:
MsgBox Err.Description
Resume Exit_PagosRedacción_Click
End Sub
De todas formas sigo sin poder filtrar por lo dos campos siendo los dos campos de texto. Lo he probado como tu me dijiste y access, me dice lo mismo, "el tipo no coincide", te mando como lo tengo puesto(Id_Proyecto y Nom_Técnico son los dos campos de texto):
Private Sub PagosRedacción_Click()
On Error GoTo Err_PagosRedacción_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "PagosRedacción"
stLinkCriteria = "Nom_Técnico=" & "'" & CStr(Me.Nom_Técnico) & "'" And "Id_Proyecto=" & CStr(Me.Id_Proyecto)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_PagosRedacción_Click:
Exit Sub
Err_PagosRedacción_Click:
MsgBox Err.Description
Resume Exit_PagosRedacción_Click
End Sub
1 respuesta
Respuesta de davidth
1