Zou iemand mij als beginnende access-gebruiker kunnen helpen? Dit is wat ik uiteindelijk wil bereiken: http://www.access-programmers.co.uk/forums/showthread.php?t=16083
Ik heb een formulier, genaamd 'M&C zaken' waarop ik die buttons heb die ik actief/inactief wil maken, aan de hand van het formulier 'Keuzelijst'. In de keuzelijst heb ik aangegeven met checkboxes welke button actief of inactief moet zijn. De buttons op het formulier M&C zaken heb ik tags gegeven met naam: 'NORMAL'.
Hoe moet ik de code nu veranderen?
En waar moet ik dat implementeren bij de standaardcode voor het klikken op een button die doorverwijst naar een nieuw formulier?
In groen de code zoals die nu is:
Private Sub Command94_Click()
On Error GoTo Err_Command94_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "ABC"
stLinkCriteria = "[ID ABC]=" & Me![ID]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command94_Click:
Exit Sub
Err_Command94_Click:
MsgBox Err.Description
Resume Exit_Command94_Click
End Sub
En dit is de code voor het actief/inactief maken van de buttons. Hoe krijg ik die in het bovenstaande geimplementeerd?
Dim MyControl As Control
If Me.chkTest.Value = True Then
For Each MyControl In Form.Controls
If MyControl.Properties("Tag") Like "[Name of your tag here]" Then
MyControl.Visible = True
End If
Next
Else
For Each MyControl In Form.Controls
If MyControl.Properties("Tag") Like "[Name of your tag here]" Then
MyControl.Visible = False
End If
Next
Endif
Ik heb een formulier, genaamd 'M&C zaken' waarop ik die buttons heb die ik actief/inactief wil maken, aan de hand van het formulier 'Keuzelijst'. In de keuzelijst heb ik aangegeven met checkboxes welke button actief of inactief moet zijn. De buttons op het formulier M&C zaken heb ik tags gegeven met naam: 'NORMAL'.
Hoe moet ik de code nu veranderen?
En waar moet ik dat implementeren bij de standaardcode voor het klikken op een button die doorverwijst naar een nieuw formulier?
In groen de code zoals die nu is:
Private Sub Command94_Click()
On Error GoTo Err_Command94_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "ABC"
stLinkCriteria = "[ID ABC]=" & Me![ID]
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Command94_Click:
Exit Sub
Err_Command94_Click:
MsgBox Err.Description
Resume Exit_Command94_Click
End Sub
En dit is de code voor het actief/inactief maken van de buttons. Hoe krijg ik die in het bovenstaande geimplementeerd?
Dim MyControl As Control
If Me.chkTest.Value = True Then
For Each MyControl In Form.Controls
If MyControl.Properties("Tag") Like "[Name of your tag here]" Then
MyControl.Visible = True
End If
Next
Else
For Each MyControl In Form.Controls
If MyControl.Properties("Tag") Like "[Name of your tag here]" Then
MyControl.Visible = False
End If
Next
Endif