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
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
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
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