Boas tardes,
Venho até vós em busca de uma ajuda, eu tenho colocado no evento on click de um botão, o codigo abaixo.
O mesmo funciona sem qualquer problema, dando o resultado pretendido quando a bd está numa maquina com o Access 2007 instalado. Quando o mesmo codigo corre numa maquina com apenas as runtime libraries instaladas dá erro e a bd encerra.
A mensagem de erro é: "Execution of this aplication has stopped due to a run-time error. This aplication can't continue and will be shut down"
Alguma ideia de qual é o problema e como solucionar ?
If IsNull(Me.btValidaInduction) Then
MsgBox "Falta defenir se o induction é validado, corriga por favor"
Exit Sub
ElseIf Me.btValidaInduction = 1 And IsNull(Me.txtInductDate) Then
MsgBox "Se valida o induction a data do mesmo é necessária, corriga por favor"
Exit Sub
ElseIf IsNull(Me.cbFirma) Then
MsgBox "O campo da firma da visita está em branco, corriga por favor"
Exit Sub
Else
DoCmd.SetWarnings False ' Desabilita avisos.
DoCmd.OpenQuery "QryAdicionaVisitaTemporariaManterScreen"
DoCmd.OpenQuery "QryActualizaVisitaTemporaria"
DoCmd.SetWarnings True ' Habilita avisos.
DoCmd.GoToRecord , , acNext
End If
Muito Obrigado
Venho até vós em busca de uma ajuda, eu tenho colocado no evento on click de um botão, o codigo abaixo.
O mesmo funciona sem qualquer problema, dando o resultado pretendido quando a bd está numa maquina com o Access 2007 instalado. Quando o mesmo codigo corre numa maquina com apenas as runtime libraries instaladas dá erro e a bd encerra.
A mensagem de erro é: "Execution of this aplication has stopped due to a run-time error. This aplication can't continue and will be shut down"
Alguma ideia de qual é o problema e como solucionar ?
If IsNull(Me.btValidaInduction) Then
MsgBox "Falta defenir se o induction é validado, corriga por favor"
Exit Sub
ElseIf Me.btValidaInduction = 1 And IsNull(Me.txtInductDate) Then
MsgBox "Se valida o induction a data do mesmo é necessária, corriga por favor"
Exit Sub
ElseIf IsNull(Me.cbFirma) Then
MsgBox "O campo da firma da visita está em branco, corriga por favor"
Exit Sub
Else
DoCmd.SetWarnings False ' Desabilita avisos.
DoCmd.OpenQuery "QryAdicionaVisitaTemporariaManterScreen"
DoCmd.OpenQuery "QryActualizaVisitaTemporaria"
DoCmd.SetWarnings True ' Habilita avisos.
DoCmd.GoToRecord , , acNext
End If
Muito Obrigado