Recent content by BDCarrillo

I swear I had tried it like that... turns out I had it try to write in the value from me.shop_code1 before finding the record that matched the user input... Works just fine now dhookum, thanks! I put the code snippet in the right spot. boblarson: I could have done it in the form data source...

Need to bring in "End_Date>=Date()" To this: DoCmd.OpenForm "Shop_Form", acNormal, , "[Shop_Code] =" & Me.Shop_Code1 & "", , acDialog and include a couple different "if" scenarios to cover any cases where the date filter returns zero records

Just looked through my code when I noticed the filter was "disappearing" I was putting in my own filter from a previous form in VBA. I'll have to incorporate the date filter in with my other coded filter, unless I can apply a "sub" filter.

Trying to do the following: Filter records to show only those whose "End_Date" is equal to or greater than today. This will be set on the form properties. I've tried the following: End_Date>=Today() End_Date>=Now() End_Date>=Date() All of the above with #End_Date#, and all of the above with...

I modified the second, conditional one to suit my needs. Thanks! I was going about it the wrong way.

I'm not sure how to go about this... I need to find the row.id of text in a cell COMMENT that matches a string. Dim Rng2 As Range If Trim(strTCrsName) <> "" Then With Sheets("Transcript").Range("Q1:Q100") Set Rng2 = .Find(What:=strTCrsName, _...

One & " short of success... thank you very much

TM and TY are temporary strings pulling a formatted Month and Year from hidden columns on a combo box. Filtering the year OR month only works just fine, but the string below with "AND" throws a runtime error 13 type mismatch. strWhere = "Month([Expense_Date])=" & TM '^ Works fine strWhere =...

Make both the text box and command button invisible and use vba in the forms "OnCurrent" event to set the visible/enabled properties based on the checkbox. It'll show the appropriate item when you click (or use a navigation control to go the next/prev) on a record you want to work with, but...

cmbChoice would be a combo to select one of your options me.filter="[Field]=me.cmbChoice" me.filteron=true

Didn't know that!

On the "AfterUpdate" of whatever control you use to enter the status change, add code to make the change. Ex: If status=2 then closed_by="Trent" (or whatever control/list/query) MsgBox("Closed_By has been updated.") else endif

NameField=Environ("Username")[like Andrzejek said] ComputerField=Environ("ComputerName") works well for network and local users. Not sure why you'd need the massive chunk of code unless you were reformatting it (me.user to User, Me... etc)

This bit of code will search a text field and display matching records. It will search forrecords that contain multiple keywords, in any order. Form/table items: btnSearch-Button to initiate search btnSearchClear-Button to show all records/clear search txtSearch-Unbound text box, no default...

As a temporary measure, use VBA to disable the shift key. Set up a password prompt to re-enable it and share that password with the Project Leader, until you're done building their interface. Disabling the shift key would be a good extra measure of security