MSG Box
PeterDoering
Gesendet: 06.05.14 01:37
Betreff: RE: MSG Box



Extreme Veteran

Beitr├Ąge: 532
50025

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
Top of the page Bottom of the page