Recent content by MacroAlan

Thanks, I am on to something with the DCount() G = DCount("[Name]", "qryAllJudgingResults", "[ShowMedalLevel]='" & Medal(0) & "' And [Class]='" & ExClass(0) & "'") If G = 0 Then GoTo Med2 Counts the people based on the 2 criteria I need and uses the items from my 2 arrays

I am building a query and then opening it in a RecordSet. Most of the queries bring back one or more records, but some will only infrequently have records. The variable QUO brings the " character. SQLstr = "SELECT ExhNameFirst([tblExhibitors]![ID]) AS Name, tblExhibits.ExhingYr...

I think it would speed up if you reverse the Unload and set to Nothing. Really cannot unload something that is set to nothing.

Like setting scale to 125%? Only way I can read my screen Alan [smurf]

Yes, and tried magnifying the screen. Did all the obvious stuff Alan [smurf]

My buddy asked me to look at an Access Form on his computer. The Navigation bar at the bottom of the form is too short to read the data. Thinking maybe it was an anomaly in his database, we closed his database and opened mine. My database forms showed the squashed navigation bar on his computer...

Never mind! Figured it out CurPath = "C:\USERS\" & Environ("USERNAME") & "\Desktop\GPS_Printer_Export_" & Format(Now(), "yyyymmdd") & ".xlsb" DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel12, "qryMailing4Printer", CurPath, -1 Alan [smurf]

Been a very long time since I tried to do this. Every time I try to open the exported workbook, it is corrupted. Are the spreadsheet types changed in Office 365? Private Sub cmdMailPrinter_Click() On Error GoTo cmdMailPrinter_Click_Err ' DoCmd.OpenQuery "qryMailing4Printer", acViewNormal...

Spent the last 2 weeks creating and tweaking a 150 line query pulling stuff from all over the place. My internal customer kept changing his mind what he needed. Found that I need to write the whole thing to a table on SQL Server; so created a table this morning. Started a stored proc and put a...

I have built an Add-Ins toolbar in Excel VBA. Sometimes when I open a spreadsheet the ADD-INS heading is missing. I go to DEVELOPER and Add-Ins and see that my add-in is checked. Is there a setting I need to do? I am about to share this with the rest of my workgroup and want to make sure they...

I'm sure that I solved this problem years ago but I cannot find my old code. :-( My customer has a spreadsheet with rows for multiple meetings to be scheduled. I've captured all the elements I want to put into the meeting notice but need some code to help me build the messages. I pretty sure...

Assuming that there is an update process for tblMaster i.e. it is not a bound table, run a recordset to update to change Done from False to True. sqlStr="SELECT * FROM tblRequest WHERE RequestID=me.cmbRequestID.value" Set RSreq=db.openrecordset(sqlStr,dbopendynaset,dbseeChanges) rsreq.edit...

So the programmer that left last year put passwords on the VBA of various ACCDB databases. I've been looking online for Recovery or Deletion tools and found lots that will seemingly work with MDB but nothing for Access 2007 or later. Anybody got ideas for me? Alan [smurf]

OK, my date in DATE_HISTORY is expressed as YYMMDD or 160421. The code below works perfectly and returns ~6000 rows. SELECT * FROM OPENQUERY(GLOBALCUB,'select * FROM GLOBALCWF.Inventory_Hist WHERE DATE_HISTORY=160418') Thanks, looks like I have a bunch of new terms to...

I have been opening a file every morning for months and manually (or Find and Replace) the date. My buddy suggested a computed value to get the date for me. I am now at the point of putting the whole thing together and having problems understanding the correct number of tick (') marks and the...