Forum d'assistance informatique - LM2I

traitement d'un fichier d'une liste d'un formulaire:

Private Sub L_Fichier_DblClick(Cancel As Integer)
Dim nomb As String
Dim ctl As String
Dim cmd As String
Dim leChemin As String
Dim MyName As String
' Dim MyPath As String
' Dim Ligne As Integer
' Dim Ligne2 As Integer


DoCmd.SetWarnings False

DoCmd.RunSQL "Drop Table Import"
DoCmd.RunSQL "Drop Table Theme"
leChemin = "e:BaseImport"

ctl = leChemin & Me.L_Fichier.Value


DoCmd.TransferSpreadsheet acImport, 8, "Import", ctl, True, "Import"
DoCmd.TransferSpreadsheet acImport, 8, ...

recup de la liste de fichier d'un repertoire et stockage dans un formulaire:

Private Sub Form_Open(Cancel As Integer)
Dim MyName As String
Dim MyPath As String
Dim Ligne As Integer
Dim Ligne2 As Integer
Dim cmd As String

DoCmd.RunCommand acCmdDocMaximize
Me.t_Theme.Visible = False
Me.à‰tiquette23.Visible = False

DoCmd.Close acForm, "Menu_Visu"

Me.C_Consult.Visible = False

DoCmd.SetWarnings False
DoCmd.RunSQL "Delete * from Tb_Fichier"

Ligne = 0
MyPath = "e:BaseImport"
MyName = Dir(MyPath, vbDirectory)
Do While MyName <> ""
If ...

lancer une requete SQL:

DoCmd.RunSQL "delete * from Base"

redimentionner l'element selectionner:

DoCmd.MoveSize 1, 1, 15000, 25000

export d'un fichier avec verification de presence du fichier:

Code: Tout sélectionner

Private Sub export_base_Click()
    Dim Fichier As String
    Dim fichierold As String
   
    Fichier = "e:Prospect-2000ExportBase.txt"
    fichierold = Fichier & ".old"
    If Dir(Fichier) <> "" Then
        If Dir(fichierold) <> "" Then
        Kill fichierold
        End If
    Name Fichier As fichierold
    End If
    DoCmd.SetWarnings False
    DoCmd.TransferText acExportDelim, "Base Spécification d'exportation", "Base", Fichier, True, ""
    DoCmd.SetWarnings True
    MsgBox " Exportation réussie", vbOKOnly, "OK"

End Sub

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:

Me.Fille25.Visible = False/True

formulaire

Me = le form
dif_date_ms = nom d'un champ
Requery = Actualise (recalcule)


=>
Me.dif_date_ms.Requery

fermer un formulaire:
DoCmd.Close acForm, "Menu"

agrandir le formulaire pleine page:

DoCmd.RunCommand acCmdDocMaximize

reduire l'element selectionner:
DoCmd.Minimize