กระทู้เก่าบอร์ด อ.Yeadram
1,077 1
URL.หัวข้อ /
URL
รบกวนแก้บัคให้ทีครับ
สวัสดีครับ...รบกวนสอบถามทีครับคือผมเขียนโปรแกรมรับสมัครสอบ
ติดบัคอยู่ 1 เรื่องใหญ่เลย
ปัญหา คือ ในการสมัครประกอบ เลข 8 ตัว คือ 4 ตัวแรก รหัสตำเเหน่ง(7011,7012 ผู้บันทึกเลือก) เเละ 4 ตัวต่อมา เลข gen โดย+1 เรื่อยๆ
ปัญหา คือ สมมุติ
คนแรกมาสมัคร ตน.7011 ก็จะได้รหัสเป็น 70111001
คนที่สองมาสมัคร ตน.7011 ก็จะได้รหัสเป็น 70111002
คนที่สามมาสมัคร ตน.7012 ก็จะได้รหัสเป็น 70121003 นี่หละครับบัค
ผมอยากให้ คนที่สาม(ซึ่งเป็นคนเเรกของ ตน. 7012) ได้รหัส 70121001 ครับ
สรุป คือ ตน.ไหนก็ให้ gen เลข 4 ตัวหลังของรหัสใดรหัสนั้นครับ
code เขียนตอน gen เลขครับ
Private Sub Combo105_LostFocus()
If Me.NewRecord Then
If DCount("[id_num]", "register") = 0 Then
Text1 = 1001
Else
Text1 = DMax("id_num", "register") + 1
End If
End If
End Sub
***ขอบอกรายละเอียด database นิดครับ
ใน database filed id_nun เก็บ เลขที่ gen 4 ตัวหลัง
ใน database filed id_pos เก็บ เลขรหัสตำแหน่ง 4 ตัวแรก
ใน from combo105 เชื่อมกับ filed id_pos
ใน from text1 เชื่อมกับ filed id_num
***อยากจะได้วิธี chack combo105 เป็นรหัสตำแหน่งใด คนสมัครไปกี่คนแล้ว
จึงนำไป +1 ครับ
รบกวนทีนะครับ
ติดบัคอยู่ 1 เรื่องใหญ่เลย
ปัญหา คือ ในการสมัครประกอบ เลข 8 ตัว คือ 4 ตัวแรก รหัสตำเเหน่ง(7011,7012 ผู้บันทึกเลือก) เเละ 4 ตัวต่อมา เลข gen โดย+1 เรื่อยๆ
ปัญหา คือ สมมุติ
คนแรกมาสมัคร ตน.7011 ก็จะได้รหัสเป็น 70111001
คนที่สองมาสมัคร ตน.7011 ก็จะได้รหัสเป็น 70111002
คนที่สามมาสมัคร ตน.7012 ก็จะได้รหัสเป็น 70121003 นี่หละครับบัค
ผมอยากให้ คนที่สาม(ซึ่งเป็นคนเเรกของ ตน. 7012) ได้รหัส 70121001 ครับ
สรุป คือ ตน.ไหนก็ให้ gen เลข 4 ตัวหลังของรหัสใดรหัสนั้นครับ
code เขียนตอน gen เลขครับ
Private Sub Combo105_LostFocus()
If Me.NewRecord Then
If DCount("[id_num]", "register") = 0 Then
Text1 = 1001
Else
Text1 = DMax("id_num", "register") + 1
End If
End If
End Sub
***ขอบอกรายละเอียด database นิดครับ
ใน database filed id_nun เก็บ เลขที่ gen 4 ตัวหลัง
ใน database filed id_pos เก็บ เลขรหัสตำแหน่ง 4 ตัวแรก
ใน from combo105 เชื่อมกับ filed id_pos
ใน from text1 เชื่อมกับ filed id_num
***อยากจะได้วิธี chack combo105 เป็นรหัสตำแหน่งใด คนสมัครไปกี่คนแล้ว
จึงนำไป +1 ครับ
รบกวนทีนะครับ
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
Time: 0.3838s
Private Sub Combo105_LostFocus()
If Me.NewRecord Then
if(DCount("id_num","register","[id_pos]=Forms!ชื่อฟอร์ม!combo105"))>0 then
Text1=1001+DCount("id_num","register","[id_pos]=Forms!ชื่อฟอร์ม!combo105")
else
Text1=1001
End If
End If
End Sub
ไม่รู้ใช้ได้หรือปล่าว ลองดูครับ