Search results

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

Thank you Bob. I knew as soon as I scrolled and saw your name that I had my answer.:D

I have 5 form controls named... Deposit Duration Dep48 Dep24 Dep12 Deposit is simply an entered value. Duration is combo box with the value list of 48, 24, 12. Based on the user choice in the Duration combo the appropriate DepX field is updated. How do I refer to the DepX...

Yes it is indeed the control itself. What I finally made to work already does not. I did nothing, no code or property changes except to move the control three down arrows on my form. When I returned to form view it was back to the same faulty behavior. I'll figure this out yet! :mad:

Bob... Allow me to thank you for your assistance through this problem. Yes, it is solved and yes it works. I created a new subform control and tweaked the code a bit and poof it works. Thanks again for your help and hanging through with me. Michael

Bob.... It's not Access and it's not the op sys. That I know. Here is what I did... I created an entirely new database. In that DB I created a small six record / two field table (ID & Name). On that I created a query (SELECT * FROM tbl). That query I made the record source for a subform in a...