returnere formularnavnet

on error:

osv.
Dim Err As String, Form As String
Form = "getformname()"<--- findes der en indbygget funktion eller skal man selv lave den
Err = "Fejlkode x1"
Call report_error(Form, Err)

Hvad kan det bruges til.    ;oD

Hvorfor jeg spør, er fordi sammenfaldene navne er skyld i fejl.

Jeg skal bruge det til min errorlog

men jeg fandt følgende i vbA hjælpefilen:
Public Sub CheckProducts()
   
    Dim intState As Integer
    Dim intCurrentType As Integer
    Dim strCurrentName As String

    intCurrentType = Application.CurrentObjectType
    strCurrentName = Application.CurrentObjectName

End Sub

Me.name

Sorry, I never mentioned that it was from a function

Cant see your code but you can send Me (the current form) as a parameter to your function. Otherwise I will need to see some more code so I have an idea as to what exactly you are doing.

Function NameOf Funcntion(TheForm as form)
debug.print TheForm.Name
End Function

i solved it with this:
    Dim strCurrentName As String
    strCurrentName = Application.CurrentObjectName

great :o)

but thanx, anyway :O)

dm013>If you have an asnwer then you can close the question now :o)

Screen.activeform.name giver også det aktuelle formularnavn