problème de référence

Question

bonjour,
je travaille sous vb6 ainsi qu'access.
je vous présente mon code et mon problème juste après

Private Sub CmdValider_Click()
    Dim lsSql As String
    Dim rsAdresse As Recordset
    Dim nom, service, tel, fax, emetteur, service2 As String
    
    lsSql = "SELECT * FROM tAdresse"
    Set rsAdresse = CurrentDb.OpenRecordset(lsSql)
    
    If rsAdresse.RecordCount <> 0 Then
        rsAdresse.MoveLast
    End If
    
    rsAdresse.AddNew
    rsAdresse!nom = txtNomUser.text
    rsAdresse!service = txtService.text
    rsAdresse!tel = txtTel.text
    rsAdresse!fax = txtFax.text
    rsAdresse!emetteur = txtEmetteur.text
    rsAdresse!service2 = txtService2.text
    rsAdresse!service2 = txtService2.Text
    
    rsAdresse.Update
    
    'Message d'information pour signaler que l'enregistrement a bien été sauvegardé
    MsgBox "L'enregistrement a bien été sauvegardé", vbInformation, "Sauvegarde des enregistrements"    
End Sub

mon problème est le suivant : quand je saisie tous mes champs ou certains champs, j'ai un message d'erreur qui est le suivant "impossible de faire référence à une propriété ou de la définir pour un contrôle si ce dernier n'est pas activé" pourtant ils sont tous activé.

ceci est dû a quoi ?

merci d'avance à tous ceux qui m'aideront

cs_Exploreur · Answer

Salut,

Avant de faire valider, est-ce que ta base est bien ouverte ?

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_monaco63 · Answer

ben oui je pense, puisque ça marche de temps en temps (ou quand ça veut) en modifiant

rsAdresse!nom = txtNomUser.text
rsAdresse!service = txtService.text
rsAdresse!tel = txtTel.text
rsAdresse!fax = txtFax.text
rsAdresse!emetteur = txtEmetteur.text
rsAdresse!service2 = txtService2.text
rsAdresse!service2 = txtService2.Text

par

rsAdresse!nom = Me.txtNomUser
rsAdresse!service = Me.txtService
rsAdresse!tel = Me.txtTel
rsAdresse!fax = Me.txtFax
rsAdresse!emetteur = Me.txtEmetteur
rsAdresse!service2 = Met.xtService2
rsAdresse!service2 = Me.txtService2

mais pour le dernier cela merde, et quand je saisie que les 2 premiers champs et que je clic sur Valider ça merde également

bricoyeye · Answer

Salut,
"impossible de faire référence à une propriété ou de la définir pour un contrôle si ce dernier n'est pas activé"

Tu as du fermer ton recordset quelque par.

cs_monaco63 · Answer

je le ferme à la fin de mon traitement

cs_Exploreur · Answer

Salut Monaco63,

As-tu bien reçu ma demande te concernant par MP ?

A+
Exploreur

 Linux a un noyau, Windows un pépin

cs_monaco63 · Answer

Quel demande Exploreur,
Je débute dans le forum et je ne sais pas ce que c'est MP

Problème de référence

6 réponses

Votre réponse

Discussions similaires