We (wife=British; me=Yank) catch it on BBC America now and then. I think it's quite funny, but then...I suspect my wife has brainwashed me to think that anything British is far superior to anything American.
Advice from a slightly Anglicised American:
If you see a British show that you don't...
Here's something to get you started...Public Function SaveIt()
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogSaveAs)
fd.InitialFileName = "c:\MyFileName.xls"
fd.Show
Set fd = Nothing
End Function
I have used LIKE with/without a wildcard and it worked for me.
For instance, a combo box on a form with definitive selections for query criteria, and a "*" added to the rowsource in case you want to pass all records...
In the query, I use LIKE Forms!MyForm!cboCriteria. If you select the...
Take a look at AppActivate...
From Access VBA help:
AppActivate Statement
Activates an application window.
Syntax
AppActivate title[, wait]The AppActivate statement syntax has these named arguments:
title Required. String expression specifying the title in the title bar of the application...
Look in your For loop...you forgot to put an '=' or Response.Write in front of the array...
<%
For I = LBound(arrSelectedItems) To UBound(arrSelectedItems)
%>
<%=arrSelectedItems(I) %><BR>
<%
Next
%>
Thanks for the insight there...seems like a good method.
I actually put this project on the back burner because my EMPLOYER has no plans to load the dotNET 2.0 framework.
Right, I wrote that function quickly over my morning cuppa. It has no error control at all.
This mod to the function will ignore blank entries...
Public Function InsertSpace(txt As String) As String
If txt & "" <> "" Then
For i = 2 To Len(txt)
If Asc(Mid(txt, i, 1)) < 91 And...
In the database window, go to 'Modules' and select 'New'. VBE opens...paste a function in the white space and click save...call it Module1.
Here is the SQL for a query that uses the function I presented in my last post:SELECT InsertSpace([pname]) AS SplitName
FROM ppl;Presto...you are...
This is something I've been pondering on.
Vassago, would you care to give a few pointers on using a home PC as a server?
Is it necessary to run Windows Server OS?
Would it be possible to set up a PC with WinXP Pro as a pseudo-server?
I'm thinking...chock it full of hard drives, connect...
Here is what I came up with:
Public Function InsertSpace(txt As String) As String
For i = 2 To Len(txt)
If Asc(Mid(txt, i, 1)) < 91 And Asc(Mid(txt, i, 1)) > 64 Then
InsertSpace = Left(txt, i - 1) & " " & Mid(txt, i)
Exit For
End If
Next i...