Search results

No, using the square brackets, gives the range. try it in the query pane, just to see the results. Alike '[T-Z]%'

Private Sub Form_AfterUpdate() CurrentProject.Connection.Execute _ "INSERT INTO tblOne(txtName,txtCity...)" & _ "VALUES('" & Me.txtName & "','" & Me.txtcity....& ")",,129

Visual Basic for Applications. exclusive to MS, I believe. I don't know VB, except for the fact, that they are very close in syntax & functionality. But have read, that they are definately, not the same??? Now, you've aroused my curiosity. I have to try the "ALike" statement in ACCess...

Referencing a control, has several syntaxes, one is Me("ImageFrame1") so, you can also do this, Me("ImageFrame" & x) so, you can also do this, For x = 1 to 8 Me("ImageFrame" & x).Picture = Me![ImageFile] Next Just to give you some ideas...

I would think, Pat's correct. small digression, You said VB, as opposed to VBA, which I'm not familiar with. I don't know the "alike" operator, but I do know the "Like" operator. With Like, you can shorten your code by, WHERE [App Info].[Last Name] Like '[T-Z]*' ...maybe VB, has something...

Or the Object Browser, From the IDE window. In libraries, select "Scripting". Don't forget to create a reference to the, "Microsoft Scripting RunTime" library. From there, you will probably also see, ghudson's suggestion.

I personally grovelli, like many programmers do, have one exit point, where they do all their clean up. Sub FindName() On Error GoTo xxx Dim rst As New AdODB.Recordset rst.Open "SELECT...... Do Until.... ... Loop CleanUp: rst.Close set rst = Nothing Exit Sub xxx: MsgBox err.Number & vbcrLf &...

I agree with ghudson, but I'm just curious Rob, What processing would you do, for example? How long will it take to run? how will it impact the current form? As you know, OnLoad, OnOpen etc... are somewhat "involuntary" events. Are these sufficient, to initiate certain processing.(maybe from...

...can't believe, I left the quotes in!

Can we see the whole code? maybe the problems within the logic, of your If statement?

Is QryName showing the right Name? rs.Open QryName, cn, adOpenDynamic,adLockPessimistic If Not rs.EOF And Not rs.bOF Then Else MsgBox "No current record"

Great Advice, Pat!

...or even the internet.

Dim Add As String Dim Length As Integer Add = Val([Address]) Length = Len(Add) Me.[Address] = IIF(Length =3,"0" & "[Address]","[Address]") IIF() is a one-liner, no need for "End If". needs a recipient for the result Lenght data type, was wrong Concatenate with "&", not "+" (prefered)

strMessage = "Hello, Wuz Up?" & vbCrLf & "Whatcha b'n up to lately" & _ vbCrLf & "Ciao!" or strMessage = txtSalutations & vbCrLF & txtDate & vbCrLf & vbCrLf & txtComments

Andy, just curious, is there a reason you want just one module open? Is it too much overhead? You asked, "or no code windows at all". None will open, uless you go to VBE deliberately. To opem manually, you can use Docmd.OpenModule "mdlHours" To close, something like this? Dim mdl As...

Forgot to add, You don't have a field called "SalariedRatio", why are you surprised, you're getting an error?

2 small points, Private Sub Form_BeforeInsert(Cancel As Integer) Me.CICustomerID = Forms![NewFrm_qry_CusIns_KeyEvents]![cmbo_KeyEvents] End Sub Private Sub Employee_Button_Click() DoCmd.Close acForm, "NewFrm_qry_CusIns_Employee" DoCmd.OpenForm "NewFrm_qry_CusIns_KeyEvents", acNormal...

Do you have these "Toolbars", as Toolbars or MenuBars. From the properties, tab from the Custom Dialog. Your property for each, may be wrong? Or try the Me.Menu Method?

Yes, GHudson's is a great idea. bit I'm confused also, why your code is not working? I can only assume, you showed part of your code, and there's something in the previous logic, that's throwing it off? I have something similiar, I use regularly for disabling my own Navigation Buttons...