Replies

Yes, it OK now.Thank you

Dear Hans

I thank you for your reply which i applied. I think i have not explained correctly what i need. What i need is the following. In the items 1 and 2 from the report in the attachement, the words TurnedDown should be invisible and in item 3 the word TurnDown should be visible

Thank you in advance

Thank you, Dear Hans. My code now is great ! Super !

Thank you so much for your explanation.I get no errors now but i do not get the shortcuts.May be i cannot get them with the endings i include ?

Thank you very much for your email.I have rewritten my private function to be named GetDBZList and have written
GetDBZList Me = Mid$(strList, 3) so with your help it is all right with the function.

However in the OnLoad event of the form the line
GetDBZList = Me.txtFolder
is not correct,since it does not point to the desktop.What shall i right in this line?
Otherwise the OnLoad event as it is right now is :

Private Sub Form_Load()
Application.SetOption (“Show Hidden Objects”), False

Me.txtFolder = “C:BE”
GetDBList Me.txtFolder
GetDBZList Me.txtFolder
GetDBLnkList = Me.txtFolder
Me.txtDatabaseList = GetDBList(Me.txtFolder) & vbCrLf & GetDBZList(Me.txtFolder)
‘ Move to new record
RunCommand acCmdRecordsGoToNew
Me.txtFolder = “C:BEstore”
GetDBList Me.txtFolder
GetDBZList Me.txtFolder
GetDBLnkList = Me.txtFolder
Me.txtDatabaseList = GetDBList(Me.txtFolder) & vbCrLf & GetDBZList(Me.txtFolder)
‘ Move to new record
RunCommand acCmdRecordsGoToNew
Me.txtFolder = GetDesktop
GetDBList Me.txtFolder
GetDBZList Me.txtFolder
Me.txtDatabaseList = GetDBList(Me.txtFolder) & vbCrLf & GetDBZList(Me.txtFolder)

End Sub

Thank you in advance

In the attachement i have applied,and that works fine, i wanted to add on a code to get also the short cuts ending with .lnk on the desktop.I put the foolowing code:
Private Function ShortCuts (ByRef strPath As String) As String
Dim CheckFile As String
Dim strList As String
CheckFile = Dir(strPath & “/*.lnk”)
Do Until CheckFile = “”
strList = strList & vbCrLf & CheckFile
CheckFile = Dir
Loop
GetDBZList = Mid$(strList, 3)
End Function

Is my code all right? Because if it all right, i should look for my failure to perform somewhere else

Thank you in advance

thank you for the advice.Where could i ask for building a web interface ?

Oh My God ! There is not a single file with an ending mdb on my desktop ? I am awfully sorry !

Thank you so much for your advice.I applied it and it did work. Whwn i tried to intergate it in my coe however,i coldnt change the option.
What may be the reason for that?
Public Sub HideTables(f As Boolean)
‘To hide tables, use ‘and to unhide them, use HideTables False
Dim tbl As AccessObject
For Each tbl In CurrentData.AllTables
If Not Left(tbl.Name, 4) = “MSys” Then
Application.SetHiddenAttribute acTable, tbl.Name, f
End If
Next tbl
Set tbl = Nothing
Application.SetOption “Show Hidden Objects”, f
End Sub

CopyFile may be not the right word, maybe copy object,but what i need to know is can i copy a query from Database B , rename it and send it to Database C ?
Access is so powerful, perhaps there exists a possibility to copy a query through code from one database to another.

I want it to do it automatically by code, since this process repeats itslef with me many times.I need a code something like
FileCopy(….
Is it possible ?

Thank you !!!!! It works perfect and i have made now my first table orders1 in the way you have proposed.
I came accross difficulties with the table [order details], since there is no field orderdate and naturally i will get errors.
Is there any way to extract the data for the table [order details],matching the orders for
the given interval?
The tables orders and order details are related with one to many relationship.The connecting field is orderid for both tables
So,my question is, can i make a new table [order details1],based on the table orders1 ?

The following function naturally is erroneous for the second table,since there is no field orderdate:
Public Function Dummy()
Dim SQL As String
SQL = “SELECT * INTO orders1 FROM orders WHERE orders.orderdate Between #3/31/2005# And #4/18/2005#”
CurrentDb.Execute SQL
SQL = “SELECT * INTO [order details1] FROM [order details] WHERE [order details].orderdate Between #3/31/2005# And #4/18/2005#”
CurrentDb.Execute SQL
End Function

Dear Hans,

My database is flying now i am very proud of it but i am fair enough to tell my friends
that i have done it with the help of this excellent Forum.

kind regards

I have omitted to place the fields on the table,but my problem remains.Of course i could set the afid to 4 with an upadate query,but it does not solve my
problem.Differemt users are using the form, and each user has different office number.For example, for on user the office number is 3 and for another 5.
My question is:Can i set all the records in the OnOpen event on the control afid to the number of the office?
If i do not solve my problem it will be due to my inability to describe reasonably what i am trying to do.

kind regards

Dear Hans,
Could you please have a look at my form? The default value of the office is 4,but i get
the error Too few parameters.enter1.
I am afraid i commit some mistake somewhere

kind regards