Information générale
Catégorie:
Codage, syntaxe et commandes
>>How could I enable/disable the Menu item(s).
>>
>>Eg: frmMDIForm.mnuTransaction.Enable = True (will turn on)
>>
>>But I have store all the menu items name in a Table, so that
>>I can use a loop to assign the access rights to the items.
>>
>>My Table contain the following fields:
>>ItemName Normal Manager
>>---------------------------------------------------------
>>frmMDIForm.mnuTransaction.Enable True True
>>frmMDIForm.mnuReport.Enable False True
>>
>>If a user having the MANAGER rights, I would use a WHILE loop
>>to set the Menu item to True/False.
>>
>>I tried the following code, but couldn't achieve it.
>>
>>Trim(rsAcessTable!ItemName) & " = " & ("!" & strAccessCode)
>>
>>strAccessCode = stores (NORMAL or MANAGER) taken from Staff Table.
>>
>>In VB6, is there something like &strAccessCode (like in VFP, will
>>run the content).
>
>Try the above code without frmMDIForm.
>Just:
>mnuTransaction.Enable = True
>
>There is no macro substitution in VB. Here is an example of simulated macro substitution:
>
>Dim oCtrl As ScriptControl
>Dim vVal As Variant, msText As String
> Set oCtrl = New ScriptControl
> oCtrl.Language = "VBScript"
> msText = "Now"
> vVal = oCtrl.Eval(msText)
> MsgBox vVal
I can't leave out the "frmMDIForm", as I am setting the access rights
on the MDI form from another form.
Do I need to add any Reference? As it has an error "User-defined type not
defined".
Any other simpler way? Thanks.
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement