Modul / Password

Hej Eksperter.
Har en ide som jeg gerne vil have lavet, men ved ikke om det kan lade sige gøre.

Jeg har et modul som indeholder data om selve brugeren, data som går igen i mange fomularer.

Jeg har også forskellige brugere som logger på med password.

Er det muligt at lave et module som vælger de rigtige informationer afhændig at brugeren som er logget på.

Eksempel på modul, som viser data på en bruger
USER ID LT
PASSWORD LAILA


Option Compare Database


Function IsLoaded(ByVal strFormName As String) As Integer
' Returns True if the specified form is open in Form view or Datasheet view.
   
    Const conObjStateClosed = 0
    Const conDesignView = 0
   
    If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> conObjStateClosed Then
        If FORMS(strFormName).CurrentView <> conDesignView Then
            IsLoaded = True
        End If
    End If
   
End Function
Function ShipName()
ShipName = "LAILA THERESA"
End Function
Function CallSign()
CallSign = "OUJQ2"
End Function
Function SENO()
SENO = "herning shipping a.s 55001715"
End Function
Function NationalityOfShip()
NationalityOfShip = "Danish"
End Function
Function Homeport()
Homeport = "Struer"
End Function
Function SBT()
SBT = "408"
End Function
Function GT()
GT = "2682"
End Function
Function NT()
NT = "1305"
End Function
Function Address()
Address = "herning shipping a.s"
End Function
Function address1()
address1 = "Olufsvænget 29"
End Function
Function address2()
address2 = "DK-7400 Herning"
End Function
Function address3()
address3 = "DENMARK"
End Function
Function radar1()
radar1 = "STN ATLAS"
End Function
Function Echosounder1()
Echosounder1 = "STN ATLAS"
End Function
Function Echosounder2()
Echosounder2 = "STN ATLAS"
End Function
Function radar2()
radar2 = "STN ATLAS"
End Function
Function tank1()
tank1 = "1 Port"
End Function
Function tank2()
tank2 = "1 Starboard."
End Function
Function tank3()
tank3 = "2 Port"
End Function
Function tank4()
tank4 = "2 Starboard"
End Function
Function tank5()
tank5 = "3 Port"
End Function
Function tank6()
tank6 = "3 Starboard"
End Function
Function tank7()
tank7 = "4 Port"
End Function
Function tank8()
tank8 = "4 Starboard"
End Function
Function tank9()
tank9 = "5 Port"
End Function
Function tank10()
tank10 = "5 Starboard"
End Function
Function tank11()
tank11 = "6 Port"
End Function
Function tank12()
tank12 = "6 Starboard"
End Function
Function tank13()
tank13 = "Deck Tank Port"
End Function
Function tank14()
tank14 = "Deck Tank Std."
End Function
Function tank15()
tank15 = ""
End Function
Function tank16()
tank16 = ""
End Function
Function tank17()
tank17 = ""
End Function
Function tank18()
tank18 = ""
End Function
Function tank19()
tank19 = ""
End Function
Function tank20()
tank20 = ""
End Function
Function tank21()
tank21 = ""
End Function
Function tank22()
tank22 = ""
End Function

Hilsen Jan