Search results

This link explains it better than I can. Consider it a sister function to the Compact and Repair routine where it attempts to fix corrupted VBA code, if present.

I have to disagree, I utilise the RI (including many to many) in nearly every application. It works, it does what it's supposed to do. It might not be my first line of defence against incorrect data input but at least I know my error trapping routines will pick it up. Do you have a...

I've checked your sample DB from post #10, but I can't find anywhere where you made any attempts, you did say that you tried but couldn't do it. Also not included are the functions I provided in post #9. With what part of the process are you struggling? I'm sure we can resolve it.

Similar to theDBGuy's link, check out QueryDefs.

With the form "NavigationForm" open, what happens when you run the query directly, do you still get the error message? By running directly, I mean double-clicking on the query name from the left-hand panel.

Sorry, I misunderstood your question. I'm not aware of a feature or function to automatically do this, that's not to say it's not possible. Depending upon your needs, that is, if you are the only person using your database, then working directly with Tables is ok. If others are using your...

There are many ways within VBA to count things. For starters, have a look at the DCount() function. Or the DSum() function

I'll gladly help where I can. If you show what you have done then we can start to point you in the right direction.

What did you do? Please show your code that didn't work, that would help others as well trying to help you. At the moment, I can't check your sample db.

Can you replace this part WHERE TblTcAOG.[ATA2DIGIT] IN (0,20,21, with a simple WHERE condition such as: WHERE TblTcAOG.[ATA2DIGIT] = 5);" Does this work? If it does, then it's something to do with the IN clause.

? instr("123-456","-") 4 So for your example, then minus 1 from the result.

Two ways to handle this (may be other ways). Create a function that effectively cycles through the ListBox data and the output is a string value of the data requested. Having run the function and got the string value of the data requested, substitute that value in your existing email code...

You need to access the column property of the Listbox. Sample code (from the link): Forms!Contacts!Customers.Column(1, 4) Use of the Code tags would make your post more readable. Edit/Update: @TheDBGuy - got in before me, I was expecting the followup question to be along the lines of...

I can't replicate what you are reporting. I created two bound forms and initially set the 'Popup' property to Yes. From Form1 opened Form2 in both normal and dialog mode: DoCmd.OpenForm "frm_Form2", acNormal, , , , acWindowNormal DoCmd.OpenForm "frm_Form2", acNormal, , , , acDialog...

At best it's a workaround but clearly, you haven't resolved the issue. You may only come across this again when next you create another search form. Stick with it, post your sample SQL string (from the debug.print) for when the field is blank, as that is the cause of the problem. I'm sure...

When you open a form as acDialog (from your Customer Search form) all code execution halts following the DoCmd.OpenForm line, until you close the form that was opened. Under this scenario, it is not possible for the user to inadvertently click any buttons on the Customer Search form, so no...

After you build your 'strCriteria' string, next line do a 'debug.print strCriteria' and post the result here. I have a sneaking feeling that it may involve not quoting string values. The result of the debug.print should reveal the problem.

Sub Test1() Dim j As Integer Dim x As Integer j = 20 Debug.Print "Sub Procedure Test1()" Debug.Print " j = " & str(j) Debug.Print " Now call Test2() function" x = Test2(j) Debug.Print "Return to Sub Procedure Test1" Debug.Print " j = " & str(j) End...

You are passing into the function 'j' and in that function, 'j' now known as 'vLoc', is modified, hence the change in value. What is happening, you are passing the argument by reference (the default) when in fact it should be 'By Value'. Function GetStr(ByVal vLoc as Integer, vString as...

I've checked my references for a sample db and they are a follows: Try adding in the Microsoft Office 16.0 Access databases engine Object Library in lieu of the DAO reference. In a test form load Debug.Print ("TypeName(Me.Recordset) = " & TypeName(Me.Recordset)) TypeName(Me.Recordset)...