fonction test

Question

bonjour,
je m'adresse a vous pour m'aider a trouver la solution concernant une base de donn&#233;es access 2.0 je veux une fonction test qui sert a controler l'existence d'un produit avant de valider l'enregistrement de ce dernier eviter le double enregistrement d'un meme produit.

c'est une fonction dans le module de access

cs_Tene · Answer

tu sais que ta question n'est pas clair?

Pour &#233;viter les doublons: lorsque tu as ta table en mode cr&#233;ation, il y a une propri&#233;t&#233; s'appelant Index&#233;, tu choisi Oui - Sans doublon et le probl&#232;me est r&#233;gl&#233;.

Pour v&#233;rifier l'existence d'un produit, voici une solution exploitant le DAO (ajouter la r&#233;f&#233;rence si besoin) :

Dim myRS as DAO.Recordset
Dim SQL as String
SQL "SELECT * FROM Produit WHERE Ref'"+ myValue +"';"
Set myRS = CurretnDb.Openrecordset(SQL, DAO.dbopendynaset)

if not myRS.EOF then
   'La r&#233;f&#233;rence existait
else
   'La r&#233;f&#233;rence n'existait pas => Ajout dans la base de donn&#233;es
   SQL = "INSERT INTO Produit..."
   CurrentDb.Execute SQL
end if

Set myRS = Nothing

computerist · Answer

bonjour,
je te remercie pour ton interet a mon probleme.
oui vous avez raison ma question n'est pas assez clair parce que je n'ai pas pu avoir une id&#233;e sur certaine chose mais maintenant j'ai avanc&#233; dans ma recherche et je souhaiterai te partager ce que j'ai eu comme id&#233;e.
je r&#233;explique: je travaille sur une base de donn&#233;e access c'est une application qui g&#232;re l'activit&#233; d'une client&#232;le de banque,mon probleme est le suivant:
quand l'utilisateur veut ajouter un produit a un client il click sur le bouton cr&#233;er apres ca lui sort un formulaire de saisie qui permet a l'utilisateur de selectionner le produit dans une liste deroulante apres c'est la saisie de la date d'operation en suite c'est le numero de compte,le montant le nom,le nombre de benificiaire etc...
alors moi ce que je veux c'est que quand je selectionne le produit assurance dans ma liste deroulante et que je saisis le numero_compte du client a ce moment la je veux une action ,un evenement qui teste l'existence du produit(assurance) attribu&#233; a ce numero de compte saisie en affichant un msgbox"stop contrat deja souscrit" comme ca on bloque l'enregistrement et l'utilisateur a travers ce message il saura que le client a deja souscrit le contrat donc pour conclure un numero de compte peut avoir un et un seul contrat d'assurance.
peux tu m'aider a resoudre ce probleme merci d'avance

computerist · Answer

autre chose a signaler je ne sais pas quel evenement je pourrai choisir sur le champ Num_Compte perte focus,sortie,entr&#233;e..... et je ne sais pas ce que tu ma donnait ca na pas march&#233; je l'ai modifi&#233; en fonction de mes champs et mes tables ca donne ca:

Dim myRS as DAO.Recordset
Dim SQL as String


SQL = "select DISTINCTROW
X_Transactions.Numero_compte from Transactions WHERE ((X_Transactions.Numero_compte = 'Numero_Compte') AND
(X_Transactions.code_produit = 8))"
Set myRS = CurretnDb.Openrecordset(SQL, DAO.dbopendynaset)


if not myRS.EOF then
   'Le contrat d'assurance est d&#233;ja souscrit pour le client
else
   'La r&#233;f&#233;rence n'existait pas => Ajout dans la base de donn&#233;es
   SQL = "INSERT INTO Produit..."
   CurrentDb.Execute SQL
end if


Set myRS = Nothing

tbbuim1 · Answer

Avec un dlookup tu peux vite t'en rendre compte.

Regarde dans l'aide Access...

Tu peux faire le test si un des n&#176; existe d&#233;j&#224;, ou encore mieux tu peux
d&#233;finir dans ta table un champ unique comme un num&#233;ro de sorte que si
ce mm num&#233;ro est donn&#233;, l'enregistrement ne fait pas, tout simplement.



Sinon tu peux tester le num&#233;ro par dlookup

ex:

if isnull(Dlookup("Num&#233;ro","Table ou rq","crit&#232;re")) then lancer la rq d'enregistrement
TBBUIM

computerist · Answer

oui mais le probleme c'est qu'il s'agit pas d'un seul produit pour declarer le champ unique.
c'est un formulaire de saisie pour ajouter un produit selectionner a partir d'une liste deroulante et ce qui me concerne c'est juste un et un seul produit que je veux qu'il soit bloquer en affichant un message qui informe l'utilisateur que ce client a deja souscrit pour ce produit(contrat d'assurance).

et ca je vais le mettre ne place quand on finis la saisie du champ numero de compte (test avec un bon evenement /event procedure/requete sql vba etc....
j'ai fait un effort et c'est grace a des participant au forum que j'ai arriv&#233; a mettre en place ce code
Dim oRst as DAO.Records
Dim oDb as DAO.Database Set oDb=CurrentDb Set oRst=oDb.OpenRecordset("select DISTINCTROW
X_Transactions.Numero_compte from Transactions WHERE ((X_Transactions.Numero_compte = 'Numero_Compte') AND
(X_Transactions.code_produit = 8)) quot;,dbOpenDynaset)
If oRst.RecordCount=0 then MsgBox "STOP CONTRAT DEJA SOUSCRIT POUR CE CLIENT", 48

computerist · Answer

franchement apres avoir chercher dlookup sur le help d'access j'ai trouv&#233; que c'est tres interessant comme fonction et si je veux la mettre en place vis a vis de mes besoins ca va nous donner ce code:X DLookup("[Numero_Compte]", "X_Transactions", "[Code_Produit] 8")
 comme ca la fonction va me trouver les numero de compte qui ont un code_produit=8

et il me sort le message stop deja souscrit mais je  ne sais pas ou la mettre dans quel evenement 
merci pour votre aide

Fonction test

6 réponses

Discussions similaires