Feldwert mit VBA setzen

Computer: Software & Programmierung Microsoft Access
#1

Hallo zusammen!

Mal wieder ein Problem.
Ich will eine Maske aufrufen um einen neuen Datensatz anzufügen.
Zwei der Felder sollen allerdings beim Öffnen schon eingesetzt werden. Ich habe bislang einen Button hinter dem folgender Code steckt:

**If lastname = „Admin“ Then

Dim stLinkCriteria As String

DoCmd.openForm „FNAchweis_neu“, , , , acFormAdd, acDialog, stLinkCriteria

MsgBox „HALLO“
Else
MsgBox „Keine Berechtigung“
End If**

Leider habe ich damit herausgefunden, dass der Code nach dem Öffnen der Maske erst beim Verlassen derselbigen ausgeführt wird.
Wie kann ich denn aus der neu geöffneten Maske einen Wert aus der alten übernehmen?

Grüße

#2

Hallo,

fragt sich halt noch, welche Werte und woher die kommen, bzw. wo die stehen…

.
.
DoCmd.OpenForm „FNAchweis_neu“, , , , acFormAdd, acDialog, „;“ & Me!Textfeld1 & „;“ & Me!Textfeld2
.
.

und im Form „FNAchweis_neu“:

Sub Form_Load()
If Not Isnull(Me.Openargs) Then
Me!Feld1=Split(Me.Openargs,";")(1)
Me!Feld2=Split(Me.Openargs,";")(2)
End If
End Sub

Viele Grüße vom Bodensee
Franz , DF6GL

PS: Feedback erwünscht!

#3

Servus!

Das ist ja gut.
Also kann ich mit openArgs einfach Parameter übergeben?
Vielen Dank!

Grüße

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

#4

Hallo,

nur zur Ergänzung:

Du kannst auch in einem Modul eine öffentliche Variable anlegen.

Public stTextvariable As String

Was Du da reinschreibst (stTextvariable = Me![Text1]), bleibt über die ganze Datenbanksitzung erhalten.

MfG,

ujk