3 réponses
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
