Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Verknüpfung Hauptformular und Unterformular via Button
zurück: Hyperlink öffnen bzw. im Formular einfügen weiter: Dokument von Vorlage erstellen und sofort speichern. Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Feedback Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
Smmmile
Access Kenner (ohne VBA)


Verfasst am:
27. Apr 2007, 19:09
Rufname:

Verknüpfung Hauptformular und Unterformular via Button - Verknüpfung Hauptformular und Unterformular via Button

Nach oben
       Version: Office 2003

Hallo Ihrs,

ich habe zwei Tabellen mit eine 1:n-Verknüpfung über den Assistenten via Button verknüpft (Verknüpfte Formulare).
Bei neu anzulegenden Datensätzen im UF wird allerings nicht das verknüpfte Feld angezeigt.. Kann so also, ohne Verknüpfung, keinen Datensatz anlegen.
Woran kann das liegen?
Gruß,

Smmmile
jens05
Moderator


Verfasst am:
27. Apr 2007, 21:04
Rufname:
Wohnort: ~~~~~


AW: Vrknüpfung Hauptformular und Unterformular via Button - AW: Vrknüpfung Hauptformular und Unterformular via Button

Nach oben
       Version: Office 2003

Hallo,
eigentlich sollte der Wert automatisch im Ufo gesetzt werden.
Sind die Eigenschaften "Verknüpfen von" und "Verknüpfen nach" richtig gesetzt?

Hast du die Beziehung im Beziehungsfenster definiert?

_________________
mfg jens05 Wink
Smmmile
Access Kenner (ohne VBA)


Verfasst am:
29. Apr 2007, 15:55
Rufname:

AW: Verknüpfung Hauptformular und Unterformular via Button - AW: Verknüpfung Hauptformular und Unterformular via Button

Nach oben
       Version: Office 2003

Kann ich mir denn überhaupt "verknüpfen von" und "verknüpfen nach" beim Verbinden über einen Button anzeigen lassen?
Access schreibt mir folgenden Code in das HF
Code:
Sub Form_Current()
On Error GoTo Form_Current_Err
    If ChildFormIsOpen() Then FilterChildForm
Form_Current_Exit:
    Exit Sub
Form_Current_Err:
    MsgBox Error$
    Resume Form_Current_Exit
End Sub

Sub Auftragsplanung_Click()
On Error GoTo Auftragsplanung_Click_Err
    If ChildFormIsOpen() Then
        CloseChildForm
      Else
        OpenChildForm
        FilterChildForm
    End If
Auftragsplanung_Click_Exit:
    Exit Sub
Auftragsplanung_Click_Err:
    MsgBox Error$
    Resume Auftragsplanung_Click_Exit
End Sub

Private Sub FilterChildForm()
    If Me.NewRecord Then
        Forms![Vertrieb, Planung].DataEntry = True
      Else
        Forms![Vertrieb, Planung].Filter = "[Vertriebs-Nr] = " & Me![Vertriebs-Nr]
        Forms![Vertrieb, Planung].FilterOn = True
    End If
End Sub

Private Sub OpenChildForm()
    DoCmd.OpenForm "Vertrieb, Planung"
    If Not Me.[Auftragsplanung] Then Me![Auftragsplanung] = True
End Sub

Private Sub CloseChildForm()
    DoCmd.Close acForm, "Vertrieb, Planung"
    If Me![Auftragsplanung] Then Me![Auftragsplanung] = False
End Sub

Private Function ChildFormIsOpen()
    ChildFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, _
                       "Vertrieb, Planung") And acObjStateOpen) <> False
End Function
... und diesen Code in das verknüpfte Formular:
Code:
Sub Form_Load()
On Error GoTo Form_Load_Err
    If ParentFormIsOpen() Then Forms![Vertrieb]!Auftragsplanung = True
Form_Load_Exit:
    Exit Sub
Form_Load_Err:
    MsgBox Error$
    Resume Form_Load_Exit
End Sub

Sub Form_Unload(Cancel As Integer)
On Error GoTo Form_Unload_Err
    If ParentFormIsOpen() Then Forms![Vertrieb]!Auftragsplanung = False
Form_Unload_Exit:
    Exit Sub
Form_Unload_Err:
    MsgBox Error$
    Resume Form_Unload_Exit
End Sub

Private Function ParentFormIsOpen()
    ParentFormIsOpen = (SysCmd(acSysCmdGetObjectState, acForm, "Vertrieb") And acObjStateOpen) <> False
End Function
Im verknüpften Formular steht zudem beispielsweise bei Filter [Vertriebs-Nr] = 15098
Für bereits bestehende Datensätze funktioniert das auch, aber bei neu anzulegenden Datensätzen bleibt das verknüpfte Feld (hier "Vertriebs-Nr") leer..
Bin ein wenig verzweifelt..
jens05
Moderator


Verfasst am:
29. Apr 2007, 20:01
Rufname:
Wohnort: ~~~~~

AW: Verknüpfung Hauptformular und Unterformular via Button - AW: Verknüpfung Hauptformular und Unterformular via Button

Nach oben
       Version: Office 2003

Hallo,
das ist aber keine klassisches UF ;)
In deinem UF - Form, könntest du folgendes im Ereignis "Vor Eingabe" plazieren.

Code:
Private Sub Form_BeforeInsert(Cancel As Integer)
    If Nz(Me![Vertriebs-Nr], 0) = 0 OR Nz(Me![Vertriebs-Nr])  = "" Then
        Me![Vertriebs-Nr] = Forms!Vertrieb![Vertriebs-Nr]
    End If
End Sub

_________________
mfg jens05 Wink
Smmmile
Access Kenner (ohne VBA)


Verfasst am:
30. Apr 2007, 08:56
Rufname:

AW: Verknüpfung Hauptformular und Unterformular via Button - AW: Verknüpfung Hauptformular und Unterformular via Button

Nach oben
       Version: Office 2003

Hallo,

lass ich dann die anderen von mir aufgeführten Codes trotzdem stehen?
Gruß,

Smmmile
jens05
Moderator


Verfasst am:
30. Apr 2007, 09:19
Rufname:
Wohnort: ~~~~~

AW: Verknüpfung Hauptformular und Unterformular via Button - AW: Verknüpfung Hauptformular und Unterformular via Button

Nach oben
       Version: Office 2003

Hallo,
ja, deinen vorhandenen Code stehen lassen, und den neuen hinzufügen. ;)

_________________
mfg jens05 Wink
Smmmile
Access Kenner (ohne VBA)


Verfasst am:
30. Apr 2007, 09:27
Rufname:


AW: Verknüpfung Hauptformular und Unterformular via Button - AW: Verknüpfung Hauptformular und Unterformular via Button

Nach oben
       Version: Office 2003

Vielen Dank! Funktioniert - wie immer.. Very Happy
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Frage zur Verknüpfung mit Excel Tabelle 1 toymachine 779 15. Feb 2007, 22:33
stpimi Frage zur Verknüpfung mit Excel Tabelle
Keine neuen Beiträge Access Tabellen & Abfragen: Einstellungen von ODBC Verknüpfung verändern 0 Gast 2009 09. Feb 2007, 11:15
Gast Einstellungen von ODBC Verknüpfung verändern
Keine neuen Beiträge Access Tabellen & Abfragen: Button druckt Serienbrief aus die 2. 1 dorian_fahrenheit 493 31. Jan 2007, 16:35
Willi Wipp Button druckt Serienbrief aus die 2.
Keine neuen Beiträge Access Tabellen & Abfragen: Verknüpfung mit beginnendem Wert 2 Julia 1983 485 19. Dez 2006, 12:23
Julia 1983 Verknüpfung mit beginnendem Wert
Keine neuen Beiträge Access Tabellen & Abfragen: Verknüpfung, Import oder notfalls Kopie von Web-Dateien 0 Rhett 1099 10. Nov 2006, 12:20
Rhett Verknüpfung, Import oder notfalls Kopie von Web-Dateien
Keine neuen Beiträge Access Tabellen & Abfragen: Verknüpfung über Teilstring 3 cosw 890 27. Okt 2006, 01:16
Willi Wipp Verknüpfung über Teilstring
Keine neuen Beiträge Access Tabellen & Abfragen: Problem: Parameter-Abfrage aus einem Unterformular ausführen 3 bettina_vt 3427 12. Mai 2006, 15:44
bettina_vt Problem: Parameter-Abfrage aus einem Unterformular ausführen
Keine neuen Beiträge Access Tabellen & Abfragen: bei externer Verknüpfung falscher Datentyp korrigieren 0 tom_r 997 11. Mai 2006, 13:17
tom_r bei externer Verknüpfung falscher Datentyp korrigieren
Keine neuen Beiträge Access Tabellen & Abfragen: Verknüpfung Excel mit Access immer wieder fehlerhaft 2 simsy 697 28. Apr 2006, 10:32
simsy Verknüpfung Excel mit Access immer wieder fehlerhaft
Keine neuen Beiträge Access Tabellen & Abfragen: Möglichkeiten der Berechnung via Matrizen in Access 5 jsf 1089 05. Apr 2006, 14:13
stpimi Möglichkeiten der Berechnung via Matrizen in Access
Keine neuen Beiträge Access Tabellen & Abfragen: Löschabfrage als Button 2 Freund 981 10. März 2006, 15:16
Freund Löschabfrage als Button
Keine neuen Beiträge Access Tabellen & Abfragen: Verknüpfung mit Excel-Tabelle: Wie Felddatentyp einstellen?? 1 BlueDolphin 2203 08. März 2006, 20:38
steffen0815 Verknüpfung mit Excel-Tabelle: Wie Felddatentyp einstellen??
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Word VBA