Boa tarde,
uso este codigo abaixo para no evento abrir do form abrir ou não outro form, mas não consigo fechar o primeiro form no caso da abertura do segundo...
Private Sub Form_Load()
TxtRecebe = DCount("*", "ConsultaFaltantesAVista")
Dim Q As Integer
Dim Contador As Integer
Contador = DCount("*", "ConsultaFaltantesAVista")
If Me.TxtRecebe > 0 Then
Q = MsgBox("Existem " & Contador & " registros incompletos,gostaria de revisar agora", vbYesNo, "Contar Registros")
If Q = vbYes Then
DoCmd.Close
DoCmd.OpenForm "formulariofaltantesAVista"
End If
End If
End Sub
Obrigado
Fabio
uso este codigo abaixo para no evento abrir do form abrir ou não outro form, mas não consigo fechar o primeiro form no caso da abertura do segundo...
Private Sub Form_Load()
TxtRecebe = DCount("*", "ConsultaFaltantesAVista")
Dim Q As Integer
Dim Contador As Integer
Contador = DCount("*", "ConsultaFaltantesAVista")
If Me.TxtRecebe > 0 Then
Q = MsgBox("Existem " & Contador & " registros incompletos,gostaria de revisar agora", vbYesNo, "Contar Registros")
If Q = vbYes Then
DoCmd.Close
DoCmd.OpenForm "formulariofaltantesAVista"
End If
End If
End Sub
Obrigado
Fabio