Search results

Fair go....,it is just a typo: I cannot get the code debug screen from appearing. should be I cannot stop the code debug screen from appearing!

Try this, it uses an invisible label which changes if save has been clicked. There is probably a better way, but I am a NOOOOOB!!!!!!!!:D

I tested your sub on my PC (Acc 2003) and it worked fine.

Might have something to do with your If then else statement. Is this msgbox popping up when it is run, otherwise your "If masters is not occuring.: MsgBox("Masters " & MyVal, vbOKOnly, "xXx")

Have a great Christmas and try this tastey snack fresh from Spent Geezer Association

Greetings, and Merry Christmas to one and all, I use this Function to send emails through Lotus from Access 2003 Database. Public Function NotesMailSend(strRecipient As String, strSubj As String, strBody As String, strAttachment As String) 'StrRecipient is the email address of the recipient...

I am going to eat / drink catergory 3 tonight at the Christmas Party!!

This is another work around for the same problem from the Spent Geezers Association.

greetings!!

Alternatively, if it enters it all at once you could use the on change or after update properties. Private Sub Txt_Textbox1_Change() txt_Textbox2.setfocus End Sub BTW GREETINGS and WELCOME!!

Can you add it to the same event that calls the compact and repair function so it backs up then compacts and repairs?

Just order and group your query that is populating the combo (instead of just selecting all). Something like this: SELECT Tasks.DEPARTMENTNAME FROM Tasks GROUP BY Tasks.DEPARTMENTNAME ORDER BY Tasks.DEPARTMENTNAME;

You should always make a backup before Compacting and repairing. My suggestion would be to create a macro that creates a backup then compacts and repairs on closing. The backup would overwrite the existing backup each time (so you don't balloon out your backup folder). Is this single or multi-user?

Greetings Msyth. Greetings.

Try this at end of code: Dim objExcel Set objExcel = CreateObject("Excel.Application") objExcel.Visible = True objExcel.Workbooks.Open "G:\Biasi\WC" & "_" & Format(Date - 4, "ddmmyy") & ".xls" Set objsheet = objExcel.ActiveWorkbook.Worksheets(1) With objsheet .Rows("1:1").Select...

Arrghh my noobism on full display!! Not bad Bobby, another tip from the master to put in my notebook.

Yeah, wasn't sure if you could put the control names in there like that. Thanks. I like pink.

No, OP stated that unchecked would not be enabled

Try this tastey morsal straight from the Spent Geezers Association...

Put a textbox and checkbox on the form that is bound to the name of indicator and checkbox of the table (make them visible = false if you want). Then "On Current" do something like: if checkbox.value = -1 then if textbox.value = tabname1 then tabname1.enabled = false elseif textbox.value...