Search results

@MajP With your training, piece of cake: DoCmd.OpenForm "popDate", _ WindowMode:=acDialog If CurrentProject.AllForms!popDate.IsLoaded Then dtstart = Nz(Forms!popDate![begDate]) dtend = Nz(Forms!popDate![endDate])...

um... nevermind... I see there are other people with the same issue that's been answered. Thank you!

@MajP posted this function for retrieving values from popup forms: Public Function getValueFromPopUp(formName As String, PopUpControlName As String, Optional MyOpenArgs As String = "None") As Variant 'FormName: Name of the popup form 'PopupControlName: Name of the control on the pop...

@arnelgp Finally! an answer that helps. I was playing with this and you have just fleshed it out. Thank you so much!

I don't need to know the clickable button's size or location. I need to know the name of the field I'm occupying when I shortcut key the transparent button. It could be one of two options on each subform. The previous control works but it's dangerous? Not dependable?

Oh big misunderstanding. Not hidden but transparent. Can't see it but it's there.

OK. OK. got it.

Oh if only I would think before speaking! The answer is strControlName = Screen.PreviousControl.VALUE!!! Thanks for your replies! @Pat Hartman The tab key is right above the Capslock key. Very nasty.

OK. Point taken. I don't want to call from the field because I use the keyboard and not the mouse. Double click moves to another field, single click the same... Is there a way to use shortcut keys? Open for suggestions here. Here's where I am: Private Sub btnCalc_Click() Dim rtn As Variant Dim...

Thank you! I also discovered there's a PreviousControl. Screen.PreviousControl.Name. Discovered it (thought of it, whatever) after I'd posted.

I have a hidden button that calls a calculator (with a shortcut key). There are several fields on one form that use this button so I need to know the field name that's calling the button. Me.ActiveControl.Name returns the hidden button. How do I get the name of the field that is actually...

Yes, I know. That's what I'm using to get here. I have 3 filters on that form. I just don't filter the date values until the popup. The repetition is because the popup is used for more than one form.

I know. for just a tiny little form. It's called "big and ugly but works" ;)

Thanks to @MajP this thing is now working! Sub ListUsage() Dim ID As Long Dim NWhrStr As String Dim CWhrStr As String Dim strRange As String ID = lngInfoXchg strRange = GetDateRange("CkDate", cboDate.Value) NWhrStr = "NameID = " & ID & " And " & strRange CWhrStr = "CategoryID = " & ID & " And "...

wow. In a nutshell! THANKS!

Make fun of my formulae but they all work in queries. :p I just can't figure how to get them into a sql where statement (rowsource)

Yes, you are right. I want the formula... So it should be a string that I'm adding to a string? And then want to calculate? And it should be a sub and not a function?

I have a combobox that I want to limit dates in a listbox: Function DateCalculation(IDate As Integer) Select Case IDate Case 48 'All Dates [CkDate] Case 49 'This Month Year([CkDate]) = Year(Date) And Month([CkDate]) = Month(Date) Case 50 'Last...

This is a database for file drawers. Some drawers have divisions and folders. Some are completely numerical. As things get removed, the address stays but it becomes available for use. I want to locate the proper drawer, etc and use any old locations not being used or create new locations if none...

theDBguy... really? Ok, problem must be elsewhere. Thank you.