Office: (Office 2003) Zwei werte übergeben mit OpenArgs an ein Formular?

Zeroblue_Mike · 25. Dezember 2006

Hallo,

ich Arbeite mit diesem Code, um einen Wert zu übergeben. Jetzt habe ich aber das Problem, dass ich zwei Werte übergeben muss. Daher meine Frage, wie muss ich den Code anpassen?

Für Quellform bei klick:

Code:

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "begleischreiben_drucken"

stLinkCriteria = "[kd-nr]=" & Me![kd]
DoCmd.OpenForm stDocName, , , stLinkCriteria, , , Me.kd

Exit_Befehl28_Click:
Exit Sub

Err_Befehl28_Click:
MsgBox Err.Description
Resume Exit_Befehl28_Click
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Für Zielform, beim Feld bei Fokuserhalt:

If Not IsNull(Me.OpenArgs) Then Me.kd = Me.OpenArgs

danke Mike

:)

TommyK · 26. Dezember 2006

Hallo Mike,

lies mal das Tutorial von Smaug zu diesem Thema.
Ist dort beschrieben, Seite 4
Download hier: Grundlagen der OpenForm-Methode

Zeroblue_Mike · 26. Dezember 2006

danke für den Hinweis. Leider ist das für mich zu kompliziert. Ich dachte mir Hilft jemand bei der anpassung!

Engeli · 27. Dezember 2006

Hallo

Also dann hier einmal ein anderer Ansatz. Nicht so schwierig umzusetzen.

So übergibts Du mehrere Werte.

Code:

stDocName = "begleischreiben_drucken"

DoCmd.OpenForm stDocName, , , stLinkCriteria, , , "Formularname;Wert1;Wert2"
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann im geöffneten Formular. Z.B. im Openform Ereignis

Code:

Dim varParams As Variant
Dim strFormularName As String

'hier wird in varParams das Semikolon aus Openargs entfernt.
varParams = Split(Openargs, ";")
'Formularname in Variable schreiben.
strFormularName = (varParams(0))

'Hier kannst Du den Formularnamen vergleichen
If strFormularName "frmPersonal" Then

'hier wird der Inhalt aus varParams (Forms!Formularname!Wert1,Wert2) zusammengesetzt.
Forms(varParams(0)).Controls(varParams(1)) = Me!DeinTextfeld1
Forms(varParams(0)).Controls(varParams(2)) = Me!DeinTextfeld1

else

sonst mach was anderes .............

end if
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Noch fragen?

Zeroblue_Mike · 27. Dezember 2006

ne so ist das gut, danke !

Office: (Office 2003) Zwei werte übergeben mit OpenArgs an ein Formular?

Zwei werte übergeben mit OpenArgs an ein Formular?

Zwei werte übergeben mit OpenArgs an ein Formular?

Zwei werte übergeben mit OpenArgs an ein Formular?

Zwei werte übergeben mit OpenArgs an ein Formular? - Similar Threads - werte übergeben OpenArgs

Listen die die Werte übergeben sollen

Funktion soll Wert in Variable übergeben (VBA)

Per VBA Werte an Userform übergeben

Wert aus Formular-Feld an SQL-Statement übergeben

Haupftformular mit 2 UF werte übergeben

Werte aus Formular in das nächste übergeben

Wert an Form übergeben und Funktion starten