ปรับใช้คำสั่ง VBA to Visual อย่างไรครับ
แก้ไขครั้งสุดท้ายโดย phatthawat เมื่อ 2019-5-24 20:17ปรับคำสั่งใช้ใน Visual Basic ได้อย่างไรครับ
ไฟล์ตัวอย่างครับ
https://upload.i4th.in.th:8443/getfile.php?id=238786&a=60479537513674d8d6666c78f5f99ab4&t=5ce7f0b5&o=13FA32E489BEE76EE062004E41EFD79B46EE30FD8EA4E426FB636F0F15A1CBE26CFA32E488BE&n=Demo2.mdb
/***** CodeVBA
Private Sub Cmb_Save_Click()
Dim SQLTextAs String
Dim SQLDelete As String
Me.Dirty = False
If MsgBox("คุณต้องการบันทึกข้อมูลหรือไม่", vbYesNo + vbQuestion, "ระบบกำลังจะบันทึก") = vbYes Then
DoCmd.SetWarnings False
'คำสั่งเพิ่มข้อมูลไปยังตารางหลัก
SQLText = "INSERT INTO ( 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
ควรจะอธิบายรายละเอียดมาด้วยว่าจะให้ทำอะไรครับ
หน้า:
[1]