Recent content by TrojanRabbit

Dim frm As Form For All frm in Forms frm.Visible = False Next frm

<control>.Visible = <checkbox> You can put this in the report's Open event or the detail section's Format event.

Is there any recordset action going on when it opens from the command button? What differs when it's opened via the button vs opened from the database window? If something else is going on in the process, you may wish to use DoEvents after DoCmd.OpenForm... or in the form's Open or Load event...

Anyone know how to set a mousewheel to scroll a textbox rather than records?

Anyone know about working with the mouse scroll? In a certain form, I want it to scroll a text box when it's in it. I don't want it scrolling records. I've found articles about turning the mouse scroll off, but I want to tell it work with the textbox when the textbox has the focus.

If you're just trying to refer to textbox n, Me.Controls(&quot;txtbox&quot; & n)

Not sure I understand clearly, but here's what I can say. Sounds like you already know how to get the 1 in query1. When you construct the textbox, use the Name property. Me.<textbox>.Name = &quot;txtbox&quot; & n Also, Me.Controls(&quot;<name>&quot; OR index).Name = &quot;txtbox&quot; & n

Use DoEvents when it should update. When you work with recordsets, Access seems to like finish the recordset work before doing anything with the display. DoEvents says, &quot;Let everything else finish before continuing.&quot; There is a FAQ about DoEvents concerning progress bars.

Ah, I see. Select a number of random records. That may be a little more complicated. A less practical way might be to set a recordset to the file/table, then randomly go to a record (rs.Move Rnd(),1) and copy it into another recordset. This would allow a record to be repeated, however, unless...

If I understand correctly, you want to open a percentage of records from a table and assign random numbers for them. Since the first function assigns to all records, it wouldn't be useful for this. You could actually just put the code in Yadda, but, if you want SetTmpRndNbr to be able to assign...

Maybe Type property. You can capture the error and check the error number if it gives one. Only ideas.

Interesting that Refresh and Requery don't work. Maybe have the form call OpenForm with itself. Never tried this, so I don't know if you can.

I think the filter needs to receive a string. [Calc Hours subform].Filter = &quot;PayPeriodstart <= #&quot; & [Calc Hours subform].Form![Date] & &quot;# And #&quot; & [Calc Hours subform].Form![Date] & &quot;# <= PayPeriodEnd&quot; or [Calc Hours subform].Filter = &quot;PayPeriodstart <= [Calc...

Also, CurrentProject.AllReports(MyRpt).Name.