Recent content by grinnZ

Nope. I added this line after the original set focus and still nothing. Forms(.txtCallingForm).SetFocus Forms(.txtCallingForm).cboItem.SetFocus DoCmd.Close acForm, .Name But I do have idea. Considering that NewItemFail is an unbound textbox the value sent there will...

Clicking cmdCancel in the item entry form runs the routine above and that's it. At this point I have the same routine waiting in the main form's OnGotFocus and OnActivate events. Neither fire. Below is how I open the new item entry form from the main. Private Sub cboItem_NotInList(NewData As...

Thank you Chris! Helped lots.

I have a form that does multi duty. When the user inputs to a combo box and the item is not in the list the NotInList fires and opens an entry form for the new item. While passing to the new item entry form I also reconfigure my current form with the anticipation of a successful new item entry...

elliotgr... I do pass a control elsewhere in my program but not using the text reference. VincilLabs... not locking everything.

Private Sub LockReagentPerCraft() Dim i As Integer 'loop counter For i = 1 To 8 LockControl (Me.Controls("cboReagent0" & CStr(i))) LockControl (Me.Controls("txtPerCraft0" & CStr(i))) Next i End Sub Public Sub LockControl(ByRef ctl As Control) With...

Thank you. Very helpful. Michael

And so then once distinguished in the SQL I can then refer to it using the distinguished identifier? SQL= "SELECT tblItems.Item as Junk... " variable=rst!junk Like that?

Private Sub cboItem_AfterUpdate() If Right(Me.Caption, 4) = "ITEM" Then: Exit Sub If conErrorTrappingOn = True Then On Error GoTo Err_cboItem_AfterUpdate Dim db As Database Dim rst As DAO.Recordset Dim SQL As String Dim i As...

Chris... Just what the doctor ordered! Thank you!!!

("intdur" & cstr(rstauctions!Duration)) = ("intdur" & cstr(rstauctions!Duration))+ 1OK... here is the exact line of code. To it i'm getting a compile error with the message... Expected: Line number or label or statement or end of statement. In the help for that error it speaks about invalid...

The counting operation I can handle. Thank you for your assistance.

OK, let me make a bit more sense of this for you. Yes, intDur12 is a variable as is intDur24 and intDur48. Duration is a combobox or a table field where valid values are 12, 24, or 48. I'm doing a counting operation where the 12hr duration count is stored in intDur12, the 24hr duration in...

I recently posted a question about control name referencing. The answer given was... me.controls("string" & textboxvalue)Now I'm wondering if I can't do the same referring to the variable itself... Sub Blahblah() Dim intDur48 as Integer Dim intDur24 as Integer Dim intDur12 as Integer ("intDur"...

By the way, txtDep came from the same magical bin from whence came cboDuration. Slipped that one by you! :p