Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access modification d'un champ dans une table

modification d'un champ dans une table

5 réponses
Avatar
Pascal
bonsoir,
ai encore besoin d'un petit coup de pouce..........
j'essaie en vain de cocher la case oui/non du champ st_selection mais
ce code : me génère une erreur : Utilisation incorrecte de la propriété
merci de bien vouloir m'aider
Pascal
---------------------------------------------------------------------------------
Function CocherCaseImprimante(NomImprimante As String)
' cette fonction permet de cocher la case d'imprimante choisie
' le nom est celui de l'imprimante repris dans le combo sur le formulaire
Dim rs As Recordset

'rechercher dans la table (tbprtlist) le nom de l'imprimante
Set rs = CurrentDb().OpenRecordset("SELECT tx_PrtNom FROM tbPrtList WHERE
tx_PrtNom = '" & NomImprimante & "'")

If Not rs.EOF And Not rs.BOF Then
'passe en mode edition
rs.Edit
'effectue le changement
rs ("st_Selection" = True) <------------------L'erreur se produit
ici
'valide le changement
rs.Update
end if

'ferme
rs.Close
Set rs = Nothing

End Function
------------------------------------------------------------------------------------
Signaler un problème avec ce contenu

5 réponses

Supprimer
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
Avatar
Jessy Sempere
Bonjour

Lorsque tu fais référence à un champ dans un recordset, il y a plusieurs
méthode :

rs.fields("nomDuChamp")
rs!NomDuChamp

Je préfère la première méthode, ça évite des plantages si tu as des espaces
dans tes noms de champs (même si j'en mets jamais).

PS : Au lieu d'utiliser DAO, tu pourrais utiliser une requête UpDate, genre
:
Currentdb.execute "UPDATE tbPrtList SET st_Selection = True " _
& "WHERE tx_PrtNom = '" & NomImprimante & "';"
Je ne connais pas ton besoin complet mais visiblement, ça couvre ta demande
et c'est plus court... ;-))

@+
Jessy Sempere

------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"Pascal" a écrit dans le message de news:

bonsoir,
ai encore besoin d'un petit coup de pouce..........
j'essaie en vain de cocher la case oui/non du champ st_selection mais
ce code : me génère une erreur : Utilisation incorrecte de la propriété
merci de bien vouloir m'aider
Pascal
---------------------------------------------------------------------------------
Function CocherCaseImprimante(NomImprimante As String)
' cette fonction permet de cocher la case d'imprimante choisie
' le nom est celui de l'imprimante repris dans le combo sur le formulaire
Dim rs As Recordset

'rechercher dans la table (tbprtlist) le nom de l'imprimante
Set rs = CurrentDb().OpenRecordset("SELECT tx_PrtNom FROM tbPrtList
WHERE tx_PrtNom = '" & NomImprimante & "'")

If Not rs.EOF And Not rs.BOF Then
'passe en mode edition
rs.Edit
'effectue le changement
rs ("st_Selection" = True) <------------------L'erreur se
produit ici
'valide le changement
rs.Update
end if

'ferme
rs.Close
Set rs = Nothing

End Function
------------------------------------------------------------------------------------



Avatar
Pascal
super sympa pour ta réponse bien plus simple effectivement!
merci infiniment
Pascal

"Jessy Sempere" a écrit dans le message de news:
uYz$
Bonjour

Lorsque tu fais référence à un champ dans un recordset, il y a plusieurs
méthode :

rs.fields("nomDuChamp")
rs!NomDuChamp

Je préfère la première méthode, ça évite des plantages si tu as des
espaces dans tes noms de champs (même si j'en mets jamais).

PS : Au lieu d'utiliser DAO, tu pourrais utiliser une requête UpDate,
genre :
Currentdb.execute "UPDATE tbPrtList SET st_Selection = True " _
& "WHERE tx_PrtNom = '" & NomImprimante & "';"
Je ne connais pas ton besoin complet mais visiblement, ça couvre ta
demande et c'est plus court... ;-))

@+
Jessy Sempere

------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"Pascal" a écrit dans le message de news:

bonsoir,
ai encore besoin d'un petit coup de pouce..........
j'essaie en vain de cocher la case oui/non du champ st_selection mais
ce code : me génère une erreur : Utilisation incorrecte de la propriété
merci de bien vouloir m'aider
Pascal
---------------------------------------------------------------------------------
Function CocherCaseImprimante(NomImprimante As String)
' cette fonction permet de cocher la case d'imprimante choisie
' le nom est celui de l'imprimante repris dans le combo sur le formulaire
Dim rs As Recordset

'rechercher dans la table (tbprtlist) le nom de l'imprimante
Set rs = CurrentDb().OpenRecordset("SELECT tx_PrtNom FROM tbPrtList
WHERE tx_PrtNom = '" & NomImprimante & "'")

If Not rs.EOF And Not rs.BOF Then
'passe en mode edition
rs.Edit
'effectue le changement
rs ("st_Selection" = True) <------------------L'erreur se
produit ici
'valide le changement
rs.Update
end if

'ferme
rs.Close
Set rs = Nothing

End Function
------------------------------------------------------------------------------------







Avatar
Jessy Sempere
Re,

Je passais par là...
Mais bon, il est grand temps d'aller se coucher... ;-))

@+
Jessy Sempere
------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"Pascal" a écrit dans le message de news:

super sympa pour ta réponse bien plus simple effectivement!
merci infiniment
Pascal

"Jessy Sempere" a écrit dans le message de
news: uYz$
Bonjour

Lorsque tu fais référence à un champ dans un recordset, il y a plusieurs
méthode :

rs.fields("nomDuChamp")
rs!NomDuChamp

Je préfère la première méthode, ça évite des plantages si tu as des
espaces dans tes noms de champs (même si j'en mets jamais).

PS : Au lieu d'utiliser DAO, tu pourrais utiliser une requête UpDate,
genre :
Currentdb.execute "UPDATE tbPrtList SET st_Selection = True " _
& "WHERE tx_PrtNom = '" & NomImprimante & "';"
Je ne connais pas ton besoin complet mais visiblement, ça couvre ta
demande et c'est plus court... ;-))

@+
Jessy Sempere

------------------------------------
Site @ccess : http://access.fr.free.fr/
Pour l'efficacité de tous :
http://www.mpfa.info/
------------------------------------
"Pascal" a écrit dans le message de news:

bonsoir,
ai encore besoin d'un petit coup de pouce..........
j'essaie en vain de cocher la case oui/non du champ st_selection mais
ce code : me génère une erreur : Utilisation incorrecte de la propriété
merci de bien vouloir m'aider
Pascal
---------------------------------------------------------------------------------
Function CocherCaseImprimante(NomImprimante As String)
' cette fonction permet de cocher la case d'imprimante choisie
' le nom est celui de l'imprimante repris dans le combo sur le
formulaire
Dim rs As Recordset

'rechercher dans la table (tbprtlist) le nom de l'imprimante
Set rs = CurrentDb().OpenRecordset("SELECT tx_PrtNom FROM tbPrtList
WHERE tx_PrtNom = '" & NomImprimante & "'")

If Not rs.EOF And Not rs.BOF Then
'passe en mode edition
rs.Edit
'effectue le changement
rs ("st_Selection" = True) <------------------L'erreur se
produit ici
'valide le changement
rs.Update
end if

'ferme
rs.Close
Set rs = Nothing

End Function
------------------------------------------------------------------------------------










Avatar
heureux-oli
Pour que tu sache quand même pourquoi tu avais une erreur
rs.fields ("st_Selection") = True est la bonne écriture.

"Pascal" a écrit dans le message de news:

bonsoir,
ai encore besoin d'un petit coup de pouce..........
j'essaie en vain de cocher la case oui/non du champ st_selection mais
ce code : me génère une erreur : Utilisation incorrecte de la propriété
merci de bien vouloir m'aider
Pascal
---------------------------------------------------------------------------------
Function CocherCaseImprimante(NomImprimante As String)
' cette fonction permet de cocher la case d'imprimante choisie
' le nom est celui de l'imprimante repris dans le combo sur le formulaire
Dim rs As Recordset

'rechercher dans la table (tbprtlist) le nom de l'imprimante
Set rs = CurrentDb().OpenRecordset("SELECT tx_PrtNom FROM tbPrtList
WHERE tx_PrtNom = '" & NomImprimante & "'")

If Not rs.EOF And Not rs.BOF Then
'passe en mode edition
rs.Edit
'effectue le changement
rs ("st_Selection" = True) <------------------L'erreur se
produit ici
'valide le changement
rs.Update
end if

'ferme
rs.Close
Set rs = Nothing

End Function
------------------------------------------------------------------------------------



Avatar
Pascal
hello l'heureux!
j'avais auparavent fait ceci rs.fields ("st_Selection" = True)
je vous remercie tous les deux d'avoir partager vos connaissances
A+
Pascal

"heureux-oli" a écrit dans le message de news:

Pour que tu sache quand même pourquoi tu avais une erreur
rs.fields ("st_Selection") = True est la bonne écriture.

"Pascal" a écrit dans le message de news:

bonsoir,
ai encore besoin d'un petit coup de pouce..........
j'essaie en vain de cocher la case oui/non du champ st_selection mais
ce code : me génère une erreur : Utilisation incorrecte de la propriété
merci de bien vouloir m'aider
Pascal
---------------------------------------------------------------------------------
Function CocherCaseImprimante(NomImprimante As String)
' cette fonction permet de cocher la case d'imprimante choisie
' le nom est celui de l'imprimante repris dans le combo sur le formulaire
Dim rs As Recordset

'rechercher dans la table (tbprtlist) le nom de l'imprimante
Set rs = CurrentDb().OpenRecordset("SELECT tx_PrtNom FROM tbPrtList
WHERE tx_PrtNom = '" & NomImprimante & "'")

If Not rs.EOF And Not rs.BOF Then
'passe en mode edition
rs.Edit
'effectue le changement
rs ("st_Selection" = True) <------------------L'erreur se
produit ici
'valide le changement
rs.Update
end if

'ferme
rs.Close
Set rs = Nothing

End Function
------------------------------------------------------------------------------------