Discussion :

[psychopat]

Bonjours à tous

Utilisateur et bidouilleur occasionnel sur Access 2003, j'ai le problème suivant

J'ai une liste déroulante codeNAF qui est basée sur une table tbl_naf qui, en cas d'absence dans le liste doit ajouter la saisie. Jusque là pas de problème avec:

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub NAF_NotInList(NewData As String, Response As Integer)
If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des Code NAF ?", _
vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
DoCmd.RunSQL "INSERT INTO tbl_naf ( NAF ) SELECT """ & NewData & """;"
Response = acDataErrAdded
Else
Response = acDataErrContinue
Modifiable0.Undo
End If

Ca marche nickel, mais je souhaiterai ajouter une petite difficulté, ajouter l'intitulé du code naf qui serait demandé à l'utilisateur....

Merci pour votre aide

Pat

End Sub

[marot_r]

Tu peux procéder de plusieur façons, ce que je fais moi c'est d'ouvrir mon formulaire de saisie de ma table complémentaire ce qui permet à l'utilisateur d'entrer toutes les info nécessaires.

Sinon tu peux simplement ajouter, après avoir obtenu la confirmation de l'ajout, un inputbox qui demande le nom et ensuite utiliser ce résultat dans ton INSERT.

A+

[psychopat]

Merci pour la réponse et le MP

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 Private Sub liste_NAF_NotInList(NewData As String, Response As Integer)
If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des Code NAF ?", _
vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
Dim ReponseNAF As String
ReponseNAF = InputBox("Tapez l'intitulé du nouveau code NAF")
DoCmd.RunSQL "INSERT INTO tbl_naf ( NAF,Intitulé) SELECT """ & NewData & """,""" & ReponseNAF & """;"
Response = acDataErrAdded
Else
Response = acDataErrContinue
Modifiable0.Undo
End If
End Sub

C'est parfait comme ça

Pat

[moilou2]

Je reviens sur ton topic, peut tu expliquer à quoi sa sert concraitement et dans quel cas tu l'utilise? Parce que sa m'intéresse...

[psychopat]

Je reviens sur ton topic, peut tu expliquer à quoi sa sert concraitement et dans quel cas tu l'utilise? Parce que sa m'intéresse...

Dans mon cas, il s'agit de pouvoir ajouter un CodeNaf dans la table des Code naf (et donc dans la liste déroulante qui se trouve dans la fiche de l'entreprise) tout en restant dans la fiche de l'entreprise. En plus l'utilisateur doit renseigner l'intitulé du codeNAF

J'ai encore un petit problème à résoudre, ça marche sans problème si le champs code NAF est indépendant mais il ajoute deux entrée à ma base (un avec l'intitulé et un autre sans ) si la source du contrôle est le champs NAF de la table tbl_naf. Une idée sur la question?

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
 
Private Sub liste_NAF_NotInList(NewData As String, Response As Integer)
 
If MsgBox("Voulez-vous ajouter " & NewData & " à la liste des Code NAF ?", _
vbYesNo + vbQuestion + vbDefaultButton2, "Ajout") = vbYes Then
 
Dim ReponseNAF As String 'on crée une variable qui contiendra la chaîne tapée par l'utilisateur.
 
Do
 
ReponseNAF = InputBox("Tapez l'intitulé du nouveau code NAF") 'saisir une chaîne de caractères dans une InputBox
 
Loop Until ReponseNAF <> "" 'si l'utilisateur n'a rien tapé, on boucle et on réaffiche l'inputbox
 
DoCmd.RunSQL "INSERT INTO tbl_naf ( NAF,Intitulé) SELECT """ & NewData & """,""" & ReponseNAF & """;"
 
Response = acDataErrAdded
 
Else
 
Response = acDataErrContinue
Modifiable0.Undo
 
End If
 
End Sub