salut
je vai vous expliquer mon probleme:
j'ai un formulaire où ya un champ nommé numéro d'ordre je voudrai qu'en y saisissant un numéro déjà entré un message d'alerte viendra me l'annoncer
je suis arrivée à écrire ces lignes de code :
je vai expliquer ça:
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 Private Sub Commande16_Click() Dim stLinkCriteria As String stLinkCriteria = "[num_dordre]=" & "'" & Me![num_d'ordre] & "'" If (Nz(Me.num_d_ordre, "") = "") Or (Nz(Me.nom_courier, "") = "") Or (Nz(Me.date_dajout, "") = "") Or (Nz(Me.nom_demande, "") = "") Then MsgBox "un champ ne doit pas être vide" Else If DCount("*", "Courier", stLinkCrteria) > 1 Then MsgBox "Ce numéro est déjà entré vous devez le remplacer !!" Else DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Select Case Me.nom_demande.ListIndex Case 0 DoCmd.OpenForm "CIP_STAG1" DoCmd.GoToRecord , , acNewRec Case 1 DoCmd.OpenForm "Festival" DoCmd.GoToRecord , , acNewRec Case 2 DoCmd.OpenForm "Location_Matériel" DoCmd.GoToRecord , , acNewRec Case 3 DoCmd.OpenForm "prestation_service" DoCmd.GoToRecord , , acNewRec Case 4 DoCmd.OpenForm "CIP_STAG1" DoCmd.GoToRecord , , acNewRec End Select End If End If End Sub
-->premièrement j'ai mis une condition qui me vérifie s'il y' en a un champ vide le sauvegarde ne va pas s'accomplir
-->aprés si le numéro d'ordre est un doublon encore une fois on ne va pas sauvegarder
-->et finalement et s'il y en a pas les conditions pré-sitées on va sauvegarder selon des conditions aussi :
--> il y'a en bas dans ce formulaire une liste déroulante où on va choisir quel formulaire on va ouvrir pour continuer la saisie.
j'ai opérer la première condition et la troisième seulement comme ça:
ça a marché mais quond j'ai ajouté la deuxiéme ça me donne toujours le message d'alerte qui annonce que le numéro existe déjà.
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 Private Sub Commande16_Click() Dim stLinkCriteria As String stLinkCriteria = "[num_dordre]=" & "'" & Me![num_d'ordre] & "'" If (Nz(Me.num_d_ordre, "") = "") Or (Nz(Me.nom_courier, "") = "") Or (Nz(Me.date_dajout, "") = "") Or (Nz(Me.nom_demande, "") = "") Then MsgBox "un champ ne doit pas être vide" Else DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 Select Case Me.nom_demande.ListIndex Case 0 DoCmd.OpenForm "CIP_STAG1" DoCmd.GoToRecord , , acNewRec Case 1 DoCmd.OpenForm "Festival" DoCmd.GoToRecord , , acNewRec Case 2 DoCmd.OpenForm "Location_Matériel" DoCmd.GoToRecord , , acNewRec Case 3 DoCmd.OpenForm "prestation_service" DoCmd.GoToRecord , , acNewRec Case 4 DoCmd.OpenForm "CIP_STAG1" DoCmd.GoToRecord , , acNewRec End Select End If End Sub
pourriez vous me montrer où j'ai fai l'erreur?
j'aimerai bien être claire
merci d'avance !!![]()
Partager