ปรับใช้คำสั่ง VBA to Visual อย่างไรครับ

phatthawat

ปรับคำสั่งใช้ใน 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

thongkorn

ควรจะอธิบายรายละเอียดมาด้วยว่าจะให้ทำอะไรครับ