Bonjour,
quelle syntaxe doit je utiliser en VBA sur une routine que je veut utiliser
sur fermeture d'un formulaire
pour utiliser un nom de champ qui comporte un espace entre ° et D "N° DISC"
le problème c'est que c'est un base dont j'ai hérité et je ne peut pas
modifier ce nom de Champ
dans la table , il est utilisé un peu partout !
voila mon petit bout de programme pour info :
Private Sub Form_Close()
Dim Vprix As Long
Set bds = CurrentDb()
Set rst = bds.OpenRecordset("T-BASE")
Vprix = 9
With rst
.MoveFirst
Do While Not .EOF
If !N° DISC > 1 Then
.Edit
!ENGAGEMENTS = Vprix
.Update
Else
.Edit
!ENGAGEMENTS = 0
.Update
End If
.MoveNext
Loop
End With
End Sub
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
db
Le 09/06/2010 17:35, ***JCR*** a écrit :
Bonjour, quelle syntaxe doit je utiliser en VBA sur une routine que je veut utiliser sur fermeture d'un formulaire pour utiliser un nom de champ qui comporte un espace entre ° et D "N° DISC" le problème c'est que c'est un base dont j'ai hérité et je ne peut pas modifier ce nom de Champ dans la table , il est utilisé un peu partout ! voila mon petit bout de programme pour info :
If ![N° DISC]> 1 Then ...
db
Le 09/06/2010 17:35, ***JCR*** a écrit :
Bonjour,
quelle syntaxe doit je utiliser en VBA sur une routine que je veut utiliser
sur fermeture d'un formulaire
pour utiliser un nom de champ qui comporte un espace entre ° et D "N° DISC"
le problème c'est que c'est un base dont j'ai hérité et je ne peut pas
modifier ce nom de Champ
dans la table , il est utilisé un peu partout !
voila mon petit bout de programme pour info :
Bonjour, quelle syntaxe doit je utiliser en VBA sur une routine que je veut utiliser sur fermeture d'un formulaire pour utiliser un nom de champ qui comporte un espace entre ° et D "N° DISC" le problème c'est que c'est un base dont j'ai hérité et je ne peut pas modifier ce nom de Champ dans la table , il est utilisé un peu partout ! voila mon petit bout de programme pour info :
If ![N° DISC]> 1 Then ...
db
***JCR***
merci db parfait ça marche Salut @+
"db" a écrit dans le message de news: 4c0fba68$0$12112$
Le 09/06/2010 17:35, ***JCR*** a écrit :
Bonjour, quelle syntaxe doit je utiliser en VBA sur une routine que je veut utiliser sur fermeture d'un formulaire pour utiliser un nom de champ qui comporte un espace entre ° et D "N° DISC" le problème c'est que c'est un base dont j'ai hérité et je ne peut pas modifier ce nom de Champ dans la table , il est utilisé un peu partout ! voila mon petit bout de programme pour info :
If ![N° DISC]> 1 Then ...
db
merci db parfait ça marche
Salut @+
"db" <blue_moon_frXX@_hotmail.com> a écrit dans le message de news:
4c0fba68$0$12112$426a74cc@news.free.fr...
Le 09/06/2010 17:35, ***JCR*** a écrit :
Bonjour,
quelle syntaxe doit je utiliser en VBA sur une routine que je veut
utiliser
sur fermeture d'un formulaire
pour utiliser un nom de champ qui comporte un espace entre ° et D "N°
DISC"
le problème c'est que c'est un base dont j'ai hérité et je ne peut pas
modifier ce nom de Champ
dans la table , il est utilisé un peu partout !
voila mon petit bout de programme pour info :
"db" a écrit dans le message de news: 4c0fba68$0$12112$
Le 09/06/2010 17:35, ***JCR*** a écrit :
Bonjour, quelle syntaxe doit je utiliser en VBA sur une routine que je veut utiliser sur fermeture d'un formulaire pour utiliser un nom de champ qui comporte un espace entre ° et D "N° DISC" le problème c'est que c'est un base dont j'ai hérité et je ne peut pas modifier ce nom de Champ dans la table , il est utilisé un peu partout ! voila mon petit bout de programme pour info :
If ![N° DISC]> 1 Then ...
db
3stone
Salut,
***JCR*** wrote:
Bonjour, quelle syntaxe doit je utiliser en VBA sur une routine que je veut utiliser sur fermeture d'un formulaire pour utiliser un nom de champ qui comporte un espace entre ° et D "N° DISC" le problème c'est que c'est un base dont j'ai hérité et je ne peut pas modifier ce nom de Champ dans la table , il est utilisé un peu partout ! voila mon petit bout de programme pour info :
Private Sub Form_Close() Dim Vprix As Long Set bds = CurrentDb() Set rst = bds.OpenRecordset("T-BASE") Vprix = 9 With rst .MoveFirst Do While Not .EOF If !N° DISC > 1 Then
<snip>
de plus, supprime le .MoveFirst qui est inutile à cet endroit et qui te retourne une erreur lorsque le recordset est vide!
Bonjour,
quelle syntaxe doit je utiliser en VBA sur une routine que je veut
utiliser sur fermeture d'un formulaire
pour utiliser un nom de champ qui comporte un espace entre ° et D
"N° DISC" le problème c'est que c'est un base dont j'ai hérité et je
ne peut pas modifier ce nom de Champ
dans la table , il est utilisé un peu partout !
voila mon petit bout de programme pour info :
Private Sub Form_Close()
Dim Vprix As Long
Set bds = CurrentDb()
Set rst = bds.OpenRecordset("T-BASE")
Vprix = 9
With rst
.MoveFirst
Do While Not .EOF
If !N° DISC > 1 Then
<snip>
de plus, supprime le .MoveFirst qui est inutile à cet endroit
et qui te retourne une erreur lorsque le recordset est vide!
Bonjour, quelle syntaxe doit je utiliser en VBA sur une routine que je veut utiliser sur fermeture d'un formulaire pour utiliser un nom de champ qui comporte un espace entre ° et D "N° DISC" le problème c'est que c'est un base dont j'ai hérité et je ne peut pas modifier ce nom de Champ dans la table , il est utilisé un peu partout ! voila mon petit bout de programme pour info :
Private Sub Form_Close() Dim Vprix As Long Set bds = CurrentDb() Set rst = bds.OpenRecordset("T-BASE") Vprix = 9 With rst .MoveFirst Do While Not .EOF If !N° DISC > 1 Then
<snip>
de plus, supprime le .MoveFirst qui est inutile à cet endroit et qui te retourne une erreur lorsque le recordset est vide!
Merci pour cette remarque utile je fais du VBA sur access ou Excel depuis longtemps mais de manière très épisodique c'est pour ça que je vient de temps en temps faire appel à vos lumières au fait je voi que les News microsoft sont en train de disparaître ? c'est bien dommage ! bonne journée Salut @+
"3stone" a écrit dans le message de news: huoeoq$ou1$
Salut,
***JCR*** wrote:
Bonjour, quelle syntaxe doit je utiliser en VBA sur une routine que je veut utiliser sur fermeture d'un formulaire pour utiliser un nom de champ qui comporte un espace entre ° et D "N° DISC" le problème c'est que c'est un base dont j'ai hérité et je ne peut pas modifier ce nom de Champ dans la table , il est utilisé un peu partout ! voila mon petit bout de programme pour info :
Private Sub Form_Close() Dim Vprix As Long Set bds = CurrentDb() Set rst = bds.OpenRecordset("T-BASE") Vprix = 9 With rst .MoveFirst Do While Not .EOF If !N° DISC > 1 Then
<snip>
de plus, supprime le .MoveFirst qui est inutile à cet endroit et qui te retourne une erreur lorsque le recordset est vide!
Merci pour cette remarque utile
je fais du VBA sur access ou Excel depuis longtemps mais de manière très
épisodique
c'est pour ça que je vient de temps en temps faire appel à vos lumières
au fait je voi que les News microsoft sont en train de disparaître ?
c'est bien dommage !
bonne journée
Salut @+
"3stone" <home@sweet_home.be> a écrit dans le message de news:
huoeoq$ou1$1@speranza.aioe.org...
Salut,
***JCR*** wrote:
Bonjour,
quelle syntaxe doit je utiliser en VBA sur une routine que je veut
utiliser sur fermeture d'un formulaire
pour utiliser un nom de champ qui comporte un espace entre ° et D
"N° DISC" le problème c'est que c'est un base dont j'ai hérité et je
ne peut pas modifier ce nom de Champ
dans la table , il est utilisé un peu partout !
voila mon petit bout de programme pour info :
Private Sub Form_Close()
Dim Vprix As Long
Set bds = CurrentDb()
Set rst = bds.OpenRecordset("T-BASE")
Vprix = 9
With rst
.MoveFirst
Do While Not .EOF
If !N° DISC > 1 Then
<snip>
de plus, supprime le .MoveFirst qui est inutile à cet endroit
et qui te retourne une erreur lorsque le recordset est vide!
Merci pour cette remarque utile je fais du VBA sur access ou Excel depuis longtemps mais de manière très épisodique c'est pour ça que je vient de temps en temps faire appel à vos lumières au fait je voi que les News microsoft sont en train de disparaître ? c'est bien dommage ! bonne journée Salut @+
"3stone" a écrit dans le message de news: huoeoq$ou1$
Salut,
***JCR*** wrote:
Bonjour, quelle syntaxe doit je utiliser en VBA sur une routine que je veut utiliser sur fermeture d'un formulaire pour utiliser un nom de champ qui comporte un espace entre ° et D "N° DISC" le problème c'est que c'est un base dont j'ai hérité et je ne peut pas modifier ce nom de Champ dans la table , il est utilisé un peu partout ! voila mon petit bout de programme pour info :
Private Sub Form_Close() Dim Vprix As Long Set bds = CurrentDb() Set rst = bds.OpenRecordset("T-BASE") Vprix = 9 With rst .MoveFirst Do While Not .EOF If !N° DISC > 1 Then
<snip>
de plus, supprime le .MoveFirst qui est inutile à cet endroit et qui te retourne une erreur lorsque le recordset est vide!
