Forum d'assistance informatique - LM2I

lancer une requete SQL:

DoCmd.RunSQL "delete * from Base"

redimentionner l'element selectionner:

DoCmd.MoveSize 1, 1, 15000, 25000

modifier un filtre:

Code: Tout sélectionner

Private Sub Ville_AfterUpdate()
Dim flt As String
Dim frm1 As Form
Dim frm2 As Form


flt = "((R_base_AC_MS.VILLE = '" & Me.Ville & "'))"
Set frm1 = Form_F_base_AC_MS
Form_F_base_AC_MS.Filter = flt

Form_F_base_AC_MS.FilterOn = True

flt = "((R_base_AC_Rue.VILLE = '" & Me.Ville & "'))"
Set frm2 = Form_F_base_AC_Rue
Form_F_base_AC_Rue.Filter = flt

Form_F_base_AC_Rue.FilterOn = True

Me.F_base_AC_MS.Requery
Me.Fille25.Requery
End Sub

afficher/masquer un composant de formulaire:

Code: Tout sélectionner

Me.Fille25.Visible = False/True

fermer un formulaire:

Code: Tout sélectionner

DoCmd.Close acForm, "Menu"

agrandir le formulaire pleine page:

Code: Tout sélectionner

DoCmd.RunCommand acCmdDocMaximize

reduire l'element selectionner:

Code: Tout sélectionner

DoCmd.Minimize

export d'un fichier en xls:

Code: Tout sélectionner

DoCmd.TransferSpreadsheet acExport, 8, "table", "c:exportactions.xls", False, ""

lancer une requete:

Code: Tout sélectionner

DoCmd.OpenQuery "nom requete"

active/desactive les alertes:

Code: Tout sélectionner

DoCmd.SetWarnings False/True

fermer la base:

Code: Tout sélectionner

DoCmd.Quit