Forums Neueste Beiträge
 

Formular Werte nach Eingabe ausfüllen

18/01/2010 - 08:52 von Armin | Report spam
Hallo,

habe eine Datenbank erstellt, mit einem Formular.

Ich kann nun am unteren Bildrand die Datensàtze durchklicken möchte
aber das bei der eingabe in das Feld Auftragsnummmer die anderen
Felder: Kurztext; Anzahl und Datum auch angezeigt werden und ich nicht
immer die 545 Datensàtze durchklicken muss.

Option Compare Database

Private Sub Auftrag_AfterUpdate()

End Sub

Private Sub Auftrag_Dirty(Cancel As Integer)

End Sub
Private Sub Kombinationsfeld18_AfterUpdate()
' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Auftrag] = '" & Me![Kombinationsfeld18] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Private Sub Abfrage_Click()
On Error GoTo Err_Abfrage_Click

Dim stDocName As String

stDocName = "Abf_AbfrageAuftràge"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_Abfrage_Click:
Exit Sub

Err_Abfrage_Click:
MsgBox Err.Description
Resume Exit_Abfrage_Click

End Sub

Private Sub Kurztext_AfterUpdate()

End Sub


Kann mir jemand sagen, was in

Private Sub Kurztext_AfterUpdate()

End Sub
herein muss um den Kurztext der im Kombinationsfeld18 eingebenen
Auftragsnummer direkt anzuzeigen?

Danke Armin
 

Lesen sie die antworten

#1 Karl Donaubauer
18/01/2010 - 09:03 | Warnen spam
Armin wrote:
...
habe eine Datenbank erstellt, mit einem Formular.

Ich kann nun am unteren Bildrand die Datensàtze durchklicken möchte
aber das bei der eingabe in das Feld Auftragsnummmer die anderen
Felder: Kurztext; Anzahl und Datum auch angezeigt werden und ich
nicht immer die 545 Datensàtze durchklicken muss.
...
Private Sub Kombinationsfeld18_AfterUpdate()
' Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Auftrag] = '" & Me![Kombinationsfeld18] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
...
Kann mir jemand sagen, was in

Private Sub Kurztext_AfterUpdate()

End Sub
herein muss um den Kurztext der im Kombinationsfeld18 eingebenen
Auftragsnummer direkt anzuzeigen?



Es ist nicht klar, was du meinst.
Mit dem Kombi suchst du im Feld "Auftrag".
Wenn ein passender gefunden wird, dann wird lt. deinem Code zum
entsprechenden Datensatz im Formular gesprungen.

Damit solltest du doch einen vollstàndigen Datensatz sehen.
Warum musst du dann noch durch die Datensàtze klicken?

Übrigens:
Statt "Kombinationsfeld18" solltest du dem Kombi einen sprechenden
Namen geben. "cboSuchAuftrag" oder dergl. Und wenn "Auftrag"
eigentlich eine Auftragsnummer ist, sollte das Feld in der Tabelle
auch so heißen.

Servus
Karl
****************
Access-FAQ: http://www.donkarl.com /// http://www.donkarl.com?NEK
.NET-Entwickler-Konferenz für Accessler 27./28.2.2010

Ähnliche fragen