How to login in a multi project surrounding via VBA?

How to login in a multi project surrounding via VBA?

Using login functions in multi project surroundings restricts the full functionality of the user administration. We recommend not to change the passwords during the runtime (if you would like to do this please contact our support (). In addition you can use a global project where you create you users. This ensures that all projects have the same users saved. At first create an online variable where you add the variable username of the system driver (SYSDRV). Please add the following code at thisproject in the I-project:
VBA Code:
public WithEvents obOLV As OnlineVariable Private Sub Project_Active() Set obOLV = thisProject.OnlineVariables.CreateOnlineVariables("onlineVar") obOLV.Add "Username" 'The Variable Username of the SYSDRV should be added obOLV.Define End Sub Private Sub obOLV_VariableChange(ByVal obVar As IVariable) Dim vVal As Variant Dim i As Integer Dim strCurrentUsername As String vVal = obVar.Value If IsError(vVal) Then Exit Sub strCurrentUsername = Projects.Item("I-project").Passwords.LoggedUsername if strCurrentUsername = "SYSTEM" Then For i = 0 To Projects.Count - 1 'In the I project the user is already logged in 'all projects except the I-project should log in If Projects.Item(i) <> "I-Project" Then If Projects.Item(i).Passwords.login(strCurrentUsername) = False Then 'if the project log in fails MsgBox "System wasn't able to log in the user " & strCurrentUsername & _ " in the project " & Projects.Item(i).Name End If End If Next i End if End Sub Private Sub Project_Inactive() obOLV.Undefine thisProject.OnlineVariables.DeleteOnlineVariables ("onlineVar") End Sub
Now as soon as you log in the user in the I-project, in all sub project the same user will logged in
Please note that this VBA sample must get altered before you can use it in your project!


This is a migrated post! Originally posted on 28.08.2007 by user sebastiank. Please be aware that information can be outdated.

    Disclaimer

    This document governs the use of our Community Forum. By registering and using the platform, you accept these conditions.

    The COPA-DATA Community Forum serves to encourage the exchange of information and experience about the zenon software between forum users respectively zenon users.

    Please mind that any published information on the Community Forum is the subjective opinion and view based on the experience and the level of knowledge of the author. COPA-DATA does not overtake any responsibility for the content and the accuracy of the shared information.

    Users of the Community Forum are encouraged to share only well-founded experiences and to point out any risks associated with the implementation of proposed solutions to problems. COPA-DATA at its absolute discretion, reserves the right to moderate the forum. In this connection COPA-DATA may remove any information containing false facts, potentially dangerous solutions, bad language or content that may insult, degrade or discriminate others. COPA-DATA may block a non-complying user from forum access if the user violated this provision.

    COPA-DATA reserves the right to change this document from time to time at own discretion.


    Ing. Punzenberger COPA-DATA GmbH
    Karolingerstraße 7b · 5020 Salzburg · Austria
    www.copadata.com