-
WSaap2
AskWoody LoungerIn 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,
-
WSaap2
AskWoody LoungerThanks Charlotte. We installed Visual Source Safe and believe this to be a safer way for multiple developers to work on projects.
Best Regards, -
WSaap2
AskWoody LoungerI 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. -
WSaap2
AskWoody LoungerI 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. -
WSaap2
AskWoody LoungerThere is a button on my form “cmdOpenReport” that does this:
Private Sub cmdOpenReport_Click()
On Error Resume Nextdim 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. -
WSaap2
AskWoody LoungerThere is a button on my form “cmdOpenReport” that does this:
Private Sub cmdOpenReport_Click()
On Error Resume Nextdim 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. -
WSaap2
AskWoody LoungerI 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 = NothingEnd 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. -
WSaap2
AskWoody LoungerI 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 = NothingEnd 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. -
WSaap2
AskWoody LoungerI 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. -
WSaap2
AskWoody LoungerI 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. -
WSaap2
AskWoody LoungerZAve,
This code works great. Many thanks for your help. I have implemented it successfully. -
WSaap2
AskWoody LoungerZAve,
This code works great. Many thanks for your help. I have implemented it successfully. -
WSaap2
AskWoody LoungerMark,
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.
-
WSaap2
AskWoody LoungerMark,
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 hostI 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 60I 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 -
WSaap2
AskWoody LoungerThe ftp site requires a username and password. I entered username and password in my FTP Locatation when I set it up.
Thanks,
![]() |
Patch reliability is unclear. Unless you have an immediate, pressing need to install a specific patch, don't do it. |
SIGN IN | Not a member? | REGISTER | PLUS MEMBERSHIP |

Plus Membership
Donations from Plus members keep this site going. You can identify the people who support AskWoody by the Plus badge on their avatars.
AskWoody Plus members not only get access to all of the contents of this site -- including Susan Bradley's frequently updated Patch Watch listing -- they also receive weekly AskWoody Plus Newsletters (formerly Windows Secrets Newsletter) and AskWoody Plus Alerts, emails when there are important breaking developments.
Get Plus!
Welcome to our unique respite from the madness.
It's easy to post questions about Windows 11, Windows 10, Win8.1, Win7, Surface, Office, or browse through our Forums. Post anonymously or register for greater privileges. Keep it civil, please: Decorous Lounge rules strictly enforced. Questions? Contact Customer Support.
Search Newsletters
Search Forums
View the Forum
Search for Topics
Recent Topics
-
Xfinity home internet
by
MrJimPhelps
1 hour, 34 minutes ago -
Convert PowerPoint presentation to Impress
by
RetiredGeek
3 hours, 34 minutes ago -
Debian 12.11 released
by
Alex5723
12 hours ago -
Microsoft: Troubleshoot problems updating Windows
by
Alex5723
15 hours, 42 minutes ago -
Woman Files for Divorce After ChatGPT “Reads” Husband’s Coffee Cup
by
Alex5723
2 hours, 4 minutes ago -
Moving fwd, Win 11 Pro,, which is best? Lenovo refurb
by
Deo
12 hours, 10 minutes ago -
DBOS Advanced Network Analysis
by
Kathy Stevens
1 day, 8 hours ago -
Microsoft Edge Launching Automatically?
by
healeyinpa
23 hours, 2 minutes ago -
Google Chrome to block admin-level browser launches for better security
by
Alex5723
1 day, 11 hours ago -
iPhone SE2 Stolen Device Protection
by
Rick Corbett
1 day, 3 hours ago -
Some advice for managing my wireless internet gateway
by
LHiggins
11 hours, 6 minutes ago -
NO POWER IN KEYBOARD OR MOUSE
by
HE48AEEXX77WEN4Edbtm
3 hours, 57 minutes ago -
A CVE-MITRE-CISA-CNA Extravaganza
by
Nibbled To Death By Ducks
1 day, 20 hours ago -
Sometimes I wonder about these bots
by
Susan Bradley
1 day, 17 hours ago -
Does windows update component store “self heal”?
by
Mike Cross
1 day, 7 hours ago -
Windows 11 Insider Preview build 27858 released to Canary
by
joep517
2 days, 10 hours ago -
Pwn2Own Berlin 2025: Day One Results
by
Alex5723
18 hours, 41 minutes ago -
Windows 10 might repeatedly display the BitLocker recovery screen at startup
by
Susan Bradley
7 hours, 19 minutes ago -
Windows 11 Insider Preview Build 22631.5409 (23H2) released to Release Preview
by
joep517
2 days, 13 hours ago -
Windows 10 Build 19045.5912 (22H2) to Release Preview Channel
by
joep517
2 days, 13 hours ago -
Kevin Beaumont on Microsoft Recall
by
Susan Bradley
2 days, 2 hours ago -
The Surface Laptop Studio 2 is no longer being manufactured
by
Alex5723
2 days, 21 hours ago -
0Patch, where to begin
by
cassel23
2 days, 15 hours ago -
CFPB Quietly Kills Rule to Shield Americans From Data Brokers
by
Alex5723
3 days, 11 hours ago -
89 million Steam account details just got leaked,
by
Alex5723
2 days, 22 hours ago -
KB5058405: Linux – Windows dual boot SBAT bug, resolved with May 2025 update
by
Alex5723
3 days, 19 hours ago -
A Validation (were one needed) of Prudent Patching
by
Nibbled To Death By Ducks
3 days, 10 hours ago -
Master Patch Listing for May 13, 2025
by
Susan Bradley
12 hours, 55 minutes ago -
Installer program can’t read my registry
by
Peobody
4 hours, 49 minutes ago -
How to keep Outlook (new) in off position for Windows 11
by
EspressoWillie
3 days, 8 hours ago
Recent blog posts
Key Links
Want to Advertise in the free newsletter? How about a gift subscription in honor of a birthday? Send an email to sb@askwoody.com to ask how.
Mastodon profile for DefConPatch
Mastodon profile for AskWoody
Home • About • FAQ • Posts & Privacy • Forums • My Account
Register • Free Newsletter • Plus Membership • Gift Certificates • MS-DEFCON Alerts
Copyright ©2004-2025 by AskWoody Tech LLC. All Rights Reserved.