Search results for query: *

...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

To resize columns at runtime: With MSHFlexGrid1 ' set grid's column widths .ColWidth(0) = -1 'default .ColWidth(1) = 3000 .ColWidth(2) = 2000 .ColWidth(3) = 0 End With For your question 2, try: Private Sub MSHFlexGrid1_Click() With...

If you already know the sizes of your pictures you could programmatically resize your control to suit, or use several picture controls of varying sizes. Ralph

I'm trying to do something similar at the moment. The best I've done so far (better suggestions would be most welcome) is: Private Sub MyCombo_LostFocus() DoRefresh End Sub Private Sub cmd_Refresh_Click() DoRefresh End Sub Private Sub DoRefresh() textbox1.Text = &quot;&quot...

Is it always the same error no. - 3043? Have you tried it with all tables held locally, for test purposes?

Run-time error 3043 is a &quot;Disk or Network error&quot; An internal disk or drive failure prevents reading from or writing to the disk. Possible causes: You tried to use a network drive, and the network is temporarily busy, or you're no longer connected to the network. Check the network...