Search results for query: *

Hey Copy this code into a module in access; it automatically gets the username of the logged-in user. For the on_click event of the button that prints the report just put in Me.TEXTBOX = ap_GetUserName and that should be it. Brian '-- API Calls for getting the current user and computer...

Hi I'm working in Word and need to hide the msgbox that asks asks if you want to save when closing a doc that has been updated or that hasn't been saved yet. I don't know what the dialog is called, so I'm trying to use SendKeys "{^ESC}" in a module called AutoClose() to prevent it...

I have five tables in my database. The main table has a primary key of EquipID. Two others contain info about Venders and Product Limitations. The final two I created because of many-to-many relationships. TblEquip is linked to tblVenderRel (one-to-many on field EquipID), which in turn is...

Thanks a lot for your help earlier today and this afternoon; I finally got it working how I want. Brian

I'm running this code in the On_Load event form a form. I want it to look at all records in the table, but it is only recognizing the last record in the table. I don't know what is wrong. Any help is greatly appreciated. Thanks Dim Permission as Integer Dim dbs As Database Dim...

I have these code statements that only look at the first record in a form: I need them to look at all of the records. Dim tempuser as String Docmd.OpenForm "subLock", acNormal,,acFormReadOnly, acHidden Docmd.GoToRecord acDataForm, "subLock", acGoTo, 1 tempuser =...

Thanks a lot for your suggestion, I think I've almost got it Here is what I've got now: Dim dbs as Database Dim rdsLocker as recordset Dim rdsDistMaster as recordset Set dbs = current db Set rdsLocker = ("Select Locker from tblLocking") Set rdsDistMaster = ("Select DistMaster...

This function is supposed to look through all the records in a table to see if the user's username is in the table, but is only looking at the first record. Public Function CheckUser() as Integer Dim dbs As Databse Dim rdsLocker As recordset Dim rdsDistMaster As recordset Set dbs = CurrentDb...