1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
| Sub creerRequeteDUE(unId As Long)
'Créé une requête concernant la déclaration unique d'embauche qu'on veut imprimer
Dim strSQL As String, requete As QueryDef
On Error GoTo err_creationrequete
strSQL = "SELECT tPersonne.numMatricule, tPersonne.nom, tPersonne.nomJeuneFille, tPersonne.prenom, tPersonne.sexe, tPersonne.numSSMSA, tPersonne.nationalite, tPersonne.dateNaissance, tPersonne.lieuNaissance, tPersonne.paysNaissance, tPersonne.adresse1, tPersonne.adresse2, tPersonne.codePostal, tPersonne.ville, tContrat.dateDebut, tContrat.heure, tContrat.coefficient, tContrat.numEmploi, tContrat.numTypeContrat"
strSQL = strSQL & " FROM tPersonne INNER JOIN tContrat ON tPersonne.numPersonne = tContrat.numPersonne"
strSQL = strSQL & " WHERE tContrat.numContrat=" & unId
Set requete = CurrentDb.CreateQueryDef("rDUE", strSQL)
Exit Sub
err_creationrequete:
If err.Number = 3012 Then
CurrentDb.QueryDefs.Delete "rDUE"
Resume 0
Else
MsgBox err.Description & " " & err.Number
End If
End Sub |
Partager