fonction VBA dans du SQL access

Version imprimable

Bonjour j'ai une fonction en VBA

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Public Function majcdap(cdap As String, cd As Integer, an As Double) As String
       an = an Mod 100
    Select Case cd
    Case 0
        majcdap = cdap
    Case 1
        If cdap = 0 Then
            majcdap = cdap
        Else: majcdap = "0" & an & "," & cdap
        End If
    Case Else
        If cdap = 0 Then
             majcdap = cd & "." & "0" & an
         Else: majcdap = cd & "." & "0" & an & "," & cdap
         End If
    End Select
End Function

et un requête SQL qui l'execute

Code:

UPDATE essemaj SET essemaj.[Cols Durs années précéd] = majcdap([«cdap»],[«cd»],[«an»]), essemaj.[A déclarer] = No, essemaj.CD = 0;

ça me met la fonction majcdap non définie dans l'expression
Vous voyez où est l'erreur?????

11/03/2008, 16h53
Jean-Philippe André

:aie:bonjour,
pourquoi as-tu mis des guillemets dans ta requete sql déjà ?
les types des champs sont-ils bon par rapport à la fonction ?
11/03/2008, 17h04
kapotocho

quand j'ai été cherchez ma fonction dans la bibliothéque ça me la notée comme ça avec des guillemets.ils ont quels incidences???
"les types des champs sont-ils bon par rapport à la fonction ?" j'ai pas tout compris...dsl:oops: tu peut ré-expliquer
merçi
11/03/2008, 17h14
Jean-Philippe André

si ton code SQL est tel quel :

Code:

UPDATE essemaj SET essemaj.[Cols Durs années précéd] = majcdap([«cdap»],[«cd»],[«an»]), essemaj.[A déclarer] = No, essemaj.CD = 0;

tu dois avoir soit des champs de nom [«cdap»],[«cd»] et [«an»] soit des inputbox qui te demanderont de quoi il s'agit,
de plus, la fonction majcdap retourne pour le moment une chaine de caractère, est-ce bien le type de [Cols Durs années précéd] ?
enfin, le code VBA est-il dans un module VBA du projet ?
11/03/2008, 17h20
kapotocho

le type de [Cols Durs années précéd] est bien du texte.
et le code vba est dans un module du projet
11/03/2008, 17h52
kapotocho

Est-ce que à votre avis je pourrais passer par un variable du genre strSql qui executerez la requete.......
le soucis c'est que je sais pas trop comment ecrire ce bout de code
11/03/2008, 18h00
kapotocho
j'ai fait un petit bout de code mais ça me met toujours que majcdap est non définie dans l'expression:
Code:

1 2 3 4 Function strSql() strSql = "UPDATE essemaj SET essemaj.[Cols Durs années précéd] = majcdap(cdap,cd,an), essemaj.[A déclarer] = No, essemaj.CD = 0" DoCmd.RunSQL (strSql) End Function
la requete devient:

Code:

UPDATE essemaj SET essemaj.[Cols Durs années précéd] = strSql( ), essemaj.[A déclarer] = No, essemaj.CD = 0;

comme je n'arrivait pas à trouver de solution je suis passer par un bouton dans un formulaire executant le code suivant:

Code:

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
Option Compare Database
 
Private Sub Commande0_Click()
On Error GoTo Err_Commande0_Click
 an = an Mod 100
Dim dbs As Database, rs As DAO.Recordset
Set dbs = CurrentDb()
Set rs = dbs.OpenRecordset("essemaj", dbOpenTable)
    Select Case cd
    Case 0
        majcdap = cdap
    Case 1
        If cdap = 0 Then
            majcdap = cdap
        Else: majcdap = "0" & an & "," & cdap
        End If
    Case Else
        If cdap = 0 Then
             majcdap = cd & "." & "0" & an
         Else: majcdap = cd & "." & "0" & an & "," & cdap
         End If
    End Select
 
For j = 0 To 99
        rs.MoveFirst
        rs.Edit
        rs![Cols Durs années précéd] = majcdap
        rs![cd] = 0
        rs![A déclarer] = No
        rs.Update
 
 Next
        rs.Edit
        rs.Update
        rs.Close
 
    DoCmd.Close
 
Exit_Commande0_Click:
    Exit Sub
 
Err_Commande0_Click:
    MsgBox Err.Description
    Resume Exit_Commande0_Click
   End Sub

mais ça ne met pas ma table "essemaj" à jour
quelqu'un peut m'aider???
merçi d'avance

18/03/2008, 14h12
mayekeul

bonjour,

Citation:

Bonjour j'ai une fonction en VBA

Code :
Public Function majcdap(cdap As String, cd As Integer, an As Double) As String
an = an Mod 100
Select Case cd
Case 0
majcdap = cdap
Case 1
If cdap = 0 Then
majcdap = cdap
Else: majcdap = "0" & an & "," & cdap
End If
Case Else
If cdap = 0 Then
majcdap = cd & "." & "0" & an
Else: majcdap = cd & "." & "0" & an & "," & cdap
End If
End Select
End Functionet un requête SQL qui l'execute

Code :
UPDATE essemaj SET essemaj.[Cols Durs années précéd] = majcdap([«cdap»],[«cd»],[«an»]), essemaj.[A déclarer] = No, essemaj.CD = 0;
ça me met la fonction majcdap non définie dans l'expression
Vous voyez où est l'erreur?????

pour l'appel de la fonction, les crochets doivent etre enlevé
donc à écrire comme ceci

Code:

UPDATE essemaj SET essemaj.[Cols Durs années précéd] = majcdap(«cdap»,«cd»,«an»), essemaj.[A déclarer] = No, essemaj.CD = 0;

du moins je pense!

mayekeul:aie:

Citation:

Envoyé par kapotocho

comme je n'arrivait pas à trouver de solution je suis passer par un bouton dans un formulaire executant le code suivant:

Code:

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
Option Compare Database
 
Private Sub Commande0_Click()
On Error GoTo Err_Commande0_Click
 an = an Mod 100
Dim dbs As Database, rs As DAO.Recordset
Set dbs = CurrentDb()
Set rs = dbs.OpenRecordset("essemaj", dbOpenTable)
    Select Case cd
    Case 0
        majcdap = cdap
    Case 1
        If cdap = 0 Then
            majcdap = cdap
        Else: majcdap = "0" & an & "," & cdap
        End If
    Case Else
        If cdap = 0 Then
             majcdap = cd & "." & "0" & an
         Else: majcdap = cd & "." & "0" & an & "," & cdap
         End If
    End Select
 
For j = 0 To 99
        rs.MoveFirst
        rs.Edit
        rs![Cols Durs années précéd] = majcdap
        rs![cd] = 0
        rs![A déclarer] = No
        rs.Update
 
 Next
        rs.Edit
        rs.Update
        rs.Close
 
    DoCmd.Close
 
Exit_Commande0_Click:
    Exit Sub
 
Err_Commande0_Click:
    MsgBox Err.Description
    Resume Exit_Commande0_Click
   End Sub

mais ça ne met pas ma table "essemaj" à jour
quelqu'un peut m'aider???
merçi d'avance

Apparemment, cette fonction n'update que le premier record ... 99 fois!

non?

mayekeul:aie:

18/03/2008, 14h19
kapotocho

j'ai déjà essayer et ça me met toujours "fonction majcdap non définie dans l'expression"

ouais pour la boucle je me suis trompé en programmant, je l'ai supprimée mais ça ne met toujours pas ma table à jour

Code:

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
Private Sub Commande0_Click()
On Error GoTo Err_Commande0_Click
 an = an Mod 100
Dim dbs As Database, rs As DAO.Recordset
Set dbs = CurrentDb()
Set rs = dbs.OpenRecordset("essemaj", dbOpenTable)
    Select Case cd
    Case 0
        majcdap = cdap
    Case 1
        If cdap = 0 Then
            majcdap = cdap
        Else: majcdap = "0" & an & "," & cdap
        End If
    Case Else
        If cdap = 0 Then
             majcdap = cd & "." & "0" & an
         Else: majcdap = cd & "." & "0" & an & "," & cdap
         End If
    End Select
 
        rs.MoveFirst
        rs.Edit
        rs![Cols Durs années précéd] = majcdap
        rs![cd] = 0
        rs![A déclarer] = No
        rs.Update
        rs.Close
 
    DoCmd.Close
 
Exit_Commande0_Click:
    Exit Sub
 
Err_Commande0_Click:
    MsgBox Err.Description
    Resume Exit_Commande0_Click
   End Sub

18/03/2008, 14h59
mayekeul

même pas en rafraichissant le formulaire?
18/03/2008, 15h15
kapotocho

c'est à dire??:roll:
18/03/2008, 15h36
mayekeul

a la fin de ton code
rajoute

Code:

me.refresh

ou

Code:

me.requery
18/03/2008, 16h15
kapotocho

j'ai enfin trouvé
merçi a tous pour votre aide:king:

Private Sub Commande0_Click()
On Error GoTo Err_Commande0_Click
an = an Mod 100
sql = "update essemaj set essemaj.[Cols Durs années précéd] = majcdap(essemaj![Cols Durs années précéd], essemaj![cd], essemaj![Année]),essemaj.[A déclarer] = No,essemaj.[cd] = 0;"

DoCmd.RunSQL sql
DoCmd.Close
Dim stDocName As String

Exit_Commande0_Click:
Exit Sub

Err_Commande0_Click:
MsgBox Err.Description
Resume Exit_Commande0_Click
End Sub