Discussion :

[yomaneoz]

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 :

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

je vai expliquer ça:
-->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:

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

ç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à.

pourriez vous me montrer où j'ai fai l'erreur?

j'aimerai bien être claire

merci d'avance !!

[yomaneoz]

svp je suis entrain de terminé mon application et il me reste presque que ce ^problème ça fait 3 jours ou plus que j'attend la reponse

[User]

Le problème de ton 1er code avec:

Code :

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

1
2
3
4
...
If DCount("*", "Courier", stLinkCrteria) > 1 Then
MsgBox "Ce numéro est déjà entré vous devez le remplacer !!"
...

vient peut-être de ton critère:

Code :

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

stLinkCriteria = "[num_dordre]=" & "'" & Me![num_d_ordre] & "'"

est-ce que le champs [num_dordre] est du type numérique ?

[yomaneoz]

Non le champ [num_dordre] de type texte !!!!!!!