|
แก้ไขครั้งสุดท้ายโดย phatthawat เมื่อ 2019-5-24 20:17
ปรับคำสั่งใช้ใน Visual Basic ได้อย่างไรครับ
ไฟล์ตัวอย่างครับ
https://upload.i4th.in.th:8443/g ... 8BE&n=Demo2.mdb
/***** CodeVBA
Private Sub Cmb_Save_Click()
Dim SQLText As String
Dim SQLDelete As String
Me.Dirty = False
If MsgBox("คุณต้องการบันทึกข้อมูลหรือไม่", vbYesNo + vbQuestion, "ระบบกำลังจะบันทึก") = vbYes Then
DoCmd.SetWarnings False
'คำสั่งเพิ่มข้อมูลไปยังตารางหลัก
SQLText = "INSERT INTO [LNB Database] ( LNB, DateWithdrawal, RegistNumber, Status )" & _
"SELECT LNBTemp.LNB, LNBTemp.DateWithdrawal, LNBTemp.RegistNumber, LNBTemp.Status, *" & _
"FROM LNBTemp;"
DoCmd.RunSQL SQLText
'คำสั่งให้ลบข้อมูลจากตารางชั่วคราว หลังเพิ่มข้อมูลไปยังตารางหลักแล้ว
SQLDelete = "DELETE LNBTemp.*, *" & _
"FROM LNBTemp;"
DoCmd.RunSQL SQLDelete
DoCmd.SetWarnings True
Me.Requery
Me.Barcode.SetFocus
Me.Barcode = Null
End If
End Sub
Private Sub Command6_Click() 'การสร้างรหัส Barcode ไปเรื่อยๆ
Dim i As Integer
Dim sBarcode As String
sBarcode = Me.Barcode
DoCmd.GoToRecord , , acNewRec
Me.LNB.SetFocus
Me.LNB = sBarcode
Me.Barcode.SetFocus
Me.Barcode = Null
End Sub
Private Sub Form_Load()
Me.Barcode.SetFocus
End Sub
|
|