ouvrir une table Access par VB6Résolu

Question

Bonjour,
J'ai un soucis dans mon programme, je ne comprends pas pourquoi il ne fonctionne pas.
Je dois ouvrir une table dans ma base Access, j'ouvre ma table Absence o&#249; il y a l'identifiant des Absences identique &#224; ma variable, pour recueillir des informations.
Seulement Vb me dis que les types de ma variable N et Mon IdAbsence de ma table sont incompatibles.
Ma variable est de type long et mon IdAbsence est de type automatique donc num&#233;rique entier long dans ma table. Voici mon code:

Private Sub Modif_Click()
    Dim M As Variant 'recoit l'&#233;l&#233;ment s&#233;lectionn&#233; dans listview donc l'id_Absence s&#233;lectionn&#233; par l'utilisateur
    Dim N As Long 'recoit M en num&#233;rique
    Dim R&#233;ponse As String 'recoit la r&#233;ponse de l'utilisateur
    
    'Initialisation des variables
    M = ""
    N = 0
    
    M = ListView1.SelectedItem
    N = Val(M)
    
    R&#233;ponse = MsgBox(" Etes vous s&#251;r de vouloir le modifier ?", vbOKCancel, "Mutuelle")
    'Condition:si l 'utilisateur est s&#251;r alors on poursuit la modification
    If R&#233;ponse = vbOK Then
        'Le formulaire enregistrement appara&#238;t
        Enregistr_Absences.Show
        'Le champ num_agent recoit le num&#233;ro de l'agent dont on doit modifier l'absence
        Enregistr_Absences.Num_Agent.Text = Code_Agent.Text
        Call DataBase 'Ouverture de la base de donn&#233;es
        'Ouverture de la table o&#249; il y a l'IdAbsence identique &#224; celui r&#233;cup&#233;r&#233; dans la variable N
        rs.Open "select * from Absence where IdAbsence='" & N & "'", cn, adOpenDynamic
        'Transfert des donn&#233;es dans les champs
        Enregistr_Absences.Motif_abs.Text = rs![Motif]
        Enregistr_Absences.Date_Debut.Text = rs![DateD&#233;but]
        Enregistr_Absences.Date_Fin.Text = rs![DateFin]
        Enregistr_Absences.Nb_Jour.Caption = rs![NbreJours]
        
        cn.Close 'Fermeture de la base de donn&#233;es
        
    End If
    
End Sub

Peut etre qu'il y a un type particulier qui s'accorde avec un type Automatique d'une base de donn&#233;es , ou est-ce un autre probl&#232;me je ne sais pas.
Si quelqu'un a une solution &#224; me proposer, il est le bienvenue.
Marnilla

cs_ITALIA · Accepted Answer

Coches Reponse Accept&#233;e !

It@li@

cs_ITALIA · Answer

Vires les simples Cote

" & N & "", 

It@li@

Marnilla · Answer

Merci [mailto:It@li It@li]@, j'ai test&#233; et c'est bien &#231;a ,
par contre j'aurais bien aim&#233; comprendre pourquoi , elles servent &#224; quoi ces cotes au cas ou si ca devait se reproduire.
Marnilla

cs_ITALIA · Answer

Coches Reponse Accept&#233;e !

Tout simplement car : ' " & N & " ' ", c' est pour les champs de type Texte
                                   " & N & " ", c'est pour les champs de type Num&#233;rique

It@li@

cs_ITALIA · Answer

Et au fait si tu ne veux pas que &#231;a plante si il ni a aucun enregistrement de trouv&#233; :

      If Rs.RecordCount <>0 Then
           Enregistr_Absences.Motif_abs.Text = rs![Motif]
           Enregistr_Absences.Date_Debut.Text = rs![DateD&#233;but]
           Enregistr_Absences.Date_Fin.Text = rs![DateFin]
           Enregistr_Absences.Nb_Jour.Caption = rs![NbreJours]
      End If

It@li@

Marnilla · Answer

Merci tu tuyau

Marnilla

Ouvrir une table Access par VB6

6 réponses

Discussions similaires