Witam,
Mam taki prosty kod:
Option Compare Database
Public Function getUserName() As String
getUserName = Environ("USERNAME")
End Function
Public Function getCompName() As String
getCompName = Environ("COMPUTERNAME")
End Function
Public Function getFormName() As String
Dim frmCurrentForm As Form
Set frmCurrentForm = Screen.ActiveForm
Dim frmName As String
getFormName = frmCurrentForm.Name
End Function
Function logi(zdarzenie As String) As String
Dim akcja As String
akcja = zdarzenie
DoCmd.SetWarnings False
Dim SQL
SQL = "INSERT INTO logi(uzytk,komputer,obiekt,zdarzenie) VALUES (getUserName(),getCompName(),getFormName(),akcja)"
DoCmd.RunSQL SQL
End Function
Kiedy wywołuję funkcję logi, podając jej parametr, jestem mimo to pytany o wartość zmiennej akcja.
Chcę, żeby ciąg znaków z przekazanego parametru trafił jako wynik do kolumny zdarzenie w poleceniu SQL.
Co poprawić w kodzie? Kiedy próbuję moją zmienną skonkatenować, to wtedy Access pyta o wartość zmiennej o nazwie takiej, jaką podałem wartość w parametrze.