Bonjour !!
J'utilise la fonction CInt dans une procédure et une erreur d'incomptabilité apparait savez vous pourquoi ??

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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
 
Private Sub BtnSuivant_Click()
 
    Dim DateJour As String
    Dim importance As String
    Dim source As String
    Dim metier As String
    Dim dispo As String
    Dim mobilite As String
    Dim NumCandidat As Integer
    Dim LienCV As String
    Dim notes As String
    Dim Langues As String
 
 
 
 
    NumCandidat = CInt(LblCandidat.Caption)  <--- ICI 
    Candidat =    CInt(LblCandidat.Caption)
    DateJour = TxtDateJour.Text
    importance = CmbImportance.Text
    source = TxtSource.Text
    metier = TxtMetier.Text
 
    dispo = TxtDispo.Text
 
    mobilite = TxtMobilite.Text
    LienCV = LblCV.Caption
    notes = "Aucune note"
 
 
    Langues = ""
    I = 0
    Do While I < LstLangues.ListCount
        If LstLangues.Selected(I) = True Then
            Langues = LstLangues.List(I) & ", " & Langues
        End If
    I = I + 1
    Loop
    If Langues = "" Then
        Langues = "Aucune"
    End If
 
 
    'Call inscription_candidat(Candidat, DateJour, importance, source, metier, dispo, mobilite, LienCV, notes)
    Call inscription_etatcivil(TxtNom.Text, TxtPrenom.Text, TxtNaissance.Text, TxtLieuNaissance.Text, TxtNationalite.Text, TxtAdresse.Text, TxtVille.Text, TxtCP.Text, CmbRegion.Text, TxtPays.Text, TxtFixe.Text, TxtPortable.Text, TxtFax.Text, TxtMail.Text, TxtPermis.Text, CmbNivo.Text, Langues)
    Inscription.Hide
    ACCUEIL.Show
 
End Sub
 
Sub maxkeyNumCandidat(ByRef maxcand As Integer)
 
Dim db  As ADODB.Connection
Dim Max As ADODB.Recordset
 
Set db = New ADODB.Connection
Set Max = New ADODB.Recordset
Max.CursorLocation = adUseClient
db.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source='" & CheminBase & "';"
 
 
Max.CursorLocation = adUseClient ' sur le recordset, pas sur la connection.
Max.Open "Select (max (NumCandidat)+1) as cand from Candidat", db, adOpenStatic, adLockOptimistic
    While Not Max.EOF
 
        Candid = Max![cand]
        Max.MoveNext
    Wend
 
maxcand = Candid
 
End Sub