OVH Cloud OVH Cloud

parcourir les requête à la recherche du verrouillage

2 réponses
Avatar
Gold
Bonjour,
Dans mon programme je n'agis sur mes données qu'a partir de code vba.

Toutes mes requête doivent donc avoir les propriétés

verrouillage = aucun
type de recordet = instantané

Comment parcourir toutes les requêtes du programme (+-1000) et imposer ces
deux propriétés.

Merci d'avance

amicalement Jacques

2 réponses

Avatar
Eric
Bonjour,

Avec ce bout de code, tu devrais y arriver.
(Affichage des infos sur les propriétés Verrouillage et Type de
Recordset avant et après modification dans la fenêtre Exécution)

Sub zz()
On Error Resume Next
Dim qry As DAO.QueryDef, prp As DAO.Property
For Each qry In CurrentDb.QueryDefs
If Left(qry.Name, 1) <> "~" Then
Debug.Print qry.Name
For Each prp In qry.Properties
If prp.Name = "RecordLocks" Then
Debug.Print prp.Name & _
" Ancienne valeur =" & prp.Value;
prp.Value = 0
Debug.Print " Nouvelle valeur =" & prp.Value
End If
If prp.Name = "RecordsetType" Then
Debug.Print prp.Name & _
" Ancienne valeur =" & prp.Value;
prp.Value = 2
Debug.Print " Nouvelle valeur =" & prp.Value
End If
Next prp
End If
Next qry
End Sub

Bonjour,
Dans mon programme je n'agis sur mes données qu'a partir de code vba.

Toutes mes requête doivent donc avoir les propriétés

verrouillage = aucun
type de recordet = instantané

Comment parcourir toutes les requêtes du programme (+-1000) et imposer ces
deux propriétés.

Merci d'avance

amicalement Jacques




--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
Gold
un grand merci