By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
443,560 Members | 1,093 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 443,560 IT Pros & Developers. It's quick & easy.

will anyone check my coding?

suriacute85
P: 6
Option Compare Database

Private Sub BtnAddLine1_Click()
Set db = CurrentDb
Set t = db.OpenRecordset("T_LogEntry")
t.Index = "NoInvois"
t.Seek "=", TxtNoInvois
If t.NoMatch Then
t.AddNew
t.NoInvois = TxtNoInvois
t.NoLori = cmdNoLori
t.TarikhHantar = TxtHantar
t.Kawasan = TxtKwsn
t.Update
TxtNoInvois = ""
Else
MsgBox "Invoice No already exist", 16, "Invoice No exist"""
End If
End Sub

Private Sub btnQuit_Click()
DoCmd.OpenForm "F_MAIN"
DoCmd.Close acForm, "F_Entry"
End Sub

Private Sub BtnSave_Click()
Set db = CurrentDb
Set t = db.OpenRecordset("T_EntryData")

// i want to save all the data, append from T_LogEntry to T_EntryData. after that delete all the records in T_LogEntry//


DoCmd.Run append Query to ("T_EntryData")
DoCmd.Run delete Query ("T_LogEntry")

End Sub
Aug 15 '07 #1
Share this Question
Share on Google+
1 Reply


Rabbit
Expert Mod 10K+
P: 12,382
My question is why do you have the intermediary table?
Aug 20 '07 #2

Post your reply

Sign in to post your reply or Sign up for a free account.