Quellcode macht Ärger!

Computer: Software & Programmierung Microsoft Access
#1

Hallo liebe Experten,

ich habe ein Problem, das ich näher beschreiben möchte. Zuerst der Code:

Private Sub AllgemeinListe_DblClick(Cancel As Integer)
’ Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[MandNr] = " & Str(Nz(Me![AllgemeinListe], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Es geht darum, dass wenn ich im Kombinationsfeld doppleklicke, dann sollen die Infos im Formular sich anpassen und die Infos desjenigen Kunden wiedergeben. Das Problem ist, dass es eigentlich zwei Primärschlüßel gibt (nicht nur MandNr sondern auch JA)! Wie kann ich denn die zusätzliche Info in diesen Code einbauen, dass sich die Daten auf Basis von zwei Primärschlüßel anpassen?

Habe auch schon Folgendes probiert und es tut sich nichts:

rs.FindFirst "[MandNr] = " & Str(Nz(Me![AllgemeinListe], 0)) & " AND [JA] = " & Str(Nz(Me![AllgemeinListe], 0))

Ich danke euch im Voraus!

Beste Grüße
Igor

#2

Hi,

ich gehe davon aus, dass in deinem Feld AllgemeineListe in der ersten Spalte (interne Nr. = 0) die Mandantennummer steht und in der 2. Spalte (interne Nr. = 1) der Ja-Wert.

Rufe deinen Suchbefehl so auf:
rs.FindFirst "[MandNr] = " & Str(Nz(Me![AllgemeinListe], 0)) &
" AND [JA] = " & Str(Nz(Me![AllgemeinListe].column(1), 0))

Gruß EPa

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Hi,

danke dir für die schnelle Antwort.

Ich habe es ausprobiert aber es tut sich nichts. Beim Doppelklick passiert einfach nichts. Liegt es daran, dass das Feld [JA] ein Datum ist?

SOS, bin verzweifelt :wink:

Beste Grüße
Igor

#4

Hi, wenn es sich um ein Datum beim Ja handelt, dann musst du es auch noch umformatieren ins amerikanische Format:

… Ja =#" & format(me.Feldname.Column(1),„mm/dd/yyyy“) &"#"

Jetzt sehe ich den Anfang von der Mail nicht, und weiß vor Schreck, gar nicht mehr, wie dein Feld hieß. Setze bei Feldname doch bitte den richtigen Bezug ein.

Gruß EPa

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#5

Hi,

Mensch ich danke dir, aber irgendwie ist da noch der Wurm drin. Ich bekomme einen Laufzeitenfehler 3464

Code:
’ Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst „[MandNr] = '“ & Me![AllgemeinListe].Column(0) & „’
AND [JA] = #“ & Format(Me.[AllgemeinListe].Column
(2), „mm/dd/yyyy“) & „#“
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

;( Herzlichen Dank!

Igor

#6

Ich danke dir,

ich habs jetzt :wink:

Private Sub AllgemeinListe_DblClick(Cancel As Integer)
’ Den mit dem Steuerelement übereinstimmenden Datensatz suchen.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst „[MandNr] = " & Str(Nz(Me![AllgemeinListe], 0)) & " AND [JA] = #“ & Format(Me![AllgemeinListe].Column(2), „yyyy-mm-dd“) & "# "
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Vielen Dank! Du hast mir sehr geholfen!

Gruß
Igor