Office: Formularname an Funktion übergeben

Engeli · 13. November 2004

Hallo

Möchte gerne an eine Funktion den Formularnamen übergeben. Beim Formular öffnen übergebe ich den Formularnamen (hier frmBuchen) an die Funktion mit Namen FldNr .

Code:

Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_Form_Open

FldNr Me.Name

Exit_Form_Open:
Exit Sub

Err_Form_Open:
MsgBox Err.Description
Resume Exit_Form_Open
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

Public Function FldNr(FormularName As String)

Dim db As DAO.Database
Dim qdf As DAO.QueryDef
Dim rs As DAO.Recordset

Dim Sys_Jahr As String

'//SystemJahr, Jahr 4-stellig
Sys_Jahr = Year(Date)

Set db = CurrentDb
'//Abfrage Auflisten
Set qdf = db.QueryDefs("qryBuchenNr")

'//Parameter (Jahr) an Abfrage übergeben
qdf.Parameters!Parameter1 = Sys_Jahr

'//Recordset auf Abfrage "qryBuchenNr") öffnen
Set rs = qdf.OpenRecordset(dbOpenDynaset)

'//In Recordset Datensatz vorhanden
If Not rs.BOF And Not rs.EOF Then
'//Fortlaufende Nr vergeben.
Forms!FormularName = (rs!Nr) + 1
Else
'//Textfeld mit 1 befüllen .
Forms!FormularName = 1
End If

qdf.Close: Set qdf = Nothing
rs.Close: Set rs = Nothing
Set db = Nothing

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

Bekomme die Fehlermeldung:
Formular mit Namen FormularName nicht gefunden.
Wie übergebe ich den Namen des Formulars richtig?
Danke für Eure Hilfe.

:)

Nouba · 15. November 2004

Schreibe Forms(Formularname), um das Formular zu referenzieren. Den ermittelten Wert würde ich mir aber eher als Funktionsresultat ausgeben lassen, denn der scheint doch vom Formular unabhängig zu sein.

Engeli · 16. November 2004

Hallo Nouba

Danke für Deine Antwort. War wieder mal schusselig und habe noch den Verweis auf das Textfeld vergessen.
Code:

........

If Not rs.BOF And Not rs.EOF Then
'//Fortlaufende Nr vergeben.
Forms(FormularName)(txtNr) = (rs!Nr) + 1
Else
'//Textfeld mit 1 befüllen .
Forms(FormularName)(txtNr) = 1
End If

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

Also so sollte es funktionieren, oder habe ich was falsch verstanden? Funktionsresultat? Kann es erst heute Abend ausprobieren.
Oder vielleicht doch mit einer globalen Variablen?

Nouba · 16. November 2004

Hallo Markus,

So mag es gehen.

Einfacher ist aber doch, wenn Du jeglichen Bezug zu Formular und Textfeld wegläßt. Eine Funktion kann doch einen Wert zurückgeben.
Code:

Public Function FldNr() As Long
'...
If Not rs.BOF And Not rs.EOF Then
FldNr = rs!Nr + 1
Else
FldNr = 1
End If
'...
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Angeeigneter Stelle schreibst Du dann im Formularmodule Me!Textfeldname = FldNr.

Engeli · 16. November 2004

Hallo Nouba

So kannte ich das noch nicht. Schon wieder was gelernt. Werde es ausprobieren
Danke für den Tipp.

Office: Formularname an Funktion übergeben

Formularname an Funktion übergeben

Formularname an Funktion übergeben

Formularname an Funktion übergeben

Formularname an Funktion übergeben - Similar Threads - Formularname Funktion übergeben

Probleme mit bedingter Formatierung

neue Filter Funktion

Zahlenreihe addieren

DropDown Auswahl mit 2 Funktionen

Der Formularname "Postenliste" ist falsch geschrieben oder verweist auf ein Formular,

Der Formularname ist falsch geschrieben

Formularnamen aus Tabelle verwenden um controls anzuzeigen