Search results

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...

Hello, I'm trying to figure out how I might modify the code I have so that admins only have to enter the password once per session instead of every time the button is clicked. This is what I have: Private Sub Adminbtn_Click() Dim strPasswd strPasswd = InputBox("Enter Password"...

Only cleared those relevant to my version of Access (16.0) and only for my profile. Didn't touch anything else.

Thank you, I'll give that a try. After clearing the registry, it still went back to previous after a few times of opening Access. I ended up just creating a custom ribbon removing everything and using VBA to minimize ribbon on open. That sufficed for now, so I can meet deadline to get database...

I went into the registry and deleted everything related to Access and it works again.... why does it keep bringing into Access old settings though?

I'm having this problem currently. Everything works fine, then it starts acting up when in ACCDE. It will actually work a few times, then it converts to showing ribbons (showing home and file) and no options. I used USysRibbons at one point to do this but I didn't like the ribbon showing at all...