Search results

After testing, I was wrong. REMOVE the Trainers.Value field from the form's Record Source Query and the list box if bound to the Trainers field (no .value after it), it should work fine.

Change the List box's bound field from Trainers to Trainers.Value

You can use a parameter array. Like this: Function MyFunction(frm As Form, ParamArray arrP() As Variant) Dim L As Long Dim ctl As Control For Each ctl In frm.Controls For L = 0 To UBound(arrP) If arrP(L) = ctl Then ctl.Value = ctl.Value + 1 Exit For...

I missed the one field. This should do it. Dim strSQL As String strSQL = "INSERT INTO MCEMAIL (CUSTNO, FULLNAME, EMAIL, REGID, CLASSINFO) " & _ "(SELECT DISTINCT CUSTNO, FULLNAME, EMAIL, REGID, NULL AS CLASSINFO " & _ "FROM MCTEST2 " & _ "WHERE CUSTNO=" & rstInsert![CUSTNO] & " AND...

oops, I missed that you had curDatabase Make sure it is declared in the proper location so both can use it. And the proper location would be in the GENERAL DECLARATIONS section like Public curDatabase As DAO.Database

Can you elaborate on how you intend to use them? Some ideas might be generated from that.

I don't have your full structure so I had to write it as best as I could from what you had. The way I laid it out it should be easy to spot the problem as far as the fields go. I'm not sure what the syntax problem is unless there needs to be parentheses around the SELECT statement.

Change this: Dim rstExcRpt As Recordset To this Dim rstExcRpt As DAO.Recordset

It would be Dim strSQL As String strSQL = "INSERT INTO MCEMAIL (CUSTNO, FULLNAME, EMAIL, CLASSINFO) " & _ "SELECT DISTINCT CUSTNO, FULLNAME, EMAIL, REGID " & _ "FROM MCTEST2" dbs.Execute strSQL, dbFailOnError

If one of the fields in a Union query is text and the same field in another query within that Union query is a date, it will treat it as text. It always converts non-like fields (in the same spot in the field order) to text. So, for example, if I have a query like: Select Format(MyField...

Get rid of this line: Call DeleteTable("MCEMAIL") And then use CurrentDb.Execute "Delete * From MCEMAIL", dbFailOnError

Ah, good catch. I totally missed that one. :o

The Format function turns the values to Text. And Text sorts differently than numbers. Numbers will go (A to Z): 1 22 38 46 546 1156 But Text sorts on the first character and then the next, etc. So that set of numbers would be 1 1156 22 38 46 546 So if there is a date which is really...

just create a delete query. The simple SQL is Delete * From TableNameHere and then execute. You can create an Append query in the QBE grid (the design view area of the queries) and when you click on the APPEND query type on the Ribbon, it will ask you which table you want to append to...

Just something to take note of. The sort A to Z or Z to A does not infer that it is text. That is the standard way of saying from lowest to highest or highest to lowest. It means that if it is a number A to Z will sort from the lowest number to the highest. If it is a date it will sort from...

Where are you changing it from ? Referring to a subform you need to refer to the control on the parent form that is where the subform really is displayed. You don't refer to the subform name but that control name. So if your subform control name is Child3 and your subform is named...

Instead of deleting the table, just empty it and then use an APPEND query instead of a make table query to fill it. That way you can define the fields the way you want and they won't change.

You would need to add the conditional formatting to each of the controls. For the other controls you would need to change from FIELD IS to EXPRESSION IS and then use [order status] = True

Don't know. The way I do it is to create the query in the QBE Grid and then move it to VBA from the SQL View. You have to make a few changes but it is fairly easy to do.

Yes, that is correct.