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



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

08 มี.ค. 64 , 13:30:42
อ่าน 126 ครั้ง

pattan0013

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

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



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



ขอบคุณครับ

 

08 มี.ค. 64 , 15:28:44
ตอบกลับ #1

PNR

: สอบถามการเขียนครับ
« ตอบกลับ #1 เมื่อ: 08 มี.ค. 64 , 15:28:44 »
โค๊ด: [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 นะครับ
เรียนเพื่อนสมาชิกและอาจารย์ทุกท่าน
ผมไม่ใช่อาจารย์และไม่ใช่ผู้ที่แตกฉานใน Access นะครับ
แค่ผู้หนึ่งที่แชร์ความรู้เท่าที่มี ถ้าหากอาจารย์ทุกท่านเห็นว่ายังไม่ถูกต้อง
กรุณาโพสตอบกระทู้ส่วนเนื้อหาที่น่าจะถูกต้องกว่าให้ด้วยเพื่อเป็นวิทยาทาน
 
โพสต์นี้ได้รับคำขอบคุณจาก: pattan0013

08 มี.ค. 64 , 16:15:35
ตอบกลับ #2

pattan0013

: สอบถามการเขียนครับ
« ตอบกลับ #2 เมื่อ: 08 มี.ค. 64 , 16:15:35 »
โค๊ด: [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 นะครับ

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

 

09 มี.ค. 64 , 09:17:27
ตอบกลับ #3

pattan0013

: สอบถามการเขียนครับ
« ตอบกลับ #3 เมื่อ: 09 มี.ค. 64 , 09:17:27 »
ใช้งานได้ดีเลยครับ ขอบคุณครับ

 


บอร์ดเรียนรู้ Access สำหรับคนไทย