Boas.
Alguém alguma rotina de abrir e fechar caixa ?
Se tiver estou precisando de uma.
Obrigado.
Alguém alguma rotina de abrir e fechar caixa ?
Se tiver estou precisando de uma.
Obrigado.
Dim IsFechado As Boolean
IsFechado = Nz(DLookup("[booFechado]", "qyrFechado"), 0)
If IsFechado Then
MsgBox "Deve abrir o caixa", vbInformation, ""
DoCmd.OpenForm "FrmAbreCaixa"
Else
DoCmd.OpenForm "FrmCaixa"
End If