Recent content by Joel27

Go To the tools menu> the go to startup then go to display form Click the arrow down and then you can choose what for you want to open when access is started. Or you can use a macro to open it by going to open form then define the name of the form then go down and put in maxamize and make sure...

Is it possible to run a database, but not seeing access. I'm using popup menus but I would like to know if its possible to run the database without seeing the access background.

I.e This will give you some ideas go to the ABC form goto properties> then go under Event> OnOpen Private Sub Form_Open(Cancel As Integer) docmd.openform "XYZ" end sub

You really can't do anything that specific with a macro. Instead try using VBA to do what you want

I am creating a pop up form and in the top left corner there is a icon of a form displayed. Can this be removed or replaced with my own icon? Thanks Joel

Is there a way to edit the title bar on a message box? I like the code you gave me, Gordon very nice:) Joel

On my autoexec form I have a button on it that quits access or the database if you will. I use the following code to do so: Private Sub quit1_Click() On Error GoTo Err_quit1_Click dim holder as string holder = msgbox("Are You Sure You Want To Quit?",vbYesNo) if vbYes then Docmd.Quit...

I just zipped it and sent it you shoul dget it in about 10 minutes J

I tried the code up above and no such luck yet any thoughts J

Private Sub Drawing_Number_AfterUpdate() Dim SQL1 As String, Rs As Recordset, Db As Database, Ctl As Control Set Db = CurrentDb() If IsNull(Me.Drawing_Number) Or Me.Drawing_Number = "" Then MsgBox CurrentUser() & ", please add an appropriate drawing...

Scratch that last one i get an error on 'response' Response = acDataErrContinue

Get an error on (me.drawlog) If IsNull(Me.YourFieldName) Or Me.YourFieldName = "" Then Member or data method not found! what do you thinks the error here J

I used this code: Dim SQL1 As String, Rs As Recordset, Db As Database, Ctl As Control Set Db = CurrentDb() If IsNull(Me.YourFieldName) Or Me.YourFieldName = "" Then MsgBox CurrentUser() & ", please add an appropriate drawing number.", vbInformation...

I am trying to disable the shift key in my data base, but I need help in where the module should be put. i'm using this code: 'This Code Disables the Shift Key ' Public Sub DisableByPassKeyProperty() Dim db As Database Dim prp As Property Set db = CurrentDb Set prp =...

I have been working with Access for some time now, and I still am having problems with understanding modules. I have experience with Visual Basic language, but I'm still in the dark about Access modules. Just a few questions about: 1. How to have a module run when the database is opened? 2...