ajout d'enregistrement +

**jamesys** · 05/09/2005, 09h34

salut à tous!
j'ai besoin de votre aide à vous tous, merci.
je réalise une application sur la gestion des stocks dans une entreprise. je fais mon application sur visual basic via access. Dans cette application je dois gerer du materiel et des fournisseur qui livre ce materiel. Dans ce cas j'ai déclaré 3 tables: materiel, fournisseur, livrer.
Dans materiel j'ai: num_materiel, nom_materiel, reference, type, stock.
dans fournisseur j'ai : num_four, nom, telephone, fax, ville
dans livrer j'ai: num_materiel, num_four, date_livraison
Donc dans ce cas si on fait une requête sur materiel, fournisseur, et livrer, on doit pouvoir afficher les fournisseurs qui ont fournis du materiel.

Le problème c'est que lors de l'enregistrement d'un nouveau materiel, si le fournisseur qui le livre est déjà enregistré dans la base, comment faire pour ne pas l'ajouter dans la liste des fournisseurs mais plutot rentrer le materiel qu'il a livré, et lorsque je vais applelé mes trois tables, je pourrais bel et bien voir que c'est le fournisseur(celui que je n'ai pas rajouté dans la base) qui l'a livré.
Le code que j'ai reussi a faire est celui-là:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
Set cn = OpenDatabase(App.Path & "\DSI.mdb")
Set rs = cn.OpenRecordset("materiel")
 
rs.AddNew
 
rs("designation") = designation.Text
rs("numero_serie") = serie.Text
rs("nom_materiel") = passif.Text
rs("type") = Combo1.Text
rs("reference") = reference.Text
rs("stock") = stock.Text
rs("marque") = marque.Text
rs("prix_ht") = prix.Text
' je recupère le num_materiel pour l'ajouter dans la table fournir
no_materiel = rs("num_materiel")
 
rs.Update
 
Set rs = cn.OpenRecordset("fournisseur")
' si le nom que je vais mettre est déjà enregistré dans la base de donnée alors je recupère seulement son numero et je n'ajoute pas son nom
If LCase(fournisseur.Text) = LCase(rs("nom_fournisseur")) Then
no_fournisseur = rs("num_fournisseur")
 
Else
' s'il son nom n'est pas à enregistrer alors là je peux enregistrer tous ces champs
rs.AddNew
 
rs("nom_fournisseur") = fournisseur.Text
rs("telephone") = telephone.Text
rs("fax") = fax.Text
rs("ville") = ville.Text
rs("email") = email.Text
rs("site") = site.Text
no_fournisseur = rs("num_fournisseur")
 
rs.Update
 
End If
 
Set rs = cn.OpenRecordset("fournir")
' j'ajoute dans la table fournir
rs.AddNew
 
rs("num_fournisseur") = no_fournisseur
rs("num_materiel") = no_materiel
 
 
rs.Update

Ce code fonctionne, mais le problème est que ça reconnait que le 1er enregistrement. Au bout du 2eme il ne fait plus de comparaison de nom
Merci!

**bidou** · 05/09/2005, 10h01

J'ai rien compris

Tu veux dire que si tu utilises ton code dux fois il n'évalue pas

Code :

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

If LCase(fournisseur.Text) = LCase(rs("nom_fournisseur")) Then

?????

**jamesys** · 05/09/2005, 10h06

non c'est pas du tout ça. ça veut dire que si on n'a deux fournisseur déjà enregistré dans la base. il ne va reconnaitre que le nom du premier fournisseur. en d'autres termes si j'essaye de rajouter le nom du fournisseur qui est enrégistré en 1ere position dans la base, il va faire la comparaison va executer le code et ne va pas rajouter son nom, mais par contre si j'essaye avec le 2eme nom. il va outrepasser la comparaison et va quand meme rajouter le nom de celui-ci

**bidou** · 05/09/2005, 10h10

ah oui, ca c'est normal puisque tu ne fais pas de find sur le recordset des fournisseurs

**jamesys** · 05/09/2005, 10h21

un find? j'ai encore essayé avec une boucle tant que du genre

Code :

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

1
2
3
4
5
6
7
8
 
While rs.EOF
If LCase(fournisseur.Text) = LCase(rs("nom_fournisseur")) Then
no_fournisseur = rs("num_fournisseur")
End If
rs.MoveNext
Wend
mais là j'ai eu des bugs. peux tu me montrer comment on n'utilise le find? stp

**bidou** · 05/09/2005, 10h34

Code :

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

1
2
3
4
5
6
7
8
9
Set rs = cn.OpenRecordset("fournisseur")
With rs
   .FindFirst fournisseur.Text
   If .NoMatch Then
      'code le fournisseur n'existe pas
   Else
      'code le fournisseur existe
   End If
End With

**jamesys** · 05/09/2005, 10h48

et là j'ai un message d'erreur :on me dit opération non autorisé pour ce type d'objet

**bidou** · 05/09/2005, 10h54

il faut ouvrir le recordset en snapshot ou en dynaset

**jamesys** · 05/09/2005, 11h02

excuse moi de dire ça. mais pour moi ça ressemble a du chinois, j'ai jamais entendu parler ni essayer. si tu me montraot comment on n'execute cela je serai vraiment content
merci

**bidou** · 05/09/2005, 11h13

il suffit de lire l'aide

Code :

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

Set rs = cn.OpenRecordset("fournisseur",dbOpenSnapshot)

**jamesys** · 05/09/2005, 11h19

ça ne passe toujours pas, on me dis que le contenu de fournisseur.text n'est pas reconnu

**bidou** · 05/09/2005, 11h26

c'est quoi le message et le numéro d'erreur ?

**jamesys** · 05/09/2005, 11h39

numero 3070 le message est: le moteur de la base de données microsft jet ne reconnait pas 'contenudefournisseur.text' en tant que nom de champs ou expression correct. l'ami essaye un peu de voir le code là et tu me dis qu'est qui ne va pas

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
 
Set cn = OpenDatabase(App.Path & "\DSI.mdb")
Set rs = cn.OpenRecordset("fournisseur")
 
If LCase(fournisseur.Text) <> LCase(rs("nom_fournisseur")) Then
 
rs.AddNew
 
rs("nom_fournisseur") = fournisseur.Text
rs("telephone") = telephone.Text
rs("fax") = fax.Text
rs("ville") = ville.Text
rs("email") = email.Text
rs("site") = site.Text
no_fournisseur = rs("num_fournisseur")
 
rs.Update
 
Else
 
While rs.EOF
If LCase(fournisseur.Text) = LCase(rs("nom_fournisseur")) Then
no_fournisseur = rs("num_fournisseur")
End If
rs.MoveNext
Wend
 
End If
 
Set rs = cn.OpenRecordset("fournir")
rs.AddNew
 
rs("num_fournisseur") = no_fournisseur
rs("num_materiel") = no_materiel
 
rs.Update

pourtant avec

Code :

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

1
2
 
while rs.EOF

j'ai une lecture complète de la table.
Mais là j'ai un message qui dit: vous ne pouvez pas ajouter ou modifier un enregistrement car l'enregistrement associé est requis dans la table materiel et on plus il ajoute toujours le materiel que j'ai rentré mais qui est déjà enregistré dans la base de données

**bidou** · 05/09/2005, 11h49

il est curieux ce code. Tu fais un AddNew avant d'avoir vérifier dans toute la table si le fournisseur n'existe pas.

Pour le findfirst, c'est

Code :

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

.FindFirst "nom_fournisseur= '" & strCountry & "'" & fournisseur.Text

enfin tu as peut être un problême de relation si le num_materiel n'existe pas quand tu fais

Code :

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

1
2
3
4
5
6
rs.AddNew 
 
rs("num_fournisseur") = no_fournisseur 
rs("num_materiel") = no_materiel 
 
rs.Update

**jamesys** · 05/09/2005, 12h09

qu'est ce que tu me propose. pour la verification avant le addnew

**jamesys** · 05/09/2005, 13h17

J'attends toujours une reponse de votre part

**ridan** · 05/09/2005, 14h10

Salut,

Si la méthode findfirst ne te plait pas, tu peux essayer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
    Set cn = OpenDatabase(App.Path + "\DSI.mdb")
    Set rs = cn.OpenRecordset("select * from fournisseur where nom = '" & fournisseur.Text & "'")
    If Not rs.EOF Then
        'Le fournisseur existe déjà
        MsgBox "Le fournisseur existe déjà"
    Else
        'Ajout du nouveau fournisseur
        rs.AddNew
 
        rs("nom_fournisseur") = fournisseur.Text
        rs("telephone") = telephone.Text
        rs("fax") = fax.Text
        rs("ville") = ville.Text
        rs("email") = email.Text
        rs("site") = site.Text
        no_fournisseur = rs("num_fournisseur")
 
        rs.Update
    End If

N'hésite pas à consulter les cours & tutoriels sur le site :

http://vb.developpez.com/cours/

**jamesys** · 05/09/2005, 17h18

Merci je sans que je suis dans la bonne voie. je vous ferais signe pour vous prevenir ce qui ne va pas

**jamesys** · 05/09/2005, 17h58

Je vous remercie enormement ça passe comme sur des roulettes.
mais pouvez vous me dire pourquoi mon code ne passait pas. pourtant quand je l'analyse je constate qu'il n'a pas de problème. svp dites moi qu'est ce qui ne vas pas

**ridan** · 05/09/2005, 18h13

Dans ton code :

Code :

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

Set rs = cn.OpenRecordset("fournisseur")

Là, ton recordset pointe sur le premier enregistrement (première ligne de la table fournisseur), or dans ton cas il faut tester sur tous les enregistrements juqu'à trouver (ou non) le fournisseur. Pour cela, il existe deux solutions :

+ FindFirst : proposée par bidou
+ Tester avec une requête

Bon courage

P.S : Un petit click sur le bouton résolu en bas à gauche

ajout d'enregistrement +

VB 6 et antérieur

Discussions similaires

Partager

Partager