Extreme Veteran
Beiträge: 572
| 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 |