User form จะให้รับข้อมูลเข้าเลยโดยไม่ต้องกดปุ่ม Add Data

[ch.jew10]

ผมศึกษาและหา code สร้าง user form เพื่อให้กรอกข้อมูล ช่อง AWB No.และ Job No. เป็นการ scan Barcode
ตอนนี้หากกรอกข้อมูลครบทุกช่องแล้ว ต้องกดปุ่ม Add data ข้อมูลจึงจะถูกนำไปบันทึก ผมต้องการนำปุ่ม Add data ออก
โดยหากกรอกข้อมูลแล้ว เมื่อ scan AWB. no. และ job no. และจะให้ข้อมูลไปบันทึกเลย จึงขอคำแนะนำว่าต้องปรับแต่ง code
อย่างไรบ้างครับ ส่วนปุ่ม close ยังให้คงอยู่เพื่อเวลาต้องการปิด user form ครับ ขอบคุณมากครับ

[puriwutpokin]

ผมศึกษาและหา code สร้าง user form เพื่อให้กรอกข้อมูล ช่อง AWB No.และ Job No. เป็นการ scan Barcode
ตอนนี้หากกรอกข้อมูลครบทุกช่องแล้ว ต้องกดปุ่ม Add data ข้อมูลจึงจะถูกนำไปบันทึก ผมต้องการนำปุ่ม Add data ออก
โดยหากกรอกข้อมูลแล้ว เมื่อ scan AWB. no. และ job no. และจะให้ข้อมูลไปบันทึกเลย จึงขอคำแนะนำว่าต้องปรับแต่ง code
อย่างไรบ้างครับ ส่วนปุ่ม close ยังให้คงอยู่เพื่อเวลาต้องการปิด user form ครับ ขอบคุณมากครับ

ปรับโค้ดเป็น

Code: Select all

Private Sub TextBox_Job_no_Change()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("3G_repair")
'find first empty row in database
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'check for a Name number
If Trim(Me.TextBox_round.Value) = "" Then
 Me.TextBox_date.SetFocus
 MsgBox "Please complete the form"
 Exit Sub
End If
'copy the data to the database
If Me.TextBox_Job_no.Value <> "" Then
ws.Cells(iRow, 3).Value = Format(Me.TextBox_date.Value, "MM/DD/YYYY")
ws.Cells(iRow, 5).Value = Me.TextBox_AWB.Value
ws.Cells(iRow, 6).Value = Format(Me.TextBox_Date_sent.Value, "MM/DD/YYYY")
ws.Cells(iRow, 4).Value = Format(Now, "DD/MM/YYYY") & " ; " & Format(Now, "HH:MM")
ws.Cells(iRow, 7).Value = Me.TextBox_remark.Value
ws.Cells(iRow, 8).Value = Me.TextBox_round.Value
ws.Cells(iRow, 2).Value = Me.TextBox_Job_no.Value
Me.TextBox_Job_no.Value = ""
MsgBox "Data added", vbOKOnly + vbInformation, "Data Added"
End If
'clear the data
Me.TextBox_AWB.Value = ""
Me.TextBox_remark.Value = ""
Me.TextBox_date.SetFocus
End Sub

[ch.jew10]

ทดลองแล้ว พอ scan barcode Job No. มัยจะรับค่าแค่ digit แรกตัวเดียวแล้ว enter รับค่าไปเลยครับ เช่น job 8001234 จะรับค่าแค่เลข 8 แล้ว enter ไปเลยจะแก้ไขอย่างไรต่อดีครับ

[puriwutpokin]

ทดลองแล้ว พอ scan barcode Job No. มัยจะรับค่าแค่ digit แรกตัวเดียวแล้ว enter รับค่าไปเลยครับ เช่น job 8001234 จะรับค่าแค่เลข 8 แล้ว enter ไปเลยจะแก้ไขอย่างไรต่อดีครับ

ลองปรับเป็นตามนี้นะครับ พอดี ผมไม่ได้อยู่ออฟฟิตเลยลองสแกน ไม่ได้ ไงลองดูก่อนครับ

Code: Select all

Private Sub TextBox_Job_no_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("3G_repair")
'find first empty row in database
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
'check for a Name number
If Trim(Me.TextBox_round.Value) = "" Then
 Me.TextBox_date.SetFocus
 MsgBox "Please complete the form"
 Exit Sub
End If
'copy the data to the database
If Me.TextBox_Job_no.Value <> "" Then
ws.Cells(iRow, 3).Value = Format(Me.TextBox_date.Value, "MM/DD/YYYY")
ws.Cells(iRow, 5).Value = Me.TextBox_AWB.Value
ws.Cells(iRow, 6).Value = Format(Me.TextBox_Date_sent.Value, "MM/DD/YYYY")
ws.Cells(iRow, 4).Value = Format(Now, "DD/MM/YYYY") & " ; " & Format(Now, "HH:MM")
ws.Cells(iRow, 7).Value = Me.TextBox_remark.Value
ws.Cells(iRow, 8).Value = Me.TextBox_round.Value
ws.Cells(iRow, 2).Value = Me.TextBox_Job_no.Value
Me.TextBox_Job_no.Value = ""
MsgBox "Data added", vbOKOnly + vbInformation, "Data Added"
End If
'clear the data
Me.TextBox_AWB.Value = ""
Me.TextBox_remark.Value = ""
Me.TextBox_date.SetFocus
End Sub

[ch.jew10]

ทดลองแล้ว ใช้ได้ครับ ขอบคุณมากๆเลยครับ