c est au niveau de la procédure excel, access, elle fonctionne nickel la procédure, ya juste un
problème mineur je pense c'est que la procédure fait l'update de la cellule A2 et B2 et je voudrais
c est au niveau de la procédure excel, access, elle fonctionne nickel la procédure, ya juste un
problème mineur je pense c'est que la procédure fait l'update de la cellule A2 et B2 et je voudrais
c est au niveau de la procédure excel, access, elle fonctionne nickel la procédure, ya juste un
problème mineur je pense c'est que la procédure fait l'update de la cellule A2 et B2 et je voudrais
c est au niveau de la procédure excel, access, elle fonctionne nickel la
procédure, ya juste un problème mineur je pense c'est que la procédure fait
l'update de la cellule A2 et B2 et je voudrais plutot faire l update d'une
colonne directement. De plus ya un bug au niveau de la procédure si on fait
2 fois le meme update ce qui est normal parce que ca cré des doublons au
niveau de clé primaire ce qui n'est pas possible. Donc si vous trouvez les
infos pour corriger ca et en meme temps en ce qui concerne le numéro de
client puis je faire quelque chose pour qu il se mette en automatique dès
qu un nouveau nom et mis a jour dans la table ? merci bien pour le travail
réalisé c est prestigieu
c est au niveau de la procédure excel, access, elle fonctionne nickel la
procédure, ya juste un problème mineur je pense c'est que la procédure fait
l'update de la cellule A2 et B2 et je voudrais plutot faire l update d'une
colonne directement. De plus ya un bug au niveau de la procédure si on fait
2 fois le meme update ce qui est normal parce que ca cré des doublons au
niveau de clé primaire ce qui n'est pas possible. Donc si vous trouvez les
infos pour corriger ca et en meme temps en ce qui concerne le numéro de
client puis je faire quelque chose pour qu il se mette en automatique dès
qu un nouveau nom et mis a jour dans la table ? merci bien pour le travail
réalisé c est prestigieu
c est au niveau de la procédure excel, access, elle fonctionne nickel la
procédure, ya juste un problème mineur je pense c'est que la procédure fait
l'update de la cellule A2 et B2 et je voudrais plutot faire l update d'une
colonne directement. De plus ya un bug au niveau de la procédure si on fait
2 fois le meme update ce qui est normal parce que ca cré des doublons au
niveau de clé primaire ce qui n'est pas possible. Donc si vous trouvez les
infos pour corriger ca et en meme temps en ce qui concerne le numéro de
client puis je faire quelque chose pour qu il se mette en automatique dès
qu un nouveau nom et mis a jour dans la table ? merci bien pour le travail
réalisé c est prestigieu
rsClient.Seek "=", strID
If Not rsClient.NoMatch Then
Beep
MsgBox "Ce client a déjà été saisi dans la table", _
vbExclamation, "Attention doublon dans la saisie"
Exit Sub
End If
'Sinon on ajoute les données
rsClient.Seek "=", strID
If Not rsClient.NoMatch Then
Beep
MsgBox "Ce client a déjà été saisi dans la table", _
vbExclamation, "Attention doublon dans la saisie"
Exit Sub
End If
'Sinon on ajoute les données
rsClient.Seek "=", strID
If Not rsClient.NoMatch Then
Beep
MsgBox "Ce client a déjà été saisi dans la table", _
vbExclamation, "Attention doublon dans la saisie"
Exit Sub
End If
'Sinon on ajoute les données
-----Message d'origine-----
Il faut juste rajouter l'instruction
rsClient.Index = "PrimaryKey"
| avant
| rsClient.Seek ...
|
| milles excuses
|
| > 2°) Pour eviter le risque de saisie de doublons, je
te conseille
d'effacer
| > la plage après envoi des données dans Access :
Juste avant End Sub,
il faut
| > rajouter l'instruction Range("A2:K2").ClearContents
| > Alors ça c'est pour le classeur sur lequel j'ai
fait des tests. Par
contre
| > s'il ne faut pas effacer mais vérifier s'il existe
dans la table,
alors je
| > te propose d'y rajouter le code suivant juste après
les 2
instructions de
| > création d'objet Automation et avant rsClient.
AddNew :
| > 'Vérification de l'enregistrement est bien
inexistant dans la
table
|--> icirsClient.Seek "=", strID
If Not rsClient.NoMatch Then
Beep
MsgBox "Ce client a déjà été saisi dans la
table", _
vbExclamation, "Attention doublon dans la
saisie"
Exit Sub
End If
'Sinon on ajoute les données
.
-----Message d'origine-----
Il faut juste rajouter l'instruction
rsClient.Index = "PrimaryKey"
| avant
| rsClient.Seek ...
|
| milles excuses
|
| > 2°) Pour eviter le risque de saisie de doublons, je
te conseille
d'effacer
| > la plage après envoi des données dans Access :
Juste avant End Sub,
il faut
| > rajouter l'instruction Range("A2:K2").ClearContents
| > Alors ça c'est pour le classeur sur lequel j'ai
fait des tests. Par
contre
| > s'il ne faut pas effacer mais vérifier s'il existe
dans la table,
alors je
| > te propose d'y rajouter le code suivant juste après
les 2
instructions de
| > création d'objet Automation et avant rsClient.
AddNew :
| > 'Vérification de l'enregistrement est bien
inexistant dans la
table
|--> ici
rsClient.Seek "=", strID
If Not rsClient.NoMatch Then
Beep
MsgBox "Ce client a déjà été saisi dans la
table", _
vbExclamation, "Attention doublon dans la
saisie"
Exit Sub
End If
'Sinon on ajoute les données
.
-----Message d'origine-----
Il faut juste rajouter l'instruction
rsClient.Index = "PrimaryKey"
| avant
| rsClient.Seek ...
|
| milles excuses
|
| > 2°) Pour eviter le risque de saisie de doublons, je
te conseille
d'effacer
| > la plage après envoi des données dans Access :
Juste avant End Sub,
il faut
| > rajouter l'instruction Range("A2:K2").ClearContents
| > Alors ça c'est pour le classeur sur lequel j'ai
fait des tests. Par
contre
| > s'il ne faut pas effacer mais vérifier s'il existe
dans la table,
alors je
| > te propose d'y rajouter le code suivant juste après
les 2
instructions de
| > création d'objet Automation et avant rsClient.
AddNew :
| > 'Vérification de l'enregistrement est bien
inexistant dans la
table
|--> icirsClient.Seek "=", strID
If Not rsClient.NoMatch Then
Beep
MsgBox "Ce client a déjà été saisi dans la
table", _
vbExclamation, "Attention doublon dans la
saisie"
Exit Sub
End If
'Sinon on ajoute les données
.
-----Message d'origine-----
Il faut juste rajouter l'instruction
rsClient.Index = "PrimaryKey"
| avant
| rsClient.Seek ...
|
| milles excuses
|
| > 2°) Pour eviter le risque de saisie de doublons, je
te conseille
d'effacer
| > la plage après envoi des données dans Access :
Juste avant End Sub,
il faut
| > rajouter l'instruction Range("A2:K2").ClearContents
| > Alors ça c'est pour le classeur sur lequel j'ai
fait des tests. Par
contre
| > s'il ne faut pas effacer mais vérifier s'il existe
dans la table,
alors je
| > te propose d'y rajouter le code suivant juste après
les 2
instructions de
| > création d'objet Automation et avant rsClient.
AddNew :
| > 'Vérification de l'enregistrement est bien
inexistant dans la
table
|--> icirsClient.Seek "=", strID
If Not rsClient.NoMatch Then
Beep
MsgBox "Ce client a déjà été saisi dans la
table", _
vbExclamation, "Attention doublon dans la
saisie"
Exit Sub
End If
'Sinon on ajoute les données
.
-----Message d'origine-----
Il faut juste rajouter l'instruction
rsClient.Index = "PrimaryKey"
| avant
| rsClient.Seek ...
|
| milles excuses
|
| > 2°) Pour eviter le risque de saisie de doublons, je
te conseille
d'effacer
| > la plage après envoi des données dans Access :
Juste avant End Sub,
il faut
| > rajouter l'instruction Range("A2:K2").ClearContents
| > Alors ça c'est pour le classeur sur lequel j'ai
fait des tests. Par
contre
| > s'il ne faut pas effacer mais vérifier s'il existe
dans la table,
alors je
| > te propose d'y rajouter le code suivant juste après
les 2
instructions de
| > création d'objet Automation et avant rsClient.
AddNew :
| > 'Vérification de l'enregistrement est bien
inexistant dans la
table
|--> ici
rsClient.Seek "=", strID
If Not rsClient.NoMatch Then
Beep
MsgBox "Ce client a déjà été saisi dans la
table", _
vbExclamation, "Attention doublon dans la
saisie"
Exit Sub
End If
'Sinon on ajoute les données
.
-----Message d'origine-----
Il faut juste rajouter l'instruction
rsClient.Index = "PrimaryKey"
| avant
| rsClient.Seek ...
|
| milles excuses
|
| > 2°) Pour eviter le risque de saisie de doublons, je
te conseille
d'effacer
| > la plage après envoi des données dans Access :
Juste avant End Sub,
il faut
| > rajouter l'instruction Range("A2:K2").ClearContents
| > Alors ça c'est pour le classeur sur lequel j'ai
fait des tests. Par
contre
| > s'il ne faut pas effacer mais vérifier s'il existe
dans la table,
alors je
| > te propose d'y rajouter le code suivant juste après
les 2
instructions de
| > création d'objet Automation et avant rsClient.
AddNew :
| > 'Vérification de l'enregistrement est bien
inexistant dans la
table
|--> icirsClient.Seek "=", strID
If Not rsClient.NoMatch Then
Beep
MsgBox "Ce client a déjà été saisi dans la
table", _
vbExclamation, "Attention doublon dans la
saisie"
Exit Sub
End If
'Sinon on ajoute les données
.
-----Message d'origine-----
Bonjour,
Est-ce que ta table contient une clé primaire ?
L'instruction rsClient.Index
= "PrimaryKey" lance la recherche sur un champ d'après son
index du
Recordset (table) rsClient. La méthode Seek est emm... si
on fait des
recherches sur des valeurs en double. Son intérêt est
d'être utile sur les
champs indexés sans doublons comme les clés primaires
(primary key).
Vérifie et tiens nous au courrant !
A+
a écrit dans le
message de news:
1d9601c4a0fc$eff83380$
j'ai bien suivit vos conseils mais ya un problème au
niveau
la procédure qui est doit faire la comparaison entre excel
et accès ya un beug au niveau de l'instruction >rsClient.
Index = "PrimaryKey" qui affiche un message d'erreur qui
me
dis objet non autorisé. De plus je voulais préciser que le
context de message box est sympa mais pas nécessaire pour
moi, je veux tout simplement que la procédure modifier un
client si un renseignement de donnée est changé ou tout
simplement qu'il ajoute les clients qui ont été saisie
dans
la plage de donée. Si vous avez besoin de renseignement
n'ésitez pas à me demander. Merci-----Message d'origine-----
Il faut juste rajouter l'instruction
rsClient.Index = "PrimaryKey"
| avant
| rsClient.Seek ...
|
| milles excuses
|
| > 2°) Pour eviter le risque de saisie de doublons,
je
te conseilled'effacer
| > la plage après envoi des données dans Access :
Juste avant End Sub,il faut
| > rajouter l'instruction Range("A2:K2").
ClearContents
| > Alors ça c'est pour le classeur sur lequel j'ai
fait des tests. Parcontre
| > s'il ne faut pas effacer mais vérifier s'il existe
dans la table,alors je
| > te propose d'y rajouter le code suivant juste
après
les 2instructions de
| > création d'objet Automation et avant rsClient.
AddNew :| > 'Vérification de l'enregistrement est bien
inexistant dans latable
|--> icirsClient.Seek "=", strID
If Not rsClient.NoMatch Then
Beep
MsgBox "Ce client a déjà été saisi dans la
table", _vbExclamation, "Attention doublon dans
la
saisie"Exit Sub
End If
'Sinon on ajoute les données
.
.
-----Message d'origine-----
Bonjour,
Est-ce que ta table contient une clé primaire ?
L'instruction rsClient.Index
= "PrimaryKey" lance la recherche sur un champ d'après son
index du
Recordset (table) rsClient. La méthode Seek est emm... si
on fait des
recherches sur des valeurs en double. Son intérêt est
d'être utile sur les
champs indexés sans doublons comme les clés primaires
(primary key).
Vérifie et tiens nous au courrant !
A+
<anonymous@discussions.microsoft.com> a écrit dans le
message de news:
1d9601c4a0fc$eff83380$a601280a@phx.gbl...
j'ai bien suivit vos conseils mais ya un problème au
niveau
la procédure qui est doit faire la comparaison entre excel
et accès ya un beug au niveau de l'instruction >rsClient.
Index = "PrimaryKey" qui affiche un message d'erreur qui
me
dis objet non autorisé. De plus je voulais préciser que le
context de message box est sympa mais pas nécessaire pour
moi, je veux tout simplement que la procédure modifier un
client si un renseignement de donnée est changé ou tout
simplement qu'il ajoute les clients qui ont été saisie
dans
la plage de donée. Si vous avez besoin de renseignement
n'ésitez pas à me demander. Merci
-----Message d'origine-----
Il faut juste rajouter l'instruction
rsClient.Index = "PrimaryKey"
| avant
| rsClient.Seek ...
|
| milles excuses
|
| > 2°) Pour eviter le risque de saisie de doublons,
je
te conseille
d'effacer
| > la plage après envoi des données dans Access :
Juste avant End Sub,
il faut
| > rajouter l'instruction Range("A2:K2").
ClearContents
| > Alors ça c'est pour le classeur sur lequel j'ai
fait des tests. Par
contre
| > s'il ne faut pas effacer mais vérifier s'il existe
dans la table,
alors je
| > te propose d'y rajouter le code suivant juste
après
les 2
instructions de
| > création d'objet Automation et avant rsClient.
AddNew :
| > 'Vérification de l'enregistrement est bien
inexistant dans la
table
|--> ici
rsClient.Seek "=", strID
If Not rsClient.NoMatch Then
Beep
MsgBox "Ce client a déjà été saisi dans la
table", _
vbExclamation, "Attention doublon dans
la
saisie"
Exit Sub
End If
'Sinon on ajoute les données
.
.
-----Message d'origine-----
Bonjour,
Est-ce que ta table contient une clé primaire ?
L'instruction rsClient.Index
= "PrimaryKey" lance la recherche sur un champ d'après son
index du
Recordset (table) rsClient. La méthode Seek est emm... si
on fait des
recherches sur des valeurs en double. Son intérêt est
d'être utile sur les
champs indexés sans doublons comme les clés primaires
(primary key).
Vérifie et tiens nous au courrant !
A+
a écrit dans le
message de news:
1d9601c4a0fc$eff83380$
j'ai bien suivit vos conseils mais ya un problème au
niveau
la procédure qui est doit faire la comparaison entre excel
et accès ya un beug au niveau de l'instruction >rsClient.
Index = "PrimaryKey" qui affiche un message d'erreur qui
me
dis objet non autorisé. De plus je voulais préciser que le
context de message box est sympa mais pas nécessaire pour
moi, je veux tout simplement que la procédure modifier un
client si un renseignement de donnée est changé ou tout
simplement qu'il ajoute les clients qui ont été saisie
dans
la plage de donée. Si vous avez besoin de renseignement
n'ésitez pas à me demander. Merci-----Message d'origine-----
Il faut juste rajouter l'instruction
rsClient.Index = "PrimaryKey"
| avant
| rsClient.Seek ...
|
| milles excuses
|
| > 2°) Pour eviter le risque de saisie de doublons,
je
te conseilled'effacer
| > la plage après envoi des données dans Access :
Juste avant End Sub,il faut
| > rajouter l'instruction Range("A2:K2").
ClearContents
| > Alors ça c'est pour le classeur sur lequel j'ai
fait des tests. Parcontre
| > s'il ne faut pas effacer mais vérifier s'il existe
dans la table,alors je
| > te propose d'y rajouter le code suivant juste
après
les 2instructions de
| > création d'objet Automation et avant rsClient.
AddNew :| > 'Vérification de l'enregistrement est bien
inexistant dans latable
|--> icirsClient.Seek "=", strID
If Not rsClient.NoMatch Then
Beep
MsgBox "Ce client a déjà été saisi dans la
table", _vbExclamation, "Attention doublon dans
la
saisie"Exit Sub
End If
'Sinon on ajoute les données
.
.
-----Message d'origine-----
Bonjour,
Est-ce que ta table contient une clé primaire ?
L'instruction rsClient.Index
= "PrimaryKey" lance la recherche sur un champ d'après son
index du
Recordset (table) rsClient. La méthode Seek est emm... si
on fait des
recherches sur des valeurs en double. Son intérêt est
d'être utile sur les
champs indexés sans doublons comme les clés primaires
(primary key).
Vérifie et tiens nous au courrant !
A+
a écrit dans le
message de news:
1d9601c4a0fc$eff83380$
j'ai bien suivit vos conseils mais ya un problème au
niveau
la procédure qui est doit faire la comparaison entre excel
et accès ya un beug au niveau de l'instruction >rsClient.
Index = "PrimaryKey" qui affiche un message d'erreur qui
me
dis objet non autorisé. De plus je voulais préciser que le
context de message box est sympa mais pas nécessaire pour
moi, je veux tout simplement que la procédure modifier un
client si un renseignement de donnée est changé ou tout
simplement qu'il ajoute les clients qui ont été saisie
dans
la plage de donée. Si vous avez besoin de renseignement
n'ésitez pas à me demander. Merci-----Message d'origine-----
Il faut juste rajouter l'instruction
rsClient.Index = "PrimaryKey"
| avant
| rsClient.Seek ...
|
| milles excuses
|
| > 2°) Pour eviter le risque de saisie de doublons,
je
te conseilled'effacer
| > la plage après envoi des données dans Access :
Juste avant End Sub,il faut
| > rajouter l'instruction Range("A2:K2").
ClearContents
| > Alors ça c'est pour le classeur sur lequel j'ai
fait des tests. Parcontre
| > s'il ne faut pas effacer mais vérifier s'il existe
dans la table,alors je
| > te propose d'y rajouter le code suivant juste
après
les 2instructions de
| > création d'objet Automation et avant rsClient.
AddNew :| > 'Vérification de l'enregistrement est bien
inexistant dans latable
|--> icirsClient.Seek "=", strID
If Not rsClient.NoMatch Then
Beep
MsgBox "Ce client a déjà été saisi dans la
table", _vbExclamation, "Attention doublon dans
la
saisie"Exit Sub
End If
'Sinon on ajoute les données
.
.
-----Message d'origine-----
Bonjour,
Est-ce que ta table contient une clé primaire ?
L'instruction rsClient.Index
= "PrimaryKey" lance la recherche sur un champ d'après son
index du
Recordset (table) rsClient. La méthode Seek est emm... si
on fait des
recherches sur des valeurs en double. Son intérêt est
d'être utile sur les
champs indexés sans doublons comme les clés primaires
(primary key).
Vérifie et tiens nous au courrant !
A+
<anonymous@discussions.microsoft.com> a écrit dans le
message de news:
1d9601c4a0fc$eff83380$a601280a@phx.gbl...
j'ai bien suivit vos conseils mais ya un problème au
niveau
la procédure qui est doit faire la comparaison entre excel
et accès ya un beug au niveau de l'instruction >rsClient.
Index = "PrimaryKey" qui affiche un message d'erreur qui
me
dis objet non autorisé. De plus je voulais préciser que le
context de message box est sympa mais pas nécessaire pour
moi, je veux tout simplement que la procédure modifier un
client si un renseignement de donnée est changé ou tout
simplement qu'il ajoute les clients qui ont été saisie
dans
la plage de donée. Si vous avez besoin de renseignement
n'ésitez pas à me demander. Merci
-----Message d'origine-----
Il faut juste rajouter l'instruction
rsClient.Index = "PrimaryKey"
| avant
| rsClient.Seek ...
|
| milles excuses
|
| > 2°) Pour eviter le risque de saisie de doublons,
je
te conseille
d'effacer
| > la plage après envoi des données dans Access :
Juste avant End Sub,
il faut
| > rajouter l'instruction Range("A2:K2").
ClearContents
| > Alors ça c'est pour le classeur sur lequel j'ai
fait des tests. Par
contre
| > s'il ne faut pas effacer mais vérifier s'il existe
dans la table,
alors je
| > te propose d'y rajouter le code suivant juste
après
les 2
instructions de
| > création d'objet Automation et avant rsClient.
AddNew :
| > 'Vérification de l'enregistrement est bien
inexistant dans la
table
|--> ici
rsClient.Seek "=", strID
If Not rsClient.NoMatch Then
Beep
MsgBox "Ce client a déjà été saisi dans la
table", _
vbExclamation, "Attention doublon dans
la
saisie"
Exit Sub
End If
'Sinon on ajoute les données
.
.
-----Message d'origine-----
Bonjour,
Est-ce que ta table contient une clé primaire ?
L'instruction rsClient.Index
= "PrimaryKey" lance la recherche sur un champ d'après son
index du
Recordset (table) rsClient. La méthode Seek est emm... si
on fait des
recherches sur des valeurs en double. Son intérêt est
d'être utile sur les
champs indexés sans doublons comme les clés primaires
(primary key).
Vérifie et tiens nous au courrant !
A+
a écrit dans le
message de news:
1d9601c4a0fc$eff83380$
j'ai bien suivit vos conseils mais ya un problème au
niveau
la procédure qui est doit faire la comparaison entre excel
et accès ya un beug au niveau de l'instruction >rsClient.
Index = "PrimaryKey" qui affiche un message d'erreur qui
me
dis objet non autorisé. De plus je voulais préciser que le
context de message box est sympa mais pas nécessaire pour
moi, je veux tout simplement que la procédure modifier un
client si un renseignement de donnée est changé ou tout
simplement qu'il ajoute les clients qui ont été saisie
dans
la plage de donée. Si vous avez besoin de renseignement
n'ésitez pas à me demander. Merci-----Message d'origine-----
Il faut juste rajouter l'instruction
rsClient.Index = "PrimaryKey"
| avant
| rsClient.Seek ...
|
| milles excuses
|
| > 2°) Pour eviter le risque de saisie de doublons,
je
te conseilled'effacer
| > la plage après envoi des données dans Access :
Juste avant End Sub,il faut
| > rajouter l'instruction Range("A2:K2").
ClearContents
| > Alors ça c'est pour le classeur sur lequel j'ai
fait des tests. Parcontre
| > s'il ne faut pas effacer mais vérifier s'il existe
dans la table,alors je
| > te propose d'y rajouter le code suivant juste
après
les 2instructions de
| > création d'objet Automation et avant rsClient.
AddNew :| > 'Vérification de l'enregistrement est bien
inexistant dans latable
|--> icirsClient.Seek "=", strID
If Not rsClient.NoMatch Then
Beep
MsgBox "Ce client a déjà été saisi dans la
table", _vbExclamation, "Attention doublon dans
la
saisie"Exit Sub
End If
'Sinon on ajoute les données
.
.