กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
375 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
2 @R03842
ได้แล้วค่ะ ขอบคุณอาจารย์มากค่ะ
Time: 0.1116s
เดือนปี =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) ครับ