Private Sub Nome_Click()
Dim stDocName As String
Dim stLinkCriteria As String
On Error GoTo Err
stDocName = "frmIdentidade"
stLinkCriteria = "[Nome]=" & Me![Nome]
stLinkCriteria = "[ID]=" & Me![ID] Esta linha dá erro
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Restore
Err:
Exit Sub
Copiei o Help da mensagem de erro:
Este erro ocorre após uma falha na execução de um evento, devido ao Microsoft Office Access não conseguir avaliar a localização da lógica do evento. Por exemplo, se a propriedade OnOpen de um formulário estiver definida como =[Field], este erro ocorre devido ao Access esperar que um nome de evento ou macro seja executado quando o evento é accionado.
Esta explicação do help não me esclareceu, alguém no grupo me pode esclarecer o que há de errado?
Luís Antunes
Dim stDocName As String
Dim stLinkCriteria As String
On Error GoTo Err
stDocName = "frmIdentidade"
stLinkCriteria = "[Nome]=" & Me![Nome]
stLinkCriteria = "[ID]=" & Me![ID] Esta linha dá erro
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.Restore
Err:
Exit Sub
Copiei o Help da mensagem de erro:
Este erro ocorre após uma falha na execução de um evento, devido ao Microsoft Office Access não conseguir avaliar a localização da lógica do evento. Por exemplo, se a propriedade OnOpen de um formulário estiver definida como =[Field], este erro ocorre devido ao Access esperar que um nome de evento ou macro seja executado quando o evento é accionado.
Esta explicação do help não me esclareceu, alguém no grupo me pode esclarecer o que há de errado?
Luís Antunes