Makro, WENN dann ÖFFNEN Formular

[Benutzer0815]

Ich habe da ne n:m Beziehung. Es sind drei Tabellen und die Zwischentabelle fügt alles zusammen...

Habe jetzt diesen Code drin.... Habe sämtliche Textfelder etc. richtig benannt.

Da ich noch alles über ein Navigationsformular aufrufe, habe ich nun ein weiteres Problem. Das frmLMR_Bestand_Datum funktioniert zwar alleine, jedoch nicht in Kombination mit den Navi-Formular.... Da bleiben die Daten die ich reingeschrieben habe einfach drin stehen.. werden aber abgespeichert. Ich bräuchte dann sozusagen einen Code der sagt das bei jedem Aufruf des frmLMR_Bestand_Datum ein leeres Formular besteht....

[Benutzer0815]

zusätzlich blobbt die Fehlermeldung nur in einem neuen frmLMR_... auf...
Das Navigationsformular ist hierbei weiterhin geöffnet...

[bahasu]

Hi,

zusätzlich blobbt die Fehlermeldung nur in einem neuen frmLMR_... auf...

wie lautet die Fehlermeldung?

Wenn das Formular leer geöffnet werden soll, dann die oben angegebene Zeile tauschen gegen:
DoCmd.OpenForm "frmZwischentabelle", , , , acFormAdd

Harald

[Benutzer0815]

achso, ne da habe ich mich falsch ausgedrückt... Meine selbst erzeugte Fehlermeldung erscheint nur in Verbindung mit einem neuen und leeren Formular frmLMR_Bestand_Datum. D.h. die Fehlermeldung wird nicht im Navigationsformular, indem ich das eben genannte Formular aufrufe, angezeigt.

[Benutzer0815]

Sodele, ich habs wie ich es will.....

Code [Auswählen] Erweitern

Private Sub Datensatz_hinzufügen_Click()
                                       
With CodeContextObject
        On Error Resume Next
       
             
        If Nz(Me.Bearbeiter, "") > "" Then
        DoCmd.GoToRecord , "", acNewRec
        DoCmd.OpenForm "frmZwischentabelle", acNormal

Else
    MsgBox "Bitte das Feld Bearbeiter ausfüllen"
End If
   
   End With


End Sub