Search results

Presumably you do have a form open somewhere at the same time, right? You could set that form's OnTimer event with VBA, and have it call a VBA function when the time is up. My other suggestion should work too - as long as it has that DoEvents function - and depending on how badly your scanner...

Public Function Pause(PauseSeconds As Long) Dim StartTime As Long StartTime = Timer Do While Timer < StartTime + PauseSeconds DoEvents 'keep running other processes Loop End FunctionDoEvents allows Access to handle other events that might...

Mostly I'm just playing and experimenting but I'd sure like to take a look at yours too. I didn't realize how limited Access forms are with drawing shapes. You get rectangles. That's it, that's all. No curves allowed. (Well, I did find a fancy 20,000-line module but that's sketchy in itself...

Ahh okay, now that I think about it I understand what's going on. I'm going: For each ctl on form if current ctl is blahblah then delete the current ctl Next ctl <-- as in, the ctl I just deleted. I confused the poor For loop! I guess the obvious solution is to delete them...

Now I gotcha. As with most tasks in Access, there are a few ways to accomplish that. Here's one - you'll notice it's close to your attempt in Post #1. SUM instead of MAX will ensure that no fields are missed (if, by chance there was multiple records for the same Quote_ID & Stage). Also...

ooh, that's what it's called? Cartesian Join. Okay, now I have to find the other thread I was trying to explain that on. I knew what it was and what causes it; I just had another word for it.:mad: Thanks for the inadvertent lesson! :D

Wow, 86000 views on this thread, 5-Star rating... That's amazing! Does that make this "Access Question #1"? So everyone knows this now, right? There will be a test next week. EraserveAP will be facilitating. :)

I've was playing around with drawing a dynamic grid of rectangles on a form, possibly to eventually turn into something custom-progress-bar-like, and so in testing I've been drawing & deleting them repeatedly. But I'm confused about the behavior of my DeleteAllRectangles sub. It only wants to...

Since your collection of shows is small, there isn't much benefit to "automatically" getting the posters from the website. (In the time it will take to automate that for multiple sites, you could download hundreds of posters yourself!) But you can still organize your collection (and links to...

Perhaps you could solve both issues by using a listbox, populated ("on load") with only "available" dates. It's always visible, and forces the user to pick a date that's going to work. (And you could make it blink with big red arrows pointing at it... Maybe that's pushing it though....) :-)

Can't say for sure without seeing more than one record of the source data, but perhaps you're wanting something like: SELECT Quote_ID, Cost AS Stage_1_Calc, Null AS Stage_2_Calc, Null AS Stage_3_Calc, Null AS Stage_4_Calc, Null AS Stage_5_Calc,Null AS Stage_6_Calc FROM tblCommissionNew;or...

Your formula will never be 'True' - I think you have the signs backwards. If you would you like [Expires] to be Red & Bold when it's between today and 30 days from today, the code should be: If Date < t And t < DateAdd("d", 30, Date) (or <= to include today) If you would like this code to run...

Hmm, it's tough to troubleshoot this at a distance. Re: the list of 10 items with the same invoice number, ("QryInvoiceNetTotal", I think) I gather there are not actually 10 invoices with the same number?... Could you add a few more fields to that same query, like [TaxDate] and [PaymentTerms]...

Range is a reserved word; you'll need to pick a different variable name. Beyond that, there could be a number of things making the recordset "not updateable"; it's tough to say what the problem is without seeing the destination table. Is there a reason you can't import into Access instead of...

Add a text box to the form and name it "Counter". Perhaps change the text box's label to something meaningful like "Items Selected". Push ALT+F11 to go to the VBA editor and paste in CJ_London's code at the top. Next, you'll need to go to each combo box on the form and make it run the function...

Excel is trying to "remember" your last Text to Columns setting, and switching computers or filenames might make it forget. The Word Rich Text file is probably Tab Delimited (tab's separating each column). Quick fix: Paste in your data (so it's all in one column like you described) Go to...

whoops, beat me to it :rolleyes: CJ_London's example even updates the counter control for you.

Function CountCombos_NotNull() As Integer Dim ctl As Control For Each ctl In Me.Controls If ctl.ControlType = acComboBox Then If Not IsNull(ctl) Then CountCombos_NotNull = CountCombos_NotNull + 1 Next ctl End Function

This sub creates an email with a plain-text version of any Access report, listed line-for-line in the body of the email: Public Sub olSendRpt(strTo As String, strBody As String, strSubject As String, strReportName As String) 'A procedure to send report in a body of mail message 'Alex...

Anything is possible!:rolleyes: So, the data is coming from an Access Table? How much data are we talking about? Could you post an example of what the email needs to look like?