สอบถามการเขียนครับ

[pattan0013]

ตอนนี้ผมมีปัญหาตรงในหน้า form ผมมีปุ่มไว้ Gen เลข Job ปัญหาที่เกิดคือ พนักงานมักเผลอไปกดทำให้เลข Job ไม่เป็นจริง เลยอยากสอบถามว่ามีวิธีเช็กใหมครับ

ผมอยากให้พอกดปุ่มนี้แล้ว ถ้าช่อง Job No. ว่างเปล่าให้ใส่ค่าได้เลย แต่ถ้าช่อง Job No. มีค่าอยู่ให้ reject และ แจ้งเตือนครับ



อันนี้ส่วนหน้า code ครับ ที่เป็นคำสั่งในการ Gen เลข Job



ขอบคุณครับ

[PNR]

โค๊ด: [Select]

IF IsNull(CmbG) Then
Me.CmbG.SetFocus
Msgbox "CMBG ว่าง!!!"
Else
IF Not IsNull(Me.JobNo) Then
Msgbox "มีการกำหนด JobNo ไว้แล้ว"
Exit Sub
else
Me.JobNo = AutotxtID
End if
End if
แก้เฉพาะปุ่ม CommandBotton นะครับ

[pattan0013]

โค๊ด: [Select]

IF IsNull(CmbG) Then
Me.CmbG.SetFocus
Msgbox "CMBG ว่าง!!!"
Else
IF Not IsNull(Me.JobNo) Then
Msgbox "มีการกำหนด JobNo ไว้แล้ว"
Exit Sub
else
Me.JobNo = AutotxtID
End if
End if
แก้เฉพาะปุ่ม CommandBotton นะครับ

ขอบคุณมากครับ เดี๋ยวผมลองดูครับ

[pattan0013]

ใช้งานได้ดีเลยครับ ขอบคุณครับ