Recent content by Glue

Working like a charm!!! I think I can finally let this thread die. Thanks again

This code is working perfectly, but is there a way to condition it by two fields? I've been looking for the answer and trying different code for two days and can't get it to work. Both of these work on thier own: Set rs = CurrentDb.OpenRecordset("SELECT PropDescription FROM StorefrontTable...

I've been out for a bit, but back on this code... Everything works except for the "Where" part of my statement. Here is the code: Dim PD As String Dim rs As DAO.Recordset Set rs = CurrentDb.OpenRecordset("SELECT PropDescription FROM StorefrontTable Where EstID = Me.EstLookUp") I've...

Thank you both... This gets me moving again. I was thinking I might have to take the plunge into Arrays.

I'm quite the rookie, but have you tried: If Not IsNull(Me.Item_Name) Also, I've had a lot of success runningRequery to update comboboxes... Me.Item_Name.Requery Someday, I hope to be more helpful, but for now....

Hello, Using Access 2003 I am trying to loop through a query, dim each record as a string, Ignore all Nulls, concatenate the fields together, and then Dim all smaller stings into a LargerString. Query Name: ReviewSFQ (The below code is pulling ALL records from a table, I’d like to change it...

Something like this should work. You may also want to put the code on the on load event of the form... Private Sub YearGroup_Exit(Cancel As Integer) If Me.YearGroup > 10 Then [Target Level].Visible = False Else [Target Level].Visible = True End If If Me.JobID < 10 Then [Target...

You could use an if function based on the numeric value of the yeargroup.... In after update of the Yeargroup combobox Write code that states If your yeargroup is less than 10 then make targetlevel visible. Place targetlevel combo on top of targetgrade. When targetlevel is visible the user...

Is there a way to program how a textbox reacts to your cursor when the field is already populated (either by default value or by manual entry?) This doesn't seem consistant in my DB. In some textboxes the cursor will highlight the text and then move on without deleting the data. In other...

Thanks to both of you... Got me going in the right direction. Here's what it lead me to which is working great! So thankful there are people out there willing to post responses!!! The last part of the replace code is (" then ' then ' then ") Private Sub Form_BeforeUpdate(Cancel As...

Hello All, I have a Continuous form with a text field named Description that holds data input by users. The information usually contains a size such as 1/4" or 1/2" but won't always have the " which is used to denote Inch. I'm using the following code to automatically copy the last field into...

Thank you, I think you were refering to the "refer to Form and Subform properties and controls" Page. Sorry I can't post links yet!!! I spent some time and think it should be working with this: Me!JobID = Forms!Orders!OrderItems.Form!JobID It is now giving me the errror "You can't assign a...

I have a Form: Orders With a subform: OrdersSubformOrderItems I have created a third form: JobNoSearchF When the user enter the last four or five digits of a job number on an unbound text box located on the subform and clicks the search command button the JobNoSearchF forms opens up and...

Genius!!!! Thank you so very much. For lurkers like me here is what finally worked thanks to Isskints: Private Sub Form_AfterUpdate() If DSum("[QtyReceived]", "[OrderItems]", "[OrderID]=" & Me.OrderID) - DSum("[QtyOrdered]", "[OrderItems]", "[OrderID]=" & Me.OrderID) = 0 Then MsgBox...

Yes, we will often have multiple item types on one order arriving separately or Items that will be back ordered and arrive at a different time. So putting that into an if statement so it only triggers a Msgbox "for now" when all Quantities have arrived: (this is bugging out everywhere, but am...