Buttons

[ChildProgrammer]

I need help adding codes to 4 buttons using VBA. I need the buttons to go to a table and delete all the records, load new data, View Summary - which will run the query I wrote, View Table - which will open the table. I figured I needed to design a form with 4 buttons, which I did. The problem is that I have no clue how to code the buttons. Please help!!!

[JKing]

Let's sort this out a little bit.

For loading data: How are you loading it? From a text file? From another database? Are you placing it in an existing table or creating a new one?

View Summary and View Table: Do you want to directly open and display the query / table to the user or are you placing these items in forms?

Delete all records: I'm correct in assuming you want to keep the table structure and just delete the data.

[ChildProgrammer]

So far, I have been able to get two buttons to run the specified query and load the specified table. this is what I have written so far.

__________to open table
On Error GoTo Err_btnLoad_Click

Dim stDocName As String

stDocName = "Load_New_Data"
DoCmd.OpenTable "Name of My Table", acViewNormal

Exit_btnLoad_Click:
Exit Sub

Err_btnLoad_Click:
MsgBox Err.Description
Resume Exit_btnLoad_Click

_______To run the Query
On Error GoTo Err_btnRun_Query_Click

Dim stDocName As String

stDocName = "Name of Query"
DoCmd.OpenQuery stDocName, acNormal, acEdit

Exit_btnRun_Query_Click:
Exit Sub

Err_btnRun_Query_Click:
MsgBox Err.Description
Resume Exit_btnRun_Query_Click

____to delete all records (not performing the right operation
On Error GoTo Err_btnClear_Click

DoCmd.DeleteObject acTable, "Name of Table"



Exit_btnClear_Click:
Exit Sub

Err_btnClear_Click:
MsgBox Err.Description
Resume Exit_btnClear_Click

[JKing]

To delete all the records in a table you can do

Private Sub btnClear_Click()
Docmd.RunSQL("DELETE FROM tblName")
End Sub
 

[ChildProgrammer]

Thank you. Got all the buttons to work. Thanks a lot.