อ่านค่าจาก combo boxes แล้วให้เลขที่ Run Auto
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 279   2
URL.หัวข้อ / URL
อ่านค่าจาก combo boxes แล้วให้เลขที่ Run Auto

อาจารย์ค่ะ หนูลอก code ของการ Run No ไปใช้ แต่ถ้าต้องการให้โปรแกรมอ่านค่าจาก combo boxes ที่เรากรอก เดือนและปี ไว้แล้วให้ Run เฉพาะ No ออกมาเท่านั้น เช่น " 001 " เรียงลำดับ ต่อไปเรื่อย ๆ ถ้าถึงเดือนถัดไปก็เลือก combo boxes เดือนที่กรอกไว้ ก็ให้ เริ่ม Run "001" ใหม่ ถ้าต้องการแทรกข้อมูลก็สามารถเลือก Combo boxes ในเดือนที่ต้องการ นั้น ๆ มากรอกข้อมูลเพิ่มได้ จะเขียน Code อย่างไรค่ะ รบกวนอาจารย์และผู้รู้ช่วยแนะนำการเขียน Code โปรแกรมด้วยค่ะ ขอบคุณมากค่ะ

2 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R03800
แล้วแต่จำนวนหลักที่จะเก็บจาก combo box ว่าต้องการนำมาใช้กี่หลัก เช่น

เดือนปี =012546
เดือนปี =0146

เพราะจะมีผลต่อการค้นหา ดังนี้

ถ้าเป็นแบบแรก จะได้
...
If Me.cmbYear <> "" Then
If DCount("ID", "tblEUProject", "Left([ID],6)='" & Me.cmbYear & "'") > 0 Then
intMax = DMax("Val(Mid([ID],7))", "tblEUProject", "Left([ID],6)='" & Me.cmbYear & "'")
Me.ID= Me.cmbYear & Format(intMax + 1, "000")
Else
Me.ID= cmbYear & "001"
End If
Else
MsgBox "ยังไม่ได้เลือกเดือนและปี...."
Me.cmbYear.SetFocus
Exit Sub
End If

ถ้าเป็นแบบสอง ให้เปลี่ยนเป็น Left([ID],4) และ Mid([ID],5) ครับ
2 @R03842
ได้แล้วค่ะ ขอบคุณอาจารย์มากค่ะ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0545s