erreur 438Résolu

Question

Bonjour tout le monde, 
voilà j'ai besoin d'une aide parceque je sais plus koi faire.
En fait, je résume le problème: Je veux entrer des informations à une table, ds une BD bien sur. Une fois elles sont entrées, je dois récupérer leurs "id" qu'est un numéro de type numéro automatique; et afficher le continu sur un textbox. Mais une erreur 438, survient lors de l'execution et affiche"L'objet ne gère pas cette prropriété ou cette méthode".
J'ai tout essayé mais pas de solution. 
Voila je donne le code pour avoir une idée:
[b]If nvaccin.Text = "" Then
MsgBox "Veuillez saisir le nom du nouveau vaccin.", vbInformation, "-Nom Vaccin-"
Exit Sub
End If
sql = "select *from vaccin" ' On sélectionne tous les champs de la table
Set rs = db.OpenRecordset(sql, dbOpenDynaset) ' ici on est bien en mode écriture (dbOpenDynaset)

rs.AddNew 'Pour ajouter un enregistrement
rs.Fields("nomvac") = nvaccin.Text
rs.Update 'Une fois les valeurs définies, on met à jour
rs.Close
MsgBox "ajout dans table vaccin reussi"

sql1 "select * from vaccin where nomvac'" & Replace(nvaccin.Text, "'", "''") & "'"
rs1 = db.OpenRecordset(sql1, dbOpenSnapshot)
nd.Text = rs1.Fields("idvaccin")/b
Merci d'avance pour votre aide.

Renfield · Accepted Answer

de même, collectionner les requetes sql, sql1.... pas la peine.

Allez, un coup de nettoyage:
    If LenB(nvaccin.Text) Then
        With db.OpenRecordset("vaccin", dbOpenDynaset)
            .AddNew
                .Fields("nomvac").Value = nvaccin.Text
                nd.Text = .Fields("idvaccin").Value
            .Update
            .Close
        End With
        MsgBox "ajout dans table vaccin reussi"
    Else
        MsgBox "Veuillez saisir le nom du nouveau vaccin.", vbExclamation, "-Nom Vaccin-"
    End If


Renfield - Admin CodeS-SourceS - MVP Visual Basic

tpoinsot · Answer

bonjour,
tu devrais récupérer l'ID au moment de l'addnew :
 rs.AddNew
 ...
 x = rs!ID
 rs.Update

thip

Renfield · Answer

et éviter les Select * pour n'exploiter qu'un champ.


Renfield - Admin CodeS-SourceS - MVP Visual Basic

bilelvb · Answer

Merci beaucoup, ça tourne.

Erreur 438

4 réponses

Votre réponse

Discussions similaires