Exporting Data from an Access Database
TextBox: txtFileName
txtDatabaseName
CommandButton: cmdExport
Label: Label1
Option Explicit
' Export the file.
Private Sub cmdExport_Click()
Dim fnum As Integer
Dim file_name As String
Dim database_name As String
Dim db As Database
Dim rs...
Ban nen dung code sau:
Private Sub mnuExit_Click()
Dim iFormCount As Integer
For iFormCount = Forms.Count - 1 To 0 Step -1
Unload Forms(iFormCount)
Next iFormCount
End Sub
Thanh Binh - Viet Nam
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.