Recent content by BobAtHome

How do you wish to do the deletions - from within a form using code or with a query?? Or by opening the table and selecting rows to delete?

I don't know why you have so many "" but I do know that you don't need as many as you have. Try the following. Also since you are only selecting from 1 table, you don't need the table reference in front of the fields. The only time you need them is when you are using more than 1 table and there...

I don't know why you have so many "" but I do know that you don't need as many as you have. Try the following. Also since you are only selecting from 1 table, you don't need the table reference in front of the fields. The only time you need them is when you are using more than 1 table and there...

Easier to understand if you use an alias for each table (A,B) update MSP_TEST_MSP_SYNCHTABLE A set A.Chargeable_Flag = (select B.FLAG_VALUE from MSP_TEST_MSP_FLAG_FIELDS B where B.Proj_ID = A.Proj_ID and B.FLAG_FIELD_ID = 188743752 and B.FLAG_REF_UID = 0); The assumption here (since I don't...

Assume that the field that holds the birth date is called "BirthDate". In the query, in the last column, paste the line below in the "field" row. showmonth: Month([Birthdate]) Leave the "table" row empty. Select either ascending or descending in the "sort" row. Deselect the check box in the...

Instead of opening a recordset, try deleting using DoCmd and RunSql, as follows: Private Sub cmdDelete_Click() Dim strSql As String Dim intActivityId As Integer intActivityId = lstCurrentlyBooked strSql = "Delete from ActivitiesBooked where ActivityId = " & intActivityId & ";"...

I have never seen both the "if" and "else" sections of a "if...else...end if" get executed. I would suspect the the email is getting generated elsewhere. As a test, comment out everything in the "else" section. Add a simple msgbox command as shown below: msgbox "email will get sent" Run it...

I found that checking a control for null in that manner doesn't necessarily work so I wrote a little function that will check if a control is empty. ------------------------------------------------------- Function IsSomethingInControl(MyControl As Control) As Integer IsSomethingInControl =...

I assume the combo box the field that links the main form and the subform?

If badge is a numeric field then you don't need the single quotes. stDocCondition = "BADGE = " & Me.cmbBadge.Value

I will assume that Me![Text56] is the text box with the string search criteria. For partial search strings you need to use the "like" operator, the wildcard character, and a combination of single and double quotes. The stLinkCriteria would be as follows. stLinkCriteria = "[strCity] like '*"...

Open the form in design view, open the form properties box, click on the event tab, double click in the "On Open" event so you see "[Event Procedure]" in the box. Click on the small box to the right of the "On Open" event to get to the code window. In the "Form_Open" sub procedure key in...

In the sql statement below, replace the table and field names with your table and field names. Create a new query, click on "View" and select "SQL View". Cut and paste the modified sql statement into the query "SQL View" box. Run the query. UPDATE CustomerTable INNER JOIN ProvinceLookUp ON...

Try reinstalling your original software - RecordNowDx

Yes, unfortunately, that is normal. To get the size of your database down, you need to compact it ever so often. Use menu options "Tools/Database Utilities/Compact and Repair Database" and select your database to compact.