Discussion :

[uloaccess]

Bonjour,
Après

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Set rst = db.OpenRecordset("SELECT * FROM tequipement WHERE (code_equipement = '" & Me.TxtInitial & Me.txtnomequip & Me.txtordre & "')")
With rst
            .Edit
            !code_equipement = Me.TxtInitial & Me.txtnomequip & Me.txtordre
            e
            !nom_usuel = Me.txtnomusuel
            !etat = Me.txtetat
            !date_dacquisition = Me.txtdateacquisition
            .Update
        End With

je recois comme message:
Aucun enregistrement en cours
Je ne comprends pas.
: :
Merci

[Alexandre Sahli]

c'est que ton reccord est vide

essaye

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set rst = db.OpenRecordset("SELECT tequipement.* FROM tequipement WHERE (code_equipement = '" & Me.TxtInitial & Me.txtnomequip & Me.txtordre & "')")

A+

[pgz]

Bonjour,

A mon avis c'est que ton recordset s'ouvre sans aucun enregistrement. Tu dois donc avoir d'emblée rst.EOF. Tu pourrais le tester, d'ailleurs.
D0nc aucun enregistrement dans la table avec le code(texte?) que tu appelles.
D'après ton programme, tu ne cherches qu'un enregistrement à mettre à jour. Pourquoi pas un UpDate dans ce cas?

A+

pgz

[uloaccess]

Salut,
Je m'excuse mais mon code marche sauf que si la modification concerne l'une des valeurs de test du code sql ie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.TxtInitial

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.txtnomequip

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.txtordre

alors je recois le message: Aucun enregistrement en cours
Merci

[Alexandre Sahli]

désolé je ne comprends pas ce que tu veux dire par:

Je m'excuse mais mon code marche sauf que si la modification concerne l'une des valeurs de test du code sql ie

c'est quoi cette modification? est-ce que les 3 champs doivent être renseigné?
A+

[uloaccess]

Slt,
En un mot comment modifier la valeur sur laquelle l'on definit un critère (sql)?
Merci

[Alexandre Sahli]

parce que la valeur du critère doit être soit l'un ou l'autre des zones de texte?

[uloaccess]

Slt,

est-ce que les 3 champs doivent être renseigné?

On peut les modifier independamment.
Merci

[pgz]

En un mot comment modifier la valeur sur laquelle l'on definit un critère (sql)?

A mon avis en rédigeant le critère avec les anciennes valeurs.

pgz

[Alexandre Sahli]

ma question est la suivante

Est-ce que le "code_equipement" est composé des trois champs et est-ce que le code_equipement est bien du texte?

tu peux aussi faire un msgbox avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
msgbox "select ....."

pour visualiser ta requête sql

[uloaccess]

Slt,

Est-ce que le "code_equipement" est composé des trois champs et est-ce que le code_equipement est bien du texte?

Oui
Bien quecode_equipement ne soit pas ma clef dans la table, son contenu est obtenu par trois zones de saisie
exple:code_equipement=Vass01 ou txt1=V,txt2=ass,txt3=01.
Je l'ai fait ainsi car il y a un tri sur la 1re lettre saisie.
L'enregistrement de code_equipement est du type:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

!code_equipement=txt1&txt2&txt3

J'aurais crée une variable qui recois l'element sur lequel se trouve le critère

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SELECT * FROM tequipement WHERE (code_equipement = '" & Me.TxtInitial & Me.txtnomequip & Me.txtordre

mais ici, ce element (code_equipement) est constitué de 3 zones de saisie. Et c'est là je ne sais comment faire.
Merci

[Alexandre Sahli]

dommage que je n'aie pas vu avant

corrige ton code du sql de la façon suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Set rst = db.OpenRecordset("SELECT * FROM tequipement WHERE (code_equipement = '" & Me.TxtInitial & Me.txtnomequip & Me.txtordre & "');")

met un ; à la fin du sql!!!! c'est bête de n'avoir pas vu avant!!!!

[uloaccess]

Slt,
J'utilise Access 2k3;

met un ; à la fin du sql

Est-ce important : :

[Arkham46]

heu, le point-virgule ne va pas changer grand chose...

la clé de recherche est composé de 3 valeurs dont une au moins a été modifiée
donc il ne trouve pas d'enregistrement correspondant c'est logique

c'est ce que disais pgz d'ailleurs

A mon avis en rédigeant le critère avec les anciennes valeurs.

[Alexandre Sahli]

Attention

heu, le point-virgule ne va pas changer grand chose...

Le point virgule est indispensable pour terminer une requête sql

d'autre part une valeur à été modifiée mais si elle exite dans la table en question elle sera trouvée naturellement

A+

[pgz]

En un mot comment modifier la valeur sur laquelle l'on definit un critère (sql)?

A mon avis en rédigeant le critère avec les anciennes valeurs.

Bien quecode_equipement ne soit pas ma clef dans la table, son contenu est obtenu par trois zones de saisie

Si une clé est disponible, pourquoi ne pas l'utiliser pour appeler l'enregistrement?

pgz

[uloaccess]

Slt,

c'est ce que disais pgz d'ailleurs
Citation:
A mon avis en rédigeant le critère avec les anciennes valeurs.

Anciennes valeurs : : :

[Arkham46]

Le point virgule est indispensable pour terminer une requête sql

d'autre part une valeur à été modifiée mais si elle exite dans la table en question elle sera trouvée naturellement

Le point virgule est certes indispensable en SQL, mais dans du vba c'est pas utile.

sinon j'ai cru comprendre qu'on a affaire à un formulaire indépendant et que le but est de modifier l'enregistrement en cours en utilisant une clé de recherche qui n'est pas la clé primaire de la table.
donc effectivement si un enregistrement existe avec le code_equipement modifié il va le trouver mais j'ai l'impression que le but est de retrouver l'enregistrement correspondant à l'ancienne valeur de code_equipement.

donc :

Si une clé est disponible, pourquoi ne pas l'utiliser pour appeler l'enregistrement?

ou

A mon avis en rédigeant le critère avec les anciennes valeurs.

[Tofalu]

Attention

heu, le point-virgule ne va pas changer grand chose...

Le point virgule est indispensable pour terminer une requête sql

d'autre part une valeur à été modifiée mais si elle exite dans la table en question elle sera trouvée naturellement

A+

Le point virgule est optionnel sous Access

[uloaccess]

Slt,
Finalement, j'ai crée une variable (mavar) qui reçoit le contenu de Code_equipement après clique sur la zone de liste (la zone de liste affiche les données enregistrées). Et alors j'arrive à modifier l'une des 3 zones de saisie (txt1, txt2, txt3).
Merci à tous de votre aide.