Kombinationsfeld gotfocus Dropdown tut nicht

19/08/2008 - 11:26 von Dietmar Thesing | Report spam
Hallo liebe ExpertInnen,
stehe mal wieder vor einem kleinen Problem, zu dem die OH und Gurgeln
keine Ergebnisse gebracht haben.
Die Liste im gebundenen Kombifeld cboZVID soll bei GotFocus geöffnet
werden, wenn das gebundene Feld noch keinen Inhalt hat. Das ttut sie
aber nicht - bwz. schließt sich sofort wieder.

Wenn ich in der Hingehen-Prozedur das Requery weglasse *und* die
Bedingung in GotFocus weglasse, funktioniert es. Nur kann ich auf das
Requery nicht verzichten, weil es sich um ein Endlosformular handelt
und der Inhalt des Kombifeldes bei jedem Datensatzwechsel bzw. Wechsel
von Daten in cmbZ auch wechseln muss.

Ich hab mir jezt damit geholfen, die zwei Betretungsmethoden per keyup
(TabTaste=9) und mouseup zu nehmen und dort dropdown einzutragen.
Trotzdem würde mich interessieren, woran das eigentlich liegt und ob
es noch andere Möglichkeiten gibt, das Aufklappen beim Fokuserhalt zu
erreichen.

Herzlichen Dank für Eure Hilfe
Dietmar
A2002, WinXP, beides alle SPs.

-
Private Sub cboZVID_Enter()
Debug.Print "Form_frmSchr_UFZut; cboZVID_Enter; Prozedur beginnt"
If fcNotNoZ = True Then
glgZ = Nz(Me!cmbZ, 0)
Me!cboZVID.Requery
prpTippTit.Caption = "Mengeneinheit auswàhlen"
prpTippTit.ForeColor = 128
prpTipp.Caption = "Es können nur Einheiten angegeben werden,"
& _
"die in der Auswahlliste
vorhanden sind. "
prpTipp.ForeColor = 128
End If

Debug.Print "Form_frmSchr_UFZut; cboZVID_Enter; Prozedur endet"
End Sub

Private Sub cboZVID_GotFocus()
Debug.Print "Form_frmSchr_UFZut; cboZVID_GotFocus; Prozedur mit

dropdown beginnt "
If Nz(Me!cboZVID, "") = "" Then
Me!cboZVID.Dropdown
End If
Debug.Print "Form_frmSchr_UFZut; cboZVID_GotFocus; Prozedur mit

dropdown endet "
End Sub


Im Debug-Fenster erscheint (beim Betreten per Maus):

Form_frmSchr_UFZut; cboZVID_Enter; Prozedur beginnt
glgZ-Funktion ausgeführt, glgZ = 314
Form_frmSchr_UFZut; cboZVID_Enter; Prozedur endet
Form_frmSchr_UFZut; cboZVID_GotFocus; Prozedur mit dropdown beginnt
Form_frmSchr_UFZut; cboZVID_GotFocus; Prozedur mit dropdown endet
Form_frmSchr_UFZut; cboZVID_MouseDown
Form_frmSchr_UFZut; cboZVID_MouseUp
 

Lesen sie die antworten

#1 Michael Alexander
20/08/2008 - 09:39 | Warnen spam
Hallo Dietmar!

"Dietmar Thesing" schrieb im Newsbeitrag
news:%
Hallo liebe ExpertInnen,
stehe mal wieder vor einem kleinen Problem, zu dem die OH und Gurgeln
keine Ergebnisse gebracht haben.
Die Liste im gebundenen Kombifeld cboZVID soll bei GotFocus geöffnet
werden, wenn das gebundene Feld noch keinen Inhalt hat. Das ttut sie
aber nicht - bwz. schließt sich sofort wieder.




So sollte es gehen:

Private Sub Kombi_Enter()
Me.Kombi.Requery
If IsNull(Me.Kombi) Then
Me.Kombi.Dropdown
End If
End Sub

Enter ist das passende Ereignis.

Gruß
Michael


Wenn ich in der Hingehen-Prozedur das Requery weglasse *und* die
Bedingung in GotFocus weglasse, funktioniert es. Nur kann ich auf das
Requery nicht verzichten, weil es sich um ein Endlosformular handelt
und der Inhalt des Kombifeldes bei jedem Datensatzwechsel bzw. Wechsel
von Daten in cmbZ auch wechseln muss.

Ich hab mir jezt damit geholfen, die zwei Betretungsmethoden per keyup
(TabTaste=9) und mouseup zu nehmen und dort dropdown einzutragen.
Trotzdem würde mich interessieren, woran das eigentlich liegt und ob
es noch andere Möglichkeiten gibt, das Aufklappen beim Fokuserhalt zu
erreichen.

Herzlichen Dank für Eure Hilfe
Dietmar
A2002, WinXP, beides alle SPs.

-
Private Sub cboZVID_Enter()
Debug.Print "Form_frmSchr_UFZut; cboZVID_Enter; Prozedur beginnt"
If fcNotNoZ = True Then
glgZ = Nz(Me!cmbZ, 0)
Me!cboZVID.Requery
prpTippTit.Caption = "Mengeneinheit auswàhlen"
prpTippTit.ForeColor = 128
prpTipp.Caption = "Es können nur Einheiten angegeben werden," & _
"die in der Auswahlliste
vorhanden sind. "
prpTipp.ForeColor = 128
End If

Debug.Print "Form_frmSchr_UFZut; cboZVID_Enter; Prozedur endet"
End Sub

Private Sub cboZVID_GotFocus()
Debug.Print "Form_frmSchr_UFZut; cboZVID_GotFocus; Prozedur mit

dropdown beginnt "
If Nz(Me!cboZVID, "") = "" Then
Me!cboZVID.Dropdown
End If
Debug.Print "Form_frmSchr_UFZut; cboZVID_GotFocus; Prozedur mit

dropdown endet "
End Sub


Im Debug-Fenster erscheint (beim Betreten per Maus):

Form_frmSchr_UFZut; cboZVID_Enter; Prozedur beginnt
glgZ-Funktion ausgeführt, glgZ = 314
Form_frmSchr_UFZut; cboZVID_Enter; Prozedur endet
Form_frmSchr_UFZut; cboZVID_GotFocus; Prozedur mit dropdown beginnt
Form_frmSchr_UFZut; cboZVID_GotFocus; Prozedur mit dropdown endet
Form_frmSchr_UFZut; cboZVID_MouseDown
Form_frmSchr_UFZut; cboZVID_MouseUp

Ähnliche fragen