Modification du table via un formulaire

Version imprimable

Bonjour à tous

Via un formulaire contrôle Onglet je renseigne une table .
Onglet 1- nouvel enregistrement , tout fonctionne comme je le souhaite (4 zones de textes avec leur source de contrôle)
Onglet 2- Là je n'arrive pas a modifier les enregistrements !
Les codes que j'ai écris me faisais un nouvel enregistrement ou ne modifiait pas le champs.

J'ai parcouru le forum sans trouver de solution; Faut utiliser un recordset ?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 Private Sub Texte57_AfterUpdate() Dim Zone As String If IsNull(DLookup("Texte57", "enregistrement MSL", "[N° de Série] = '" & Me.Texte57 & "'")) Then MsgBox "Ce numéro de série n'est pas enregistré !", vbInformation Texte57 = "" Texte57.SetFocus Exit Sub End If Zone = DLookup("[Zone]", "enregistrement MSL", "[N° de Série] = '" & Me.Texte57 & "'") If Zone = "Armoire" Then MsgBox "Ce numéro de série est déjà enregistré dans l'armoire !", vbInformation Texte57 = "" Texte57.SetFocus Exit Sub Else ' Là je voudrais modifier la valeur "Zone"(champs) de "Enregistrement MSL"(table) soit par "Ligne" ou un textbox ' End If End Sub
Merci

Bonjour,

Déjà pour éviter cette partie du code :
Code:

1 2 3 4 5 6 If IsNull(DLookup("Texte57", "enregistrement MSL", "[N° de Série] = '" & Me.Texte57 & "'")) Then MsgBox "Ce numéro de série n'est pas enregistré !", vbInformation Texte57 = "" Texte57.SetFocus Exit Sub End If
Tu peux mettre une zone déroulante basée sur une requête :

Code:

SELECT DISTINCT [N° de Série], [Zone] FROM [enregistrement MSL] ORDER BY [N° de Série]

Tu mets sa propriété "Limiter à la liste" à Oui. Ce qui empêchera la saisie d'un n° de série qui n'existe pas ;) Tu auras en plus l'avantage de l'auto-complétion pour tes utilisateurs. Tu lui donne un nom explicite (par exemple md_numSerie) et tu paramètres les propriétés suivantes :
Colonne liée : 1
Nbre colonnes : 2
Largeurs colonnes : 2,5cm;0cm
Ensuite, sur l'évènement AfterUpdate de md_numSerie, ton code deviendra :
Code:

1 2 3 4 5 6 7 8 9 Private Sub md_numSerie_AfterUpdate() If Me.md_numSerie.column(1) = "Armoire" Then MsgBox "Ce numéro de série est déjà enregistré dans l'armoire !", vbInformation md_numSerie = "" md_numSerie.SetFocus Else ' Là je voudrais modifier la valeur "Zone"(champs) de "Enregistrement MSL"(table) soit par "Ligne" ou un textbox End If End Sub
La solution est d'exécuter une requête UPDATE :

Code:

Currentdb.Execute "UPDATE [Enregistrement MSL] SET Zone ='uneValeur' WHERE maClauseWHERE;"

Essaie par contre d'être plus explicite sur ce que tu veux faire car je ne vois pas à quoi correspond l'expression "Ligne" que tu utilises à la fin de ton explication. En plus, quelle valeur souhaites-tu mettre dans le champs Zone de ta table Enregistrement MSL et pour quel(s) critère(s) (la clause WHERE quoi, sinon c'est tous les champs Zone de ta table qui prendront la valeur, généralement il s'agit d'un ID)

01/10/2014, 13h53
ataahualpa

Bonjour

Merci pour ces infos

en fait dans le 1er onglet je fait le 1er enregistrement, création d'une ligne dans la table "référence, n°série, l'heure, Zone(lieu ou ce trouve l'article)"
dans le 2ème onglet je veux renseigner des champs supplémentaires à cet enregistrement en prenant comme critère le n° de série qui est unique, ce champs est rentré avec un lecteur code à barre. Dans cet onglet je renseigne un autre champs heure et je modifie le champs zone.
Le champs Zone n'a que 2 critères "Ligne" "Armoire"

Dans un second temps je créerais (j'essayerais ;) )un autre champs (heure1-heure2).

Merci
01/10/2014, 14h11
paidge

OK, je crois commencer à comprendre. Je résume :
Tu as une table [enregistrement MSL] avec les champs suivants :
-[N° de série] => valeur numérique, clé primaire
-[référence] => Sûrement du texte
-[heure1] => Date/heure
-[heure2] => Date/heure
-[Zone] => valeur texte avec Liste de choix limitée à "Ligne" et "Armoire".

Ensuite, tu as créé un formulaire (apparemment qui est basé sur ta table) qui contient un contrôle à onglets (avec 2 onglets).
L'onglet 1 sert à créer un enregistrement dans la table et l'onglet 2 sert à mettre à jour un enregistrement dans ta table.

C'est bien cela ?
01/10/2014, 14h20
ataahualpa

Oui , c'est bien ça
Je maîtrise mieux le VBA dans excel, je débute dans Access
01/10/2014, 14h40
paidge

Et bien il faut que ton formulaire soit indépendant, c'est-à-dire qu'il ne soit pas basé sur une source de données (table ou requête).
Sur tes onglets, il faut que tes contrôles (textbox, listes déroulantes, etc.) soit indépendants aussi (il ne faut pas qu'ils soient basés sur des champs. De toutes façons c'est impossible si ton formulaire est indépendant). Ensuite, sur chacun des 2 onglets, tu places un bouton "Valider" qui, sur son événement clic enregistrera (onglet1) ou mettra à jour (onglet2) les enregistrements.
Sur l'évènement AfterUpdate de chacun des contrôles, tu peux bien sûr mettre du code comme tu l'as fait pour vérifier la validité des données ;)

Sur le clic des boutons :
Pour insérer un enregistrement, il faut faire :

Code:

Currentdb.Execute "INSERT INTO [enregistrement MSL] ([N° de Série], [référence], [heure1], [Zone]) VALUES (" & Me.txt_numSerieCreate & ",'" & Me.txt_ref & "', #" & Me.txt_heure1 & "#,'" & Me.md_zoneCreate & "')"

Pour mettre à jour un enregistrement :

Code:

Currentdb.Execute "UPDATE [enregistrement MSL] SET heure2=#" & Me.txt_heure2 & "#, Zone ='" & Me.md_zoneModif & "' WHERE [N° de Série]=" & Me.txt_numSerieModif

Le nom des contrôles sur l'onglet1 :
txt_numSerieCreate
txt_ref
txt_heure1
md_zoneCreate (zone de liste déroulante qui contient que 2 valeurs : "Armoire" et "Ligne")

Le nom des contrôles sur l'onglet2 :
txt_numSerieModif
txt_heure2
md_zoneModif (zone de liste déroulante qui contient que 2 valeurs : "Armoire" et "Ligne")
02/10/2014, 11h04
ataahualpa

Bonjour Paige

C'est bon j'ai réussi, en modifiant la syntaxe sur UPDATE.

Code:

CurrentDb.Execute "UPDATE [enregistrement MSL] SET heure2=#" & Me.txt_heure2 & "#, Zone ='" & Me.md_zoneModif & "' WHERE [N° de Série]='" & Me.txt_numSerieModif & "'"

Merci:D