[VB]Fonction CInt

**Methodmay31** · 16/03/2006, 11h45

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

**ouskel'n'or** · 16/03/2006, 11h51

Ton caption est un string ou un variant, fais ça

Code :

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

1
2
valeur = "125.65"
MsgBox CInt(Val(valeur))

A+

**jmfmarques** · 16/03/2006, 11h51

Cint s'applique à une donnée numérique et pas à une donnée de type string.
oops ! croisés. Bonjour

**Methodmay31** · 16/03/2006, 12h13

Le but est de faire aparraitre en haut de ma form dans un caption la derniere valeur de numcandidat présente dans la BDD dans un caption comment faire alor ??

**ouskel'n'or** · 16/03/2006, 12h24

Quel est le problème ? Si tu as une valeur à afficher, tu la transformes en string (.caption = str(valeur) ou cstr(valeur)...)
C'est ta question ?

A+

**ThierryAIM** · 16/03/2006, 12h30

Envoyé par Methodmay31

Le but est de faire aparraitre en haut de ma form dans un caption la derniere valeur de numcandidat présente dans la BDD dans un caption comment faire alor ??

pô compris

Pourquoi transformer un caption en Integer pour afficher dans un caption

D'autant que NumCandidat n'est pas utiliser ailleurs dans BtnSuivant_Click (à moins que la procédure ne soit pas complète)

**jmfmarques** · 16/03/2006, 12h49

pô compris

:
parce que faire et défaire et refaire, c'est toujours travailler

**Methodmay31** · 16/03/2006, 12h50

Quand je le séléctione dans la BDD NumCandidat est en integer mais je voudrais qu'il s'affiche dans un caption dans mon Form et la procédure est compete

est ce plus explicit ??

**jmfmarques** · 16/03/2006, 13h32

LblCandidat.Caption est de type string et pas integer
Cint(Val(LblCandidat.Caption)) convient à ta SGBD
ce qui ne t'empêche nullement de conserver LblCandidat.Caption pour tes affichages !
ou alors... il faut que je fasse une bonne sieste pour me remettre les idées en place (c'est ma foi possible...)

**ouskel'n'or** · 16/03/2006, 14h07

As-tu essayé, pour mettre le num de ton candidat dans le caption de ton label

Code :

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

1
2
3
LblCandidat.caption = str(NumCandidat )
'ou 
LblCandidat.caption =cstr(NumCandidat )

l'as-tu ?

A+

**Methodmay31** · 16/03/2006, 14h33

G changé mon code par ton code jmfmarques l'erreur n'est plus la mais le caption n'affiche toujours pas le numéro demandé

G donc exécuté le pas a pas détaillé, ma procédure marche et dans la variable de la procédure(dont le code est le suivant ) il inscrit le numéro en question

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

dans maxcand il y a bien le numéro du prochain enregistrement vide

Dans l'appel de la procédure au clique sur le bouton inscription qui lance une form ou devrait s'inscrire le numéro le caption contenan "XX" a la base est remplacé par un blanc

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Procédure du bouton Inscription
 
 
 Sub Btn_Inscription_Click()
 
    ACCUEIL.Hide
    Inscription.Show
    maxkeyNumCandidat (NumCandidatInscr)
    Inscription.LblCandidat.Caption = NumCandidatInscr
 
 
End Sub

je ne comprend pas d'ou peut bien venir l'erreur ....

**ouskel'n'or** · 16/03/2006, 14h40

Regarde à refresh, dans l'aide. Selon la version, on l'a ou on ne l'a pas...
Sinon,

Code :

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

1
2
3
Inscription.LblCandidat.visible = false
Inscription.LblCandidat.Caption = NumCandidatInscr 
Inscription.LblCandidat.visible = true

peut... peut-être... régler le problème

Tu dis

A+

**Methodmay31** · 16/03/2006, 14h54

Ok merci mais maintenan il s'affiche mais il ne m'affiche pas le bon numéro (il devré maffiché 9 il me met 0 ) est ce que ca vient de ma procédure ?

**ouskel'n'or** · 16/03/2006, 14h59

Fais un test sur NumCandidatInscr... Au juste, c'est quoi ? Un string ? Un integer ?

A+

**Methodmay31** · 16/03/2006, 15h05

c un integer

**Methodmay31** · 16/03/2006, 15h05

Comment et quel genre de test puis je faire sur cette variable ??

**ouskel'n'or** · 16/03/2006, 15h06

Je viens de relire ton code... Que veux-tu faire avec cette ligne :

Code :

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

maxkeyNumCandidat (NumCandidatInscr)

:
En tout cas, en envoyant NumCandidatInscr en paramètre à maxkeyNumCandidat, tu ne récupèreras rien dans NumCandidatInscr...

Dis-nous ce que tu veux faire dans maxkeyNumCandidat et ce que tu compte récupérer.
En l'occurence, ce ne serait pas une sub mais une fonction qu'il te faudrait et la syntaxe pour récupérer NumCandidatInscr ne serait de toute façon pas celle-ci

Tu dis

A+

**ouskel'n'or** · 16/03/2006, 15h08

Comment et quel genre de test puis je faire sur cette variable ??

En mettant par exemple msgbox NumCandidatInscr
S'il y a zéro, et il y aura zéro, forcément compte tenu de ce que je viens de te dire, donc, tu auras 0

A+

**Methodmay31** · 16/03/2006, 15h13

Je veut récuperer dans NumCandidatInscr la valeur du dernier enregistrement ds la BDD et l'inscrire dans le caption du formulaire d'inscription comment dois je faire alor ?

**ouskel'n'or** · 16/03/2006, 15h17

Une fonction sans paramètre envoyé, ça marche comme ça

Code :

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

1
2
3
4
5
6
7
Function Lenom()
 Lenom = "coucou"
End Function
 
Sub MonBouton_Click()
   Pastis51.caption = Lenom
End Sub

Tu dis si tu as des difficultés pour adapter ...

A+

[VB]Fonction CInt

VB 6 et antérieur

Vue hybride

Discussions similaires

Partager

Partager