Replies

In addition to local web servers for development, we have SourceSafe on the same machine as the production Web Server. Do you see a problem having both on the same WinXP Pro box? The website is an internal departmental site to be used by about a dozen people. Any reason to put the web server on a separate box? (trying to work on the cheap here.)

Thanks,

Thanks Charlotte. We installed Visual Source Safe and believe this to be a safer way for multiple developers to work on projects.
Best Regards,

I suspect, but am not sure, that the problem may be the rowsource of your list box. The rowsource for the listbox on my form has two text fields, [CLIENT], [Client Name] The users selections are put into a text string and the report that is generated is filtered by a text string. If you are trying to build the WHERE clause with something other than text, you need to modify the SelectClients() function slightly to accomodate the data type of your bound field.
Hope this helps.

I suspect, but am not sure, that the problem may be the rowsource of your list box. The rowsource for the listbox on my form has two text fields, [CLIENT], [Client Name] The users selections are put into a text string and the report that is generated is filtered by a text string. If you are trying to build the WHERE clause with something other than text, you need to modify the SelectClients() function slightly to accomodate the data type of your bound field.
Hope this helps.

There is a button on my form “cmdOpenReport” that does this:

Private Sub cmdOpenReport_Click()
On Error Resume Next

dim mstrRpt as string
mstrRpt = “rptClientInventorySummary”

DoCmd.OpenReport mstrRpt, acViewPreview, , SelectedClients()

End Sub

The report gets its data from the query “qryClientInventory” that selects, among other things, Client Number ([CLIENT]), Client Name, Inventory details…
The public function SelectedClients() returns a WHERE clause used in the DoCmd.OpenReport mstrRpt statement above. The WHERE clause looks like this
“[CLIENT]= ‘11124’ Or [CLIENT]= ‘11128’ Or [CLIENT]= ‘11134’”
SelectedClients() returns data type string.

There is a button on my form “cmdOpenReport” that does this:

Private Sub cmdOpenReport_Click()
On Error Resume Next

dim mstrRpt as string
mstrRpt = “rptClientInventorySummary”

DoCmd.OpenReport mstrRpt, acViewPreview, , SelectedClients()

End Sub

The report gets its data from the query “qryClientInventory” that selects, among other things, Client Number ([CLIENT]), Client Name, Inventory details…
The public function SelectedClients() returns a WHERE clause used in the DoCmd.OpenReport mstrRpt statement above. The WHERE clause looks like this
“[CLIENT]= ‘11124’ Or [CLIENT]= ‘11128’ Or [CLIENT]= ‘11134’”
SelectedClients() returns data type string.

I have a multiselect listbox “lstSelectClients” that lists each of our clients. The user can select multiple clients from this list. There is an “After Update” event on this list box that calls this procedure:
””””””””””””””””””””””””””””””””””””””””””””””””””””””””””’
‘for any form where users need to select multiple clients from a multiselect list box. This functions returns a WHERE statement that can be used in queries, report filters, or other procedures.

‘returned string looks like this:
‘ “[CLIENT]= ‘11124’ Or [CLIENT]= ‘11128’ Or [CLIENT]= ‘11134’”
‘
‘
Public Function SelectedClients() As String
‘create filter for selected records
Dim ctlSource As Control
Dim strItems As String
Dim intCurrentRow As Integer
Dim intStringLength As Integer
Dim strAster As String
Dim strQuote As String
strQuote = Chr(34)
strAster = Chr(42)
‘put your form name here.
Set ctlSource = Forms![frm_Your_Form_Here]!lstSelectClients

‘evaluate number of items on list to make the filter query
‘processes more than one item
For intCurrentRow = 0 To ctlSource.ListCount – 1
If ctlSource.Selected(intCurrentRow) Then
strItems = strItems & “[CLIENT]= ” & “‘” & ctlSource.Column(0, _
intCurrentRow) & “‘” & ” Or ”
End If
Next intCurrentRow

‘remove the last “Or” from the search string
intStringLength = Len(strItems)

If intStringLength = 0 Then
‘If user does not select any clients from the list, the WHERE clause returns a wildcard
strItems = “[CLIENT] Like ” & “‘” & strAster & “‘”
Else
strItems = Left(strItems, (intStringLength – 4))
End If
‘pass value to function
SelectedClients = strItems

‘Reset destination control’s RowSource property.
Set ctlSource = Nothing

End Function
””””””””””””””””””””””””’
In your query, put SelectedClients() as the parameter for selection.
There are probably other ways to skin this cat but this works for me. Hope this helps.

I have a multiselect listbox “lstSelectClients” that lists each of our clients. The user can select multiple clients from this list. There is an “After Update” event on this list box that calls this procedure:
””””””””””””””””””””””””””””””””””””””””””””””””””””””””””’
‘for any form where users need to select multiple clients from a multiselect list box. This functions returns a WHERE statement that can be used in queries, report filters, or other procedures.

‘returned string looks like this:
‘ “[CLIENT]= ‘11124’ Or [CLIENT]= ‘11128’ Or [CLIENT]= ‘11134’”
‘
‘
Public Function SelectedClients() As String
‘create filter for selected records
Dim ctlSource As Control
Dim strItems As String
Dim intCurrentRow As Integer
Dim intStringLength As Integer
Dim strAster As String
Dim strQuote As String
strQuote = Chr(34)
strAster = Chr(42)
‘put your form name here.
Set ctlSource = Forms![frm_Your_Form_Here]!lstSelectClients

‘evaluate number of items on list to make the filter query
‘processes more than one item
For intCurrentRow = 0 To ctlSource.ListCount – 1
If ctlSource.Selected(intCurrentRow) Then
strItems = strItems & “[CLIENT]= ” & “‘” & ctlSource.Column(0, _
intCurrentRow) & “‘” & ” Or ”
End If
Next intCurrentRow

‘remove the last “Or” from the search string
intStringLength = Len(strItems)

If intStringLength = 0 Then
‘If user does not select any clients from the list, the WHERE clause returns a wildcard
strItems = “[CLIENT] Like ” & “‘” & strAster & “‘”
Else
strItems = Left(strItems, (intStringLength – 4))
End If
‘pass value to function
SelectedClients = strItems

‘Reset destination control’s RowSource property.
Set ctlSource = Nothing

End Function
””””””””””””””””””””””””’
In your query, put SelectedClients() as the parameter for selection.
There are probably other ways to skin this cat but this works for me. Hope this helps.

I had a similar experience where I had to explicitly reference the controls with something like forms!frmName1!ctrControl.value and make sure the parent child link in the properties box was correct.
Hope this helps.

I had a similar experience where I had to explicitly reference the controls with something like forms!frmName1!ctrControl.value and make sure the parent child link in the properties box was correct.
Hope this helps.

ZAve,
This code works great. Many thanks for your help. I have implemented it successfully.

ZAve,
This code works great. Many thanks for your help. I have implemented it successfully.

Mark,
Thanks for your help. I am able to GET files successfully if they are 8.3 names. I am working on the GetShortPathNames function now. I just found out that not all the users are using AccessXP. It turns out that some still use A97. I am going to make a run-time version to load on their laptops and see if it works.

Thanks again.

Mark,
Thanks. I found some examples in MSKB. I tried this behind a command button:
Inet3.Execute “ftp://www.somesite.com”, _
“GET UserUpdates.txt C:My DatabasesUserUpdates.txt”
but got the message
Error 35754
Unable to connect to remote host

I checked the properties of the control and am sure the
user name, password are correct. The URL property looks like this
ftp://username:password@www.somesite.com (names changed to protect the innocent.)
protocol property is 2-icFTP
access type 0-acUseDefault
request timeout 60

I will copy your code into a function and call it from the command button and see what happens.
In the meantime, I found a good chapter in the Ekedhal book on implementing an FTP client.
Thanks

The ftp site requires a username and password. I entered username and password in my FTP Locatation when I set it up.
Thanks,