Supportnet / Forum / Datenbanken

Hallo zusammen. Ich habe Folgendes Problem Ich habe eine Formular (Name A) vom Adressfelder enthalten sind. Des weiteren befindet sich dort ein Button der eine extra Formular (Name B)anzeigt mit einem MemoFeld. Jetzt möchte ich gerne wenn der Button gedrückt wird. das zu dem Datensatz ( wo man gerade steht bsp. KundNr 10) gesprungen wird und dort die Eingabe zum Datensatz KundNr10 gemacht werden kann. Die Daten liegen in einer Tabelle KUNDEN Da ich nicht so der VBA kenner bin habe ich es nur geschaft die das mir das der Aktuelle kundnr ausgibt. Bis dahin und leider nicht weiter. hoffe ihr könnt mir helfen danke. [code]Set db = CurrentDb() Set rs = db.OpenRecordset("Kunden", dbOpenSnapshot) Krit = [Kundnr] Krit = Str(Krit) [Kundnr] = Krit MsgBox (Krit) "AUSGABE KUNDNR"[/code] Gruss Sascha

So müßte es funktionieren

Private Sub Befehl105_Click()
Dim knr As Integer
Dim stLinkCriteria As String
Set db = CurrentDb()
Set rs = db.OpenRecordset("Kunden", dbOpenSnapshot)
Krit = [Kundnr]
Krit = Str(Krit)
[Kundnr] = Krit
stLinkCriteria = "[KUNDNR]=" & Me![Kundnr]
DoCmd.OpenForm "Kunden2", acNormal, , stLinkCriteria

habe es testet :-)

have fun
hans....

Hallo!

Fast alle angegebenen Codezeilen sind überflüssig. Von Hans´ Beispiel wird nur dies gebraucht:

Dim stLinkCriteria As String

stLinkCriteria = "[KUNDNR]=" & Me!Kundnr
DoCmd.OpenForm "Kunden2", acNormal,, stLinkCriteria

• Formular: wert aus dropdownmenü in variable übergeben
• Shell mehere Wörte übergeben
• array[] über echo an $variable übergeben