Voici la proc=E9dure que je lance =E0 l'ouverture de mon=20
formulaire:
Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
For Each Control In Me.Controls
If Control.ControlType <> acCommandButton Then
Control.Locked =3D True
Control.Enabled =3D False
Else
End If
Next
End Sub
Jusque l=E0, tout va bien, mais lorsque je d=E9bloque mes=20
champs pour une modification ou un ajout dans mes=20
enregistrements et que je reverrouille le tout:
Private Sub Valider_Click()
On Error Resume Next
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, ,=20
acMenuVer70
Me.AllowAdditions =3D False
For Each Control In Me.Controls
If Control.ControlType <> acCommandButton Then
Control.Locked =3D True
Control.Enabled =3D False
Else
End If
Next
End Sub
L=E0, mes onglets se bloquent et je ne peux plus acc=E9der aux=20
diff=E9rentes parties du formulaire.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond
Bonsoir
Je te conseillerais de ne pas utiliser le mot control en tant que objet tu vas créer des interférences. On Error Resume Next Dim Ctl As Control For Each Ctl In Me.Controls If Ctl.ControlType <> acCommandButton Then Ctl.Locked = True Ctl.Enabled = False Else End If Next
Les onglets sont des contrôles acTabCtl. dans ton cas il faut le tester aussi pour ne pas le bloquer. If Ctl .ControlType <> acCommandButton Or Ctl .ControlType <> acTabCtl Then
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Kyvu" a écrit dans le message de news:051901c37e1f$acd12720$ Bonsoir,
Voici la procédure que je lance à l'ouverture de mon formulaire:
Private Sub Form_Open(Cancel As Integer) On Error Resume Next For Each Control In Me.Controls If Control.ControlType <> acCommandButton Then Control.Locked = True Control.Enabled = False Else End If Next End Sub
Jusque là, tout va bien, mais lorsque je débloque mes champs pour une modification ou un ajout dans mes enregistrements et que je reverrouille le tout:
Private Sub Valider_Click() On Error Resume Next DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Me.AllowAdditions = False For Each Control In Me.Controls If Control.ControlType <> acCommandButton Then Control.Locked = True Control.Enabled = False Else End If Next End Sub
Là, mes onglets se bloquent et je ne peux plus accéder aux différentes parties du formulaire.
Qu'ai-je mal fait???
Merci pour votre aide.
@micalement.
Kyvu On Line!
Bonsoir
Je te conseillerais de ne pas utiliser le mot control en tant que objet tu
vas créer des interférences.
On Error Resume Next
Dim Ctl As Control
For Each Ctl In Me.Controls
If Ctl.ControlType <> acCommandButton Then
Ctl.Locked = True
Ctl.Enabled = False
Else
End If
Next
Les onglets sont des contrôles acTabCtl. dans ton cas il faut le tester
aussi pour ne pas le bloquer.
If Ctl .ControlType <> acCommandButton Or Ctl .ControlType <> acTabCtl Then
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"Kyvu" <kyvutran@lemel.fr> a écrit dans le message de
news:051901c37e1f$acd12720$a301280a@phx.gbl...
Bonsoir,
Voici la procédure que je lance à l'ouverture de mon
formulaire:
Private Sub Form_Open(Cancel As Integer)
On Error Resume Next
For Each Control In Me.Controls
If Control.ControlType <> acCommandButton Then
Control.Locked = True
Control.Enabled = False
Else
End If
Next
End Sub
Jusque là, tout va bien, mais lorsque je débloque mes
champs pour une modification ou un ajout dans mes
enregistrements et que je reverrouille le tout:
Private Sub Valider_Click()
On Error Resume Next
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, ,
acMenuVer70
Me.AllowAdditions = False
For Each Control In Me.Controls
If Control.ControlType <> acCommandButton Then
Control.Locked = True
Control.Enabled = False
Else
End If
Next
End Sub
Là, mes onglets se bloquent et je ne peux plus accéder aux
différentes parties du formulaire.
Je te conseillerais de ne pas utiliser le mot control en tant que objet tu vas créer des interférences. On Error Resume Next Dim Ctl As Control For Each Ctl In Me.Controls If Ctl.ControlType <> acCommandButton Then Ctl.Locked = True Ctl.Enabled = False Else End If Next
Les onglets sont des contrôles acTabCtl. dans ton cas il faut le tester aussi pour ne pas le bloquer. If Ctl .ControlType <> acCommandButton Or Ctl .ControlType <> acTabCtl Then
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"Kyvu" a écrit dans le message de news:051901c37e1f$acd12720$ Bonsoir,
Voici la procédure que je lance à l'ouverture de mon formulaire:
Private Sub Form_Open(Cancel As Integer) On Error Resume Next For Each Control In Me.Controls If Control.ControlType <> acCommandButton Then Control.Locked = True Control.Enabled = False Else End If Next End Sub
Jusque là, tout va bien, mais lorsque je débloque mes champs pour une modification ou un ajout dans mes enregistrements et que je reverrouille le tout:
Private Sub Valider_Click() On Error Resume Next DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Me.AllowAdditions = False For Each Control In Me.Controls If Control.ControlType <> acCommandButton Then Control.Locked = True Control.Enabled = False Else End If Next End Sub
Là, mes onglets se bloquent et je ne peux plus accéder aux différentes parties du formulaire.
