A voir également:
- [Access]
- Access appdata - Guide
- Exemple base de données access à télécharger gratuit ✓ - Forum Logiciels
- Port access - Forum Réseau
- Acer quick access ✓ - Forum Windows
- Controller access network - Télécharger - Contrôle parental
3 réponses
fl0
Messages postés
357
Date d'inscription
lundi 5 mars 2007
Statut
Membre
Dernière intervention
10 novembre 2021
209
17 avril 2007 à 11:51
17 avril 2007 à 11:51
si c'est pour verifier qu'il a ete emprunté par un stagiaire precis
Ce que je vais te proposer est en VBa
Sql = "SELECT Emprunt.Referencestagiaire FROM Emprunt"
Sql = Sql & " WHERE (((Emprunt.Referencestagiaire ) = "refstagiaire que tu veut")) "
Sql=Sql & "UNION"
Sql=Sql & "SELECT Emprunt.Referencelivre FROM Emprunt"
Sql = Sql & " WHERE (((Emprunt.Referencelivre) = "reflivre que tu veut")) "
DoCmd.DeleteObject acQuery, "ref"
CurrentDb.CreateQueryDef "ref", Sql
Set Qry = CurrentDb.QueryDefs("ref")
Set rs = Qry.OpenRecordset
if not rs.eof then
MsgBox("Ce livre a deja ete emprunté par ce stagiaire")
else
tu mets ici le code pour emprunter le livre
end if
Set Qry = Nothing
Set rs = Nothing
Ce que je vais te proposer est en VBa
Sql = "SELECT Emprunt.Referencestagiaire FROM Emprunt"
Sql = Sql & " WHERE (((Emprunt.Referencestagiaire ) = "refstagiaire que tu veut")) "
Sql=Sql & "UNION"
Sql=Sql & "SELECT Emprunt.Referencelivre FROM Emprunt"
Sql = Sql & " WHERE (((Emprunt.Referencelivre) = "reflivre que tu veut")) "
DoCmd.DeleteObject acQuery, "ref"
CurrentDb.CreateQueryDef "ref", Sql
Set Qry = CurrentDb.QueryDefs("ref")
Set rs = Qry.OpenRecordset
if not rs.eof then
MsgBox("Ce livre a deja ete emprunté par ce stagiaire")
else
tu mets ici le code pour emprunter le livre
end if
Set Qry = Nothing
Set rs = Nothing
fl0
Messages postés
357
Date d'inscription
lundi 5 mars 2007
Statut
Membre
Dernière intervention
10 novembre 2021
209
17 avril 2007 à 16:15
17 avril 2007 à 16:15
Oubli UNION essaye plutot INTER