Discussion :

[marcuscircus]

bonjour, voila se que j'ai essayer de faire, mais malheureusement sans succes, si quelqu'un voit l'erreur (aucune erreur indiquée par access, mais aucun numéro affiché dans mon champ indépendant de mon etat [numbv] ) :

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
Private Sub Entête_coordonnées_client_Format(Cancel As Integer, FormatCount As Integer)
 
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("select * from parametre")
 
  Me.NumBV = 0
 
  Me.NumBV = DLookup("numbvimp", "bv", "codecli= [CodeCli]  and codetech= [CodeTech]  and date= [DateProchVisit] ")
  If Me.NumBV = 0 Then
    NumBV = rs("Max(numBVimp)")
    DoCmd.RunSQL "Insert into BV values (me.CodeCli,me.numbv ,me.CodeTech,me.DateProchVisit_par_Mois)" 'exécute la requète
    DoCmd.RunSQL "Insert into Parametre values (max(numbv)+1)"   'exécute la requète
  End If
 
End Sub

[marcuscircus]

Voila, j'ai modifié mon code, maintenant il me met une erreur sur le ligne

Code :

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

numbv= rs("max(numbvimp)")

cette erreur apparait seulement si aucun numéro n'est trouvé, si un numéro est trouvé, il va me mettre le même numéro sur toutes les pages de l'état au lieu d'en mettre un différent pour chaque page


voila tout le code utilisé :

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
Private Sub Entête_coordonnées_client_Format(Cancel As Integer, FormatCount As Integer)
 
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("select * from parametre")
  Me.NumBV = 0
  ' Me.Page = 1         Ces 2 lignes sont utilisés
  ' SetCount Me        pour faire autre chose !!!!
 
  Me.NumBV = Nz(DLookup("numbvimp", "bv", "codecli= [CodeCli]  and codetech= [CodeTech]  and datebv= [DateProchVisit]"), 0)
  If Me.NumBV = 0 Then
    NumBV = rs("Max(numBVimp)")
    DoCmd.RunSQL "Insert into BV values (me.CodeCli,me.numbv ,me.CodeTech,me.DateProchVisit_par_Mois)" 'exécute la requète
    DoCmd.RunSQL "Insert into Parametre values (max(numbv)+1)"   'exécute la requète
  End If
 
End Sub

[Invité]

Bonjour

C'est parce que tu n'as pas max(numbvimp) dans ta requête, dans celle-ci tu prends tous les champs tel que sans faire de calcul ou autre.

Il faut que tu modifies ta requête SQL en conséquence.

Starec

[marcuscircus]

Donc dans se cas plus besoin de record set, je selectionne seulement le max(numbvimp) puis je l'affecte a numbv ?

[marcuscircus]

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
Private Sub Entête_coordonnées_client_Format(Cancel As Integer, FormatCount As Integer)
 
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("select max(numbvimp) from parametre")
  Me.NumBV = 0
  ' Me.Page = 1         Ces 2 lignes sont utilisés
  ' SetCount Me        pour faire autre chose !!!!
 
  Me.NumBV = Nz(DLookup("numbvimp", "bv", "codecli= [CodeCli]  and codetech= [CodeTech]  and datebv= [DateProchVisit]"), 0)
  If Me.NumBV = 0 Then
    NumBV = rs("numBVimp")
    DoCmd.RunSQL "Insert into BV values (me.CodeCli,me.numbv ,me.CodeTech,me.DateProchVisit_par_Mois)" 'exécute la requète
    DoCmd.RunSQL "Insert into Parametre values (max(numbv)+1)"   'exécute la requète
  End If
 
End Sub

Voila le changement, mais l'erreur se trouve maintenant au niveau de :

Code :

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

NumBV = rs("numBVimp")

=> erreur d'execution '3265' : Element non trouvé dans cette collection