Suchen Datensatz im Hauptformular vom Unterformular aus

16/12/2009 - 11:29 von Lupus Goebel | Report spam
Hallöschen,

von einem Unterformular aus suche ich den richtigen Datensatz im
Hauptformular, von dort dann suche ich den richtigen Datensatz im
Unterformular.

ich suche so:
\\\
Private Sub sucheEventNr_AfterUpdate()
Dim strSuche As Long
Dim strKDsuche As Long
strSuche = Me.sucheEventNr

' <abfEventsuche> ist eine gespeicherte verknüpfte Abfrage
' zwischen tblEvent und tblKunde.
' Damit werden die notwenige ID's ermittelt

strKDsuche = Nz(DLookup("ID_KD","abfEventsuche","ID =" & strSuche & ""))

If strKDsuche = 0 Then
MsgBox "Event-Nr ist nicht vorhanden"
Exit Sub
Else
Forms![frmKundenstamm]!ID.SetFocus
DoCmd.FindRecord (strKDsuche)
DoCmd.GoToControl ("frmEvent")
DoCmd.GoToControl ("ID")
DoCmd.FindRecord (strSuche)
End If
DoCmd.GoToControl ("sucheEventNr")
Me.sucheEventNr = Null
End Sub
///

IM Hauptformular frmKundenstamm möchte ich jedoch das Feld <ID> auf
nicht sichtbar stellen. Dann bekomme ich bei der Annweisung:
<Forms![frmKundenstamm]!ID.SetFocus > eine Fehlermeldung, logisch.

Wie kann ich dennoch suchen und finden?


MfG - Lupus Goebel
Der Sumpf- Morasthobbybastler und Anfaenger mit
Wissensdurst (http://www.lupusdw.de http://foto.lupusdw.de)
Urlaub macht man in Irland: http://www.eaglesnest-bb.com/
 

Lesen sie die antworten

#1 Peter Doering
16/12/2009 - 11:36 | Warnen spam
Hallo,

Lupus Goebel wrote:

von einem Unterformular aus suche ich den richtigen Datensatz im
Hauptformular, von dort dann suche ich den richtigen Datensatz im
Unterformular.



Aha.

ich suche so:
\\\
Private Sub sucheEventNr_AfterUpdate()
Dim strSuche As Long
Dim strKDsuche As Long
strSuche = Me.sucheEventNr

' <abfEventsuche> ist eine gespeicherte verknüpfte Abfrage
' zwischen tblEvent und tblKunde.
' Damit werden die notwenige ID's ermittelt

strKDsuche = Nz(DLookup("ID_KD","abfEventsuche","ID =" & strSuche & ""))

If strKDsuche = 0 Then
MsgBox "Event-Nr ist nicht vorhanden"
Exit Sub
Else
Forms![frmKundenstamm]!ID.SetFocus
DoCmd.FindRecord (strKDsuche)
DoCmd.GoToControl ("frmEvent")
DoCmd.GoToControl ("ID")
DoCmd.FindRecord (strSuche)
End If
DoCmd.GoToControl ("sucheEventNr")
Me.sucheEventNr = Null
End Sub
///

IM Hauptformular frmKundenstamm möchte ich jedoch das Feld <ID> auf
nicht sichtbar stellen. Dann bekomme ich bei der Annweisung:
<Forms![frmKundenstamm]!ID.SetFocus > eine Fehlermeldung, logisch.



Ein unsichtbares Feld kann den Fokus nicht bekommen. Entweder du stellst es
sichtbar, oder legst den Fokus auf ein anderes Feld.

Ich sehe im Code aber nirgens was bez. ID.Visible.

Wie kann ich dennoch suchen und finden?



Beschreib mal in Worten, wie der Ablauf sein soll.

Gruss - Peter

Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com

Ähnliche fragen