1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
|
Sub creation_form_livre()
Dim formulaire As Form
Dim ctrl As Control 'pour les boutons
Dim nom_form
Dim bouton_suiv As New Control
Dim bouton_prec As New Control
Dim bouton_retour As New Control
Set formulaire = CreateForm(, "Livre") 'création du formulaire
DoCmd.Restore
formulaire.Caption = "LES LIVRES" 'titre du formulaire
formulaire.RecordSource = "ALINE_LIVRE" ' appel de la table
'déclaration des champs
Set ctrl = CreateControl(formulaire.Name, acLabel, acDetail, , "Code livre", 100, 500, 1500, 1500)
Set ctrl = CreateControl(formulaire.Name, acTextBox, acDetail, , "code_l", 3000, 500, 800, 300)
ctrl.Locked = True
Set ctrl = CreateControl(formulaire.Name, acLabel, acDetail, , "Titre", 100, 1000, 1500, 1500)
Set ctrl = CreateControl(formulaire.Name, acTextBox, acDetail, , "titre", 3000, 1000, 3000, 300)
ctrl.Locked = True
Set ctrl = CreateControl(formulaire.Name, acLabel, acDetail, , "Description", 100, 1500, 1500, 1500)
Set ctrl = CreateControl(formulaire.Name, acTextBox, acDetail, , "description", 3000, 1500, 6000, 3000)
ctrl.Locked = True
Set bouton_prec = CreateControl(formulaire.Name, acCommandButton, acDetail, , , 3000, 5000, 1000, 500)
bouton_prec.Properties("caption") = "Précédent"
bouton_prec.OnClick = "=bouton_prec()"
Set bouton_suiv = CreateControl(formulaire.Name, acCommandButton, acDetail, , , 5000, 5000, 1000, 500)
bouton_suiv.Properties("caption") = "Suivant"
bouton_suiv.OnClick = "=bouton_suiv()"
Set bouton_retour = CreateControl(formulaire.Name, acCommandButton, acDetail, , , 7000, 5000, 1000, 500)
bouton_retour.Properties("caption") = "RETOUR"
bouton_retour.OnClick = "=retour_consultation()"
nom_form = formulaire.Name 'prend le nom de mon formulaire
DoCmd.Close acForm, formulaire.Name, acSaveYes 'save automatique du fomulaire
DoCmd.Rename "form_livre", acForm, nom_form 'renomme le form
DoCmd.OpenForm ("form_livre") 'reouvre le form
End Sub
Function bouton_prec()
If formulaire.CurrentRecord > 1 Then
formulaire!bouton_prec.Enabled = True
DoCmd.GoToRecord , , acPrevious
Else
formulaire!bouton_prec.Enabled = False
End If
End Function |
Partager