ชุมชนคนรักภาษาเบสิค - Visual Basic Community

 ลืมรหัสผ่าน
 ลงทะเบียน
ค้นหา
ดู: 403|ตอบกลับ: 1

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

[คัดลอกลิงก์]

2

กระทู้

4

โพสต์

18

เครดิต

Newbie

Rank: 1

เครดิต
18

แก้ไขครั้งสุดท้ายโดย phatthawat เมื่อ 2019-5-24 20:17

1.png

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


213

กระทู้

301

โพสต์

2419

เครดิต

ผู้ดูแลระบบ

Rank: 9Rank: 9Rank: 9

เครดิต
2419
โพสต์ 2019-5-25 12:46:56 | ดูโพสต์ทั้งหมด

ควรจะอธิบายรายละเอียดมาด้วยว่าจะให้ทำอะไรครับ
สิ่งที่ดีกว่าการให้ คือการให้แบบไม่มีที่สิ้นสุด
ขออภัย! คุณไม่ได้รับสิทธิ์ในการดำเนินการในส่วนนี้ กรุณาเลือกอย่างใดอย่างหนึ่ง ลงชื่อเข้าใช้ | ลงทะเบียน

รายละเอียดเครดิต

ข้อความล้วน|อุปกรณ์พกพา|ประวัติการแบน|G2GNet.com  

GMT+7, 2020-1-27 12:49 , Processed in 0.537448 second(s), 5 queries , File On.

Powered by Discuz! X3.3 R20170401, Rev.54

© 2001-2017 Comsenz Inc.

ตอบกระทู้ ขึ้นไปด้านบน ไปที่หน้ารายการกระทู้