Fallo en stlinkcriteria
Publicado por Ivi (3 intervenciones) el 02/09/2009 13:52:40
Tengo dos tablas con sus correspondientes formularios:
tbEstado_Legal y tbPropietario y sus correspondientes formularios las dos con un campo común [nº registro] y una relación 1 a 1
el código que empleé es este:
-------------------------------
Private Sub CmdfmrPropietario_Click()
On Error GoTo Err_CmdfmrPropietario_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "fmrPropietario"
stLinkCriteria = "[nº registro]=" & "'" & Me![nº registro] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_CmdfmrPropietario_Click:
Exit Sub
Err_CmdfmrPropietario_Click:
MsgBox Err.Description
Resume Exit_Cmdfmrpropietario_Click
End Sub
-----------------------------------
El campo [nº registro] es de texto con una máscara de entrada de letras un números.
Gracias antes de nada
tbEstado_Legal y tbPropietario y sus correspondientes formularios las dos con un campo común [nº registro] y una relación 1 a 1
el código que empleé es este:
-------------------------------
Private Sub CmdfmrPropietario_Click()
On Error GoTo Err_CmdfmrPropietario_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "fmrPropietario"
stLinkCriteria = "[nº registro]=" & "'" & Me![nº registro] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_CmdfmrPropietario_Click:
Exit Sub
Err_CmdfmrPropietario_Click:
MsgBox Err.Description
Resume Exit_Cmdfmrpropietario_Click
End Sub
-----------------------------------
El campo [nº registro] es de texto con una máscara de entrada de letras un números.
Gracias antes de nada
Valora esta pregunta
0