voici mon code :
Private Sub cmdActualiser_Click()
Dim rst As Recordset, dbs As Database
Const strReqSql As String = "SELECT Familles.* FROM Familles ORDER BY
Familles.NOM WHERE Familles.Id = " & Me.txtCode & ";"
Set dbs = CurrentDb
==> Set rst = dbs.OpenRecordset(strReqSql, dbOpenForwardOnly)
If rst.RecordCount > 0 Then
.
.
End Sub
et j'ai un planté sur la ligne ==> avec comme message "erreur d'exécution 13
Incompatibilité de type"
c'est quoi le gag ? Depuis ce matin je suis dessus. Ma base est en access2k
et je suis sous Acc2k3.
dans un formulaire, je souhaiterais mettre à jour des zone de texte à partir
d'une requête indépendante et lié par un code.
merci de me tuyauter, je suis depuis ce matin dessus!
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Maître NICOLEDE
la réponse est à l'adresse http://access.vba.free.fr/ouverture_recordset.htm sur le site de Raymond MVP. je n'ai pas indiqué la bibliothèque DAO. voici mon code corrigé : Private Sub cmdActualiser_Click()
==> Dim rst As DAO.Recordset, dbs As DAO.Database ' il faut mettre DAO. avant l'objet ! Const strReqSql As String = "SELECT Familles.* FROM Familles ORDER BY Familles.NOM WHERE Familles.Id = " & Me.txtCode & ";"
Set dbs = CurrentDb Set rst = dbs.OpenRecordset(strReqSql, dbOpenForwardOnly) If rst.RecordCount > 0 Then
"Maître NICOLEDE" a écrit dans le message de news:415ade70$0$13512$
Bonjour,
voici mon code : Private Sub cmdActualiser_Click()
Dim rst As Recordset, dbs As Database Const strReqSql As String = "SELECT Familles.* FROM Familles ORDER BY Familles.NOM WHERE Familles.Id = " & Me.txtCode & ";"
Set dbs = CurrentDb ==> Set rst = dbs.OpenRecordset(strReqSql, dbOpenForwardOnly) If rst.RecordCount > 0 Then . . End Sub
et j'ai un planté sur la ligne ==> avec comme message "erreur d'exécution 13
Incompatibilité de type" c'est quoi le gag ? Depuis ce matin je suis dessus. Ma base est en access2k
et je suis sous Acc2k3. dans un formulaire, je souhaiterais mettre à jour des zone de texte à partir
d'une requête indépendante et lié par un code.
merci de me tuyauter, je suis depuis ce matin dessus!
la réponse est à l'adresse
http://access.vba.free.fr/ouverture_recordset.htm sur le site de Raymond
MVP.
je n'ai pas indiqué la bibliothèque DAO.
voici mon code corrigé :
Private Sub cmdActualiser_Click()
==> Dim rst As DAO.Recordset, dbs As DAO.Database ' il faut mettre DAO.
avant l'objet !
Const strReqSql As String = "SELECT Familles.* FROM Familles ORDER BY
Familles.NOM WHERE Familles.Id = " & Me.txtCode & ";"
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset(strReqSql, dbOpenForwardOnly)
If rst.RecordCount > 0 Then
"Maître NICOLEDE" <energiedirecteN0sp4m@free.fr> a écrit dans le message de
news:415ade70$0$13512$626a14ce@news.free.fr...
Bonjour,
voici mon code :
Private Sub cmdActualiser_Click()
Dim rst As Recordset, dbs As Database
Const strReqSql As String = "SELECT Familles.* FROM Familles ORDER BY
Familles.NOM WHERE Familles.Id = " & Me.txtCode & ";"
Set dbs = CurrentDb
==> Set rst = dbs.OpenRecordset(strReqSql, dbOpenForwardOnly)
If rst.RecordCount > 0 Then
.
.
End Sub
et j'ai un planté sur la ligne ==> avec comme message "erreur d'exécution
13
Incompatibilité de type"
c'est quoi le gag ? Depuis ce matin je suis dessus. Ma base est en
access2k
et je suis sous Acc2k3.
dans un formulaire, je souhaiterais mettre à jour des zone de texte à
partir
d'une requête indépendante et lié par un code.
merci de me tuyauter, je suis depuis ce matin dessus!
la réponse est à l'adresse http://access.vba.free.fr/ouverture_recordset.htm sur le site de Raymond MVP. je n'ai pas indiqué la bibliothèque DAO. voici mon code corrigé : Private Sub cmdActualiser_Click()
==> Dim rst As DAO.Recordset, dbs As DAO.Database ' il faut mettre DAO. avant l'objet ! Const strReqSql As String = "SELECT Familles.* FROM Familles ORDER BY Familles.NOM WHERE Familles.Id = " & Me.txtCode & ";"
Set dbs = CurrentDb Set rst = dbs.OpenRecordset(strReqSql, dbOpenForwardOnly) If rst.RecordCount > 0 Then
"Maître NICOLEDE" a écrit dans le message de news:415ade70$0$13512$
Bonjour,
voici mon code : Private Sub cmdActualiser_Click()
Dim rst As Recordset, dbs As Database Const strReqSql As String = "SELECT Familles.* FROM Familles ORDER BY Familles.NOM WHERE Familles.Id = " & Me.txtCode & ";"
Set dbs = CurrentDb ==> Set rst = dbs.OpenRecordset(strReqSql, dbOpenForwardOnly) If rst.RecordCount > 0 Then . . End Sub
et j'ai un planté sur la ligne ==> avec comme message "erreur d'exécution 13
Incompatibilité de type" c'est quoi le gag ? Depuis ce matin je suis dessus. Ma base est en access2k
et je suis sous Acc2k3. dans un formulaire, je souhaiterais mettre à jour des zone de texte à partir
d'une requête indépendante et lié par un code.
merci de me tuyauter, je suis depuis ce matin dessus!
