Discussion :

[tAKAmAkA]

Bonjour à tous,

Le code suivant ne m'écrit pas les valeurs des champs Oui/Non.
Des Input box me demandent d'entrer une valeur de paramètre, et ce, une seule fois par ligne (alors qu'il y a 3 champs booléens).

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
Public Function fctBaseCibleInsertArpImage(ByVal BaseCible As String, ByVal Annee As String, ByVal No_Reg As Byte, ByVal Code_Reg As String, ByVal Page As Long, ByVal tagQualite As Boolean, ByVal tagControle As Boolean, ByVal Commentaire As String, ByVal tagCommentaire As Boolean, ByVal NbActe As Integer, ByVal NbMention As Integer, ByVal Chemin As String, ByVal CheminSource As String, ByVal ImportDate As String, ByVal Operateur As String)
Dim SQLBaseInsert As String, rst As DAO.Recordset
Dim MaDb As DAO.Database, MonSql As String
 
Set MaDb = DBEngine.OpenDatabase(BaseCible)
 
MonSql = "SELECT [Annee], [No_Reg], [Code_Reg], [Page] from [tblImageArp] WHERE [Annee] = '" & Annee & "' AND [No_Reg] = " & No_Reg & " AND [Code_Reg] = '" & Code_Reg & "' AND [Page] = " & Page & ""
 
Set rst = MaDb.OpenRecordset(MonSql, dbOpenDynaset)
If Not rst.EOF Then
    'Déjà pésent
Else
    SQLBaseInsert = "INSERT INTO [" & BaseCible & "].tblImageArp (Annee, No_Reg, Code_Reg, Page, TagQualite, " & _
                "TagControle, Commentaire, TagCommentaire, NbActe, NbMention, Chemin, CheminSource, ImportDate, Operateur) " & _
                "VALUES ('" & Annee & "', " & No_Reg & ", '" & Code_Reg & "', " & Page & ", " & tagQualite & ", " & _
                "" & tagControle & ", '" & Commentaire & "', " & tagCommentaire & "," & NbActe & ", " & _
                "" & NbMention & ", " & _
                "'" & Chemin & "','" & CheminSource & "' , " & Chr(35) & Format(ImportDate, "mm/dd/yyyy") & Chr(35) & ", " & _
                "'" & Operateur & "')" & ";"
 
        DoCmd.RunSQL SQLBaseInsert
End If
rst.Close: Set rst = Nothing
MaDb.Close: Set MaDb = Nothing

Il doit s'agir d'une erreur de syntaxe mais je n'y vois pas clair!

Merci de votre attention

[tAKAmAkA]

En fait c'est simple, il faut passer à la fonction des numériques (Integer) et non des booléens.