Extreme Veteran
Beiträge: 563
 
| Hallo,
Heims - 04.05.14 13:06
In einem Kombifeld werden alle Aufträge angezeigt, beim anklicken der Auftragsnummer wird das FO_NeuerAusfaeller mit der Auftragsnummer geöffnet.
Wird nun eine Auftragsnummer von Hand eingegeben die nicht vorhanden ist
sollte eine MSG Box erscheinen mit dem Text
Sie müssen erst einen neuen Autrag anlegen
...
Private Sub Ausfaeller_AfterUpdate()
DoCmd.FindRecord "IDAuftrag", acEntire, False, , True, acCurrent, True
DoCmd.OpenForm "FO_NeuerAusfaeller", acNormal, "", "[IDAuftrag]=" & Ausfaeller, , acDialog
End Sub
Private Sub Ausfaeller_AfterUpdate()
If Nz(DLookup("IDAuftrag", "Auftragstabelle", "IDAuftrag=" & Ausfaeller),0)<> 0 Then
DoCmd.FindRecord "IDAuftrag", acEntire, False, , True, acCurrent, True
DoCmd.OpenForm "FO_NeuerAusfaeller", acNormal, "", "[IDAuftrag]=" & Ausfaeller, , acDialog
Else
MsgBox "Sie müssen erst einen neuen Autrag anlegen", vbOkOnly
End If
End Sub(Luftcode)
-----
Gruss - Peter |
MSG Box