Dim db As Database
Dim rs As Recordset
Dim quest, NewPTT, VRubr, Newserv
Form Load
VRubr = "EMA"
Set db = OpenDatabase(App.Path & "\Annuaire.mdb", True, False, ";pwd=19650")
' Ouverture de la base de données
Set rs = db.OpenRecordset("Annu", dbOpenTable)
Data1.DatabaseName = (App.Path & "\Annuaire.mdb")
quest = "SELECT DISTINCT Organisme, Service, PTT From Annu Where
((Organisme)LIKE " & "'" & VRubr & "')ORDER BY Service;"
Data1.RecordSource = quest
Data1.Refresh
je voudrais pouvoir modifier les données par :
Data1.Recordset.Edit
'------------Service --------
Newserv = Text1
If Newserv = "" Then
Newserv = " "
End If
Data1.Recordset("service") = Newserv
' '------------PTT-------
NewPTT = Text2
If NewPTT = "" Then
NewPTT = " "
End If
Data1.Recordset("PTT") = NewPTT
'---------- Met à jour ---------------------
Data1.Recordset.Update
Sur une table je n'ai pas de probleme, sur l'autre je recois le message
suivant:
erreur d'execution 3027, impossible de mettre à jour; La base de donnée ou
l'objet est en lecture seule....
Alors que les deux controles data sont bien en : read only = false et que
les deux tables ne sont pas en lecture seule au niveau de l'attribut.
Set db = OpenDatabase(App.Path & "Annuaire.mdb", False, False, ";pwd650")
plutôt que
Set db = OpenDatabase(App.Path & "Annuaire.mdb", True, False, ";pwd650")
en effet MSDN t'indique :
Set database = workspace.OpenDatabase (dbname, options, read-only, connect)
avec options pouvant prendre pour valeurs :
Dans le cas des espaces de travail Microsoft Jet, vous pouvez affecter les valeurs suivantes à l'argument options :
True Ouvre la base de données en mode exclusif. False (Valeur par défaut) Ouvre la base de données en mode partagé.
J'ouvre toujours de cette manière et je n'ai jamais rencontré ce type de problème. A voir ....
Mataf
Bonjour,
Je viens de tester mon App. avec les options True, False à l'ouverture de la base, je me retrouve avec le même problème dès l'instant ou je veux apporter une modification à celle-ci??
Merci tout de même
a écrit dans le message news: 1eb301c5052c$415952c0$ As tu essayé avec
Set db = OpenDatabase(App.Path & "Annuaire.mdb", False, False, ";pwd650")
plutôt que
Set db = OpenDatabase(App.Path & "Annuaire.mdb", True, False, ";pwd650")
en effet MSDN t'indique :
Set database = workspace.OpenDatabase (dbname, options, read-only, connect)
avec options pouvant prendre pour valeurs :
Dans le cas des espaces de travail Microsoft Jet, vous pouvez affecter les valeurs suivantes à l'argument options :
True Ouvre la base de données en mode exclusif. False (Valeur par défaut) Ouvre la base de données en mode partagé.
J'ouvre toujours de cette manière et je n'ai jamais rencontré ce type de problème. A voir ....
Bonjour,
Je viens de tester mon App. avec les options True, False à l'ouverture de la
base, je me retrouve avec le même problème dès l'instant ou je veux apporter
une modification à celle-ci??
Merci tout de même
<corcellef@aol.com> a écrit dans le message news:
1eb301c5052c$415952c0$a601280a@phx.gbl...
As tu essayé avec
Set db = OpenDatabase(App.Path & "Annuaire.mdb", False,
False, ";pwd650")
plutôt que
Set db = OpenDatabase(App.Path & "Annuaire.mdb", True,
False, ";pwd650")
en effet MSDN t'indique :
Set database = workspace.OpenDatabase (dbname, options,
read-only, connect)
avec options pouvant prendre pour valeurs :
Dans le cas des espaces de travail Microsoft Jet, vous
pouvez affecter les valeurs suivantes à l'argument
options :
True Ouvre la base de données en mode exclusif.
False (Valeur par défaut) Ouvre la base de données en
mode partagé.
J'ouvre toujours de cette manière et je n'ai jamais
rencontré ce type de problème. A voir ....
Je viens de tester mon App. avec les options True, False à l'ouverture de la base, je me retrouve avec le même problème dès l'instant ou je veux apporter une modification à celle-ci??
Merci tout de même
a écrit dans le message news: 1eb301c5052c$415952c0$ As tu essayé avec
Set db = OpenDatabase(App.Path & "Annuaire.mdb", False, False, ";pwd650")
plutôt que
Set db = OpenDatabase(App.Path & "Annuaire.mdb", True, False, ";pwd650")
en effet MSDN t'indique :
Set database = workspace.OpenDatabase (dbname, options, read-only, connect)
avec options pouvant prendre pour valeurs :
Dans le cas des espaces de travail Microsoft Jet, vous pouvez affecter les valeurs suivantes à l'argument options :
True Ouvre la base de données en mode exclusif. False (Valeur par défaut) Ouvre la base de données en mode partagé.
J'ouvre toujours de cette manière et je n'ai jamais rencontré ce type de problème. A voir ....
