Search results

If I use DupDateCount: DCount("ShiftDate","tblShiftDay","ShiftDate= #" & [ShiftDate] & "#") then my results give me a 2 for every record in this field?

Hello, I have a query (qry_EmployeesNet) with a field (ShiftDate) and I have an expression I want to use to count times the same date was used so I can us that expression in my continuous form to highlight duplicate dates. Anyways, I run the query, and the expression below displays (Error#) for...

Id be happy to help but I haven't been at work since January due to a surgery. I think I go back in July I can help then with this, sorry!!

Thanks MajP, I really appreciate it and the explanations of each is great that way I can see what going on and how to do it!

I'm just trying to automate the process, if I was to open the excel workbook I might as well just use Excel and automate it from that or copy and paste it into my test database. I appreciate your input, happy holidays and have a great new year!

I am attaching the database and a excel sheet. In the excel sheet the yellow cell row is the blank row and the green highlighted number is what I need in a separate temp table. The database I attached I ran the code so that the table reflects what I'm after in that table. Sorry had to .zip the...

The code below works because I just deleted everything after the row of dates now I need to figure out how to get that number I highlighted in green? Suggestions on that? Private Sub cmdImport4WeekSchedule_Click() Const msoFileDialogFilePicker As Long = 3 Dim fDialog As Object...

Hello, I need to import from Excel some data BUT not all data so after I import, I need to delete what is not needed. Using the below code behind my button to import it imports all the data from the workbook. In the image I need to only collect the data above the red line I drew in the image and...

I'll keep that in mind next time... Thats a good indicator to show if there are read/write permissions!

Ok I found the issue... My admin messed up on permissions, its fixed now! Thanks all for your help!

Not sure how to check that. I always give them thier accde and tell them keep it on thier desktop and when i do the trusted locations i just trust the location that the backend is on and thier desktop and it always works

Yes, but It allows anyone to use except for a few selections on the switchboard for me. I have been using it that way for over two years with new users all the time with no issues. It did say when she first opened it, it had that Read-Only banner, but I changed the trusted locations, and it went...

Hello, I have a database that has a front end and back end, and I distribute an .accde to each user and if I haven't before I change the "Trusted Locations" so it isn't a read only etc. and this has always worked over the years. Recently I have a new employee that needed access to the MS Access...

@arnelgp thank you!

I also tried ? date() - Weekday(dte, 3) + 4 in the immediate window and got 10/10/24. Would I change it to a Weekday(dte, 4)

Hello I have the code below behind a button to get the current Fridays date. I tried it today which is Friday so it should give me todays date but it gives me next weeks Friday. What needs to be done in order to get the current Friday even if your on a Friday? Thanks! Private Sub...

Thanks, I have some code I use for that already saved, I didn't think of not allowing special characters in a title because I never thought I would be saving as a pdf... Private Sub txtSampleNum_KeyPress(KeyAscii As Integer) Dim LResult As String...

Just an update to help others..... Well, I was getting another error that OutputTo failed... and took me to this line: DoCmd.OutputTo acOutputReport, sExistingReportName, acFormatPDF, myReportOutput It's because in the "sAttachmentName" there were special characters like "/" that isn't...

The way it saved... I saved it to my desktop (renamed) then attached it and deleted the copy on my desktop. I also separated the validation check and if passed then it runs the sub

I got it fixed changing the way I do it... Private Sub cmdSendEmail_Click() 'Make sure there is a record If IsNull(Me.SafetyObserID) Then MsgBox "How can you email data if there isnt any data filled out to email?", vbInformation, "No Data" Exit Sub End If...