fonction VBA dans du SQL access

**kapotocho** · 11/03/2008, 16h45

Bonjour j'ai une fonction en VBA

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
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 :

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

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?????

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

bonjour,
pourquoi as-tu mis des guillemets dans ta requete sql déjà ?
les types des champs sont-ils bon par rapport à la fonction ?

**kapotocho** · 11/03/2008, 17h04

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

tu peut ré-expliquer
merçi

**Jean-Philippe André** · 11/03/2008, 17h14

si ton code SQL est tel quel :

Code :

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

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 ?

**kapotocho** · 11/03/2008, 17h20

le type de [Cols Durs années précéd] est bien du texte.
et le code vba est dans un module du projet

**kapotocho** · 11/03/2008, 17h52

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

**kapotocho** · 11/03/2008, 18h00

j'ai fait un petit bout de code mais ça me met toujours que majcdap est non définie dans l'expression:

Code :

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

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 :

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

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

**kapotocho** · 18/03/2008, 11h31

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

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
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

**mayekeul** · 18/03/2008, 14h12

bonjour,

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 :

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

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

**mayekeul** · 18/03/2008, 14h19

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 :

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
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

**kapotocho** · 18/03/2008, 14h19

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

**kapotocho** · 18/03/2008, 14h22

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 :

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
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

**mayekeul** · 18/03/2008, 14h59

même pas en rafraichissant le formulaire?

**kapotocho** · 18/03/2008, 15h15

c'est à dire??

**mayekeul** · 18/03/2008, 15h36

a la fin de ton code
rajoute

Code :

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

me.refresh

ou

Code :

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

me.requery

**kapotocho** · 18/03/2008, 16h15

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

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

fonction VBA dans du SQL access

Requêtes et SQL.

Discussions similaires

Partager

Partager