Re: AfterUpdate Event not Running
- From: "Jim May" <jmay@xxxxxxx>
- Date: Sun, 6 Nov 2005 11:34:52 -0500
Thanks Tom;
Thanks to your help yesterday, I'm off now
trying to better understand code via the use of the
immediate window, as you suggested.
.....them poor hokies,,,,, wow,,,,
Jim
"Tom Ogilvy" <twogilvy@xxxxxxx> wrote in message
news:um6aI0u4FHA.3036@xxxxxxxxxxxxxxxxxxxxxxx
> txtVenName isn't an object until the userform is loaded.
>
> You can do that by refering to it. so in the immediate window:
>
> ? userform1.TextBox1.Parent.Name
> UserForm1
>
> In Leith's code, the userform was already loaded.
>
> --
> Regards,
> Tom Ogilvy
>
>
>
>
> "Jim May" <jmay@xxxxxxx> wrote in message
> news:aVmbf.9844$wC.5364@xxxxxxxxxxxxx
>> Leith, thanks for the code;
>> notices the use of
>>
>> 'Get the Name of the Form the TextBox is on
>> frmName = TB.Parent.Name
>>
>> Is this sort of line available generically to any Userform.?
>>
>> I went into a Userform (VBE) and selected a textbox
>> txtVenName and in the immediate window did:
>>
>> ? txtVenName.Parent.Name << expexting to get frmTest
>> but instead get r/t error 424 - Object required.
>>
>> Can you clarify
>> Thanks,
>> Jim
>>
>>
>> "Leith Ross" <Leith.Ross.1y1zrm_1131243901.8145@xxxxxxxxxxxxxxxxxxxxx>
> wrote
>> in message
>> news:Leith.Ross.1y1zrm_1131243901.8145@xxxxxxxxxxxxxxxxxxxxxxxx
>> >
>> > Hello Craig,
>> >
>> > I suspect you may have ambigious text box names. It isn't clear from
>> > your post if you are calling Update_Inventory from the other forms.
>> >
>> > I have cleaned your code up and added a restriction to it. If the text
>> > box isn't on frmThree then exit the routine. Look this over and let men
>> > know if I have understood you correctly or not.
>> >
>> > CALLING THE SUB:
>> > Update_Inventory (TextBox3)
>> >
>> > UPDATED CODE:
>> >
>> > Code:
>> > --------------------
>> >
>> > Sub Update_Inventory(ByRef TB As MSForms.TextBox)
>> >
>> > Dim frmName As String
>> > Dim tbName As String
>> > Dim tbNumber As Integer
>> >
>> > 'Get the Name of the Form the TextBox is on
>> > frmName = TB.Parent.Name
>> >
>> > 'Is TextBox on frmThree?
>> > If frmName <> "frmThree" Then Exit Sub
>> >
>> > 'Get the TextBox Name
>> > tbName = TB.Name
>> >
>> > 'Extract the TextBox Number
>> > tbNumber = Val(Mid(tbName, 8, Len(tbName) - 7))
>> >
>> > If tbNumber <= 20 Then iPass = tbNumber + 171
>> > If tbNumber >= 21 Then iPass = tbNumber + 151
>> >
>> > 'Format the TextBox Text as Currency
>> > TB.Text = Format(TB.Text, "Currency")
>> >
>> > If tbNumber <= 20 Then SpecialCount.Cells(iPass, 14).Value = TB.Text
>> > If tbNumber >= 21 Then SpecialCount.Cells(iPass, 26).Value = TB.Text
>> >
>> > TextBox116.Text = Format(SpecialCount.Range("Z190").Value, "Currency")
>> >
>> > End Sub
>> >
>> > --------------------
>> >
>> > Sincerely,
>> > Leith Ross
>> >
>> >
>> > --
>> > Leith Ross
>> > ------------------------------------------------------------------------
>> > Leith Ross's Profile:
>> > http://www.excelforum.com/member.php?action=getinfo&userid=18465
>> > View this thread:
> http://www.excelforum.com/showthread.php?threadid=482515
>> >
>>
>>
>
>
.
- References:
- AfterUpdate Event not Running
- From: Craig
- Re: AfterUpdate Event not Running
- From: Leith Ross
- Re: AfterUpdate Event not Running
- From: Jim May
- AfterUpdate Event not Running
- Prev by Date: Re: Flip comment to left
- Next by Date: Generate specific matrix
- Previous by thread: Re: AfterUpdate Event not Running
- Next by thread: Re: AfterUpdate Event not Running
- Index(es):
Relevant Pages
|
