Search results

I would use a pivot table. If you already have your table, just go to Form > New > AutoForm:Pivot Table wizard. If you need further help with pivot tables/charts there is a lot of information out there & also have a play around with the wizard.

Private Sub btn_Quit_Click() On Error GoTo Err_btn_Quit_Click Dim FSO Set FSO = CreateObject("scripting.filesystemobject") Dim NewName NewName = Replace(Now, "/", "") NewName = Replace(NewName, " ", "") NewName = Replace(NewName, ":", "") NewName = NewName & ".mdb"...

Try this sample out for some ideas. Extract to C:\

have you tried this in your code: Dim LTotal As Long LTotal = DCount("<Field Name>", "<Table Name>")

Do they exit via a command button, or by the application window close?

This sample from the SGA may help...

More information is required... What is the 60:40 ratio What are the tables? ??

Use the combobox Row Source property to populate the combobox from the "combobox source table" and use the combobox Control Source property to set the "destination table" field. These can both be found under the Data Tab of the comboboxes properties. SGA

Rock out with your sock out

I can't test this as I don't have Outlook, but I seem to recall using .To Try this code, you will see what I mean Private Sub SendBtn_Click() Dim Olk As Outlook.Application Set Olk = CreateObject("Outlook.Application") Dim OlkMsg As Outlook.MailItem Set OlkMsg = Olk.CreateItem(olMailItem)...

What happens if you make a copy of the form and rename it then adjust your code with the new form name?

By Justified you mean this: "Justified" - Sort of a mix between the other types. Text begins aligned to the left, but lines will "extend" themselves (by increasing the space between words) in order to completely fill the line with text. This type of alignment wants both the left and right...

Yeah that is what I though initially, but the OP has simply commented out the OR statement.

This may be of interest to you

Here is one from the Spent Geezers Association:

I use forms that are full screen without any control box. You have to remove all the control box, minimize, maximize buttons etc. Make the form "popup" and set menu = 1. This will make the form take over the whole screen. See attached example. Change the file extension of the accdb to .mde as it...

If the delete and append queries can be run from command buttons (end users are not actually creating the querries) then: 1) Use a .mde file for the front end 2) Use full screen forms with no close and minimize buttons, no control box so that the user can't get at the tables (navigation from...

Greetings I use four buttons (first, last, next and previous). If it is on the last record then a msgbox appears (same with first). Two text boxes display current record and total record count. You should be able to mod this for your .enabled Private Sub btn_next_Click() On Error GoTo...

Just put Exit Sub above your error handling code. That wont run unless there is an error. On Error GoTo DRStats_Err ....all misc code here Exit Sub:D DRStats_Err_Exit: 'THE NEXT LINE IS IN QUESTION.... dbs.QueryDefs.Delete strQName Exit Sub DRStats_Err: MsgBox Error$...

try: if forms("frm_build_ARMS").controls("Check8").value = -1 then 'checkbox is checked, put your code in here end if