Recent content by Megaduck

I was thinking it may be necessary, too, but I tried it there first and it subtracted the records from Sunday off the week's count. No idea... lol.

This seems to have worked for what I need: =DCount("*","[Truck Log]","DatePart('ww',[Date],2) = DatePart('ww',Date()) And Year([Date]) = Year(Date())") Thanks for stirring me in the right direction. Haha.

Hello, I have the following Dcount query to display weekly record count. Access assumes the week starts on Sunday. I would like to, somehow, adjust this code to count from Monday instead. I thought it would be as easy as adjusting a setting in Options to start weeks on Monday but apparently...

I haven't seen any noticeable performance issues from it, given the database is pretty simple. Not a lot going on really. But, it definitely makes sense and I will look into trying this, if for no other reason than to learn. Appreciate it.

Setting the format explicitly worked. Thank you!

I have several dcount functions on the bottom bar of my database. I am curious if you can separate records in the thousands by comma or not? For clarification, instead of "1541," it would read "1,541." Is this possible at all or would it just create an error? Thanks!

Thanks! I'll give this a look and see if I can make that work.

This is what I was thinking of doing, if nothing else. Can just have a Msgbox message if permissions aren't valid.

I'm using a continuous form. That's what was confusing me; if I just place a button, it will display for all.

Currently, this is what I have setup: Dim UserLevel As String UserLevel = Nz(DLookup("[Role]", "[Employee List]", "[Employee Name]='" & [TempVars]![CurrentUserID] & "'"), 0) If UserLevel = "Admin" Then Me.AdminEdit.Visible = True Else Me.AdminEdit.Visible = False End If Edit...

You're welcome! Good luck to you.

What I did for this issue was put the AddPath.exe in the same folder as the FE database and create a desktop shortcut, having users open it before they open the database itself. You can download that here: https://www.accessribbon.de/en/?Trust_Center:Trusted_Locations This adds the necessary...

This worked for what I was looking for, if anyone one else runs across this too: Private Sub Adminbtn_Click() Dim strPasswd If IsNull(TempVars("AdminPwd")) Then strPasswd = InputBox("Enter Password", "Restricted Form") Else strPasswd = TempVars!AdminPwd End If...

Thanks! I'll give that a try.

I've used this with success: Private Sub Form_Load() Dim UserLevel As String UserLevel = Nz(DLookup("[Role]", "[Employee List]", "[Employee Name]='" & [TempVars]![CurrentUserID] & "'"), 0) If UserLevel = "Admin" Then Me.Adminbtn.Visible = True Else Me.Adminbtn.Visible = False...