d'empécher à l'utilisateur de changer le nom de la sauvegardeRésolu

Question

bonsoir
voila j'ai se code pour sauvegarder ma base Access

Private Sub Command1_Click()
On Error GoTo erreur
Dim Nouvfich As String
com1.DialogTitle = "Sauvegarder la base de donnée"
com1.DefaultExt = ".MDB"
com1.FileName = "centre_aéré"
com1.flags = &H1004
com1.Filter = "Fichier ACCESS (*.mdb)|*.mdb"
com1.ShowSave
Nouvfich = com1.FileName
    If Len(com1.FileName) < 1 Then
        MsgBox "Vous n'avez pas choisi de fichier", vbInformation
        TxSauve = ""
        Exit Sub
    End If
CopyFile App.Path & "\BD\centre_aéré.mdb", Nouvfich, False
MsgBox "La base de donnée a été bien sauvegarder", vbInformation + vbOKOnly, "centre aéré"
erreur:
If Err = 32755 Then
    Exit Sub
End If
Unload Me
End Sub
est il possible d'empécher à l'utilisateur de changer le nom de la sauvegarde (com1.FileName ) 
merci
Petchy

Renfield · Accepted Answer

fais le choisir en ce cas un dossier, et non un fichier

http://www.vbfrance.com/codes/SELECTION-DOSSIER-AVEC-BOUTON-NOUVEAU-DOSSIER_17270.aspx

cs_petchy · Answer

Salut
merci de ta réponse,c'est se que je vais faire.
petchy

D'empécher à l'utilisateur de changer le nom de la sauvegarde

2 réponses

Votre réponse

Discussions similaires