Génération des fiches de prêt
1. Formulaire Frm_Fiche_Pret Formulaire
Le formulaire Frm_Fiche_Pret permet :
-
de renseigner la date du prêt et les coordonnées du client emprunteur,
-
de générer les fiches de prêt au format PDF (traitement similaire à celui des fiches produits, mais basé sur un modèle différent),
-
d’indiquer la date du prêt et les coordonnées du client pour les produits sélectionnés dans la feuille Stock.
|
N° |
Nom du contrôle |
Description |
|
1. |
txtDate |
Zone de texte |
|
2. |
txtClient |
Zone de texte |
|
3. |
txtAdresse1 |
Zone de texte |
|
4. |
txtAdresse2 |
Zone de texte |
|
5. |
txtCpVille |
Zone de texte |
|
6. |
btFichesPret |
Bouton de commande |
2. Code VBA du formulaire Frm_Fiche_Pret
Option Explicit
' Saisie de la date
Private Sub txtDate_Change()
txtDate = FormateDate(txtDate)
End Sub
Private Sub txtDate_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
KeyAscii = IntChar(KeyAscii)
End Sub
Private Sub btFichesPret_Click()
' Contrôle saisie
If txtDate & Space(0) = "" Then
MsgBox "Date du Prêt obligatoire", vbExclamation
txtDate.SetFocus
Exit Sub
End If
If txtClient & Space(0) = "" Then
MsgBox "Nom du client obligatoire", vbExclamation
...
Conditions générales d'utilisationCopyright - © Editions ENI ||Politique de protection des données du groupe ENI