Recent content by RalphBrown

...or left(<value> + space(8), 8)

What is the line of code where the error occurs?

Have you tried using LostFocus instead of Change ? i.e.: Private Sub Text2_LostFocus() Best wishes, Ralph

Try removing the single quotes and the semi-colon from your SELECT statement. Hope this helps, Ralph

Have you tried putting it initially on the form, then cutting it then clicking on your tab, then pasting? Ralph

Looks like an error trap would be your best solution. Hope this helps, Ralph

Try: If IsNumeric(Mytextbox.text) and val(Mytextbox.text) >= 0 and val(Mytextbox.text) <= 0 then Ralph

If you are referring to your date field as &quot;right(c.checkdate,4) + left(c.checkdate,4) &quot; you need to have the year first in the string following the &quot;between&quot;, e.g. '20011/1/'. You are also not allowing for the fact that your month & day strings can be 1 or 2 chrs long. Hope...

I notice one of your fieldnames is &quot;Date&quot;, which is a reserved word. I've had trouble in the past where I've used reserved words as fieldnames or table names. Try using a different name... Hope this helps, Ralph

I've always found you get best performance having your program file stored locally (say C-drive), even if any data accessed may be on a server, and if your app is multiuser. Any reason you specifically want to have your program only on a server? Ralph

Try: MyNumber = 7.45 MyTextBox.text = right(str(MyNumber), 3) Hope this helps, Ralph

...however, if you prefer to use SQL, begin your statement: &quot;SELECT Field1 FROM tblTable&quot; etc., instead of &quot;SELECT tblTable.Field1.Value FROM tblTable&quot; Ralph

I wouldn't use SQL for this. It seems a bit complicated when FindFirst will do the job. Instead I'd try: with data1 .RecordSource = &quot;tblTable&quot; .Refresh myCriteria = &quot;id = '&quot; & Text1.Text & &quot;'&quot; myCriteria = myCriteria & &quot; And contents = '&quot; &...

If you already know which menu items you want to add, I would create them, but make them invisible, programmatically making them visible as needed. Hope this helps. Ralph

I use: AppRunning = True AppActivate &quot;Calculator&quot; If AppRunning = True Then SendKeys &quot;%{F4}&quot;, True AppWasTerminated = True End If Hope this helps. Ralph