you need to define the SendFax function. copy it somewhere :D
Public Function SendFax(ByVal strFaxNumber As String, _
ByVal strReport As String, _
Optional ByVal strName As String, _
Optional ByVal fLocal As Boolean = False, _...
just remove the popup code:
Dim dbPath As String
Dim OldDbName As String
Dim NewDbName As String
Dim DbBackup As String
Dim Response As Integer
Dim fs As Object
dbPath = Application.CurrentProject.path
OldDbName = "OldDatabaseName.mdb"
NewDbName = "BackUp" & "_" & Format(Date, "yyddmm") &...
Hi just wrote the code for you, hope its working:
assuming
the name of listbox is list0
the name of table is tablename
the name of fieldname is fieldname
Dim ValueToBeAdded As String
Dim varItem As Variant
ValueToBeAdded = ""
For Each varItem In Me![List0].ItemsSelected...
just make label/ textbox next to combo box.
after update of combo box copy this code
Private Sub Combo0_AfterUpdate()
Label2.Visible = True
End Sub
and in open form:
Private Sub Form_Open(Cancel As Integer)
Label2.Visible = False
End Sub
Thank for the tips.
Do you know if i can use Application.SaveAsText and Application.LoadFromText from other database?
like
Set msACC = GetObject(dbname)
mcACC.LoadFromText ? or mcACC.SaveAsText ?
because i have lots of excel documents, and need to go manually to each file to change some "string". right now im be able to manipulate table, module and query in access, thats why i want to integrate this functionality (editing macro) from excel file.