กระทู้เก่าบอร์ด อ.Yeadram
959 1
URL.หัวข้อ /
URL
เรื่องการ update ข้อมูล
ผมต้องการรวมข้อมูลที่เป็น Format เดียวกัน แต่ส่งมาจากหลายๆ แหล่ง โดยในแต่ละวันทุกๆ ไฟล์ (มีมากกว่า 1 ไฟล์) จะมี SEQ_NO ของแต่ละไฟล์ ซึ่งผมต้องเอาทุกๆ ไฟล์มารวมกันแล้ว RUN SEQ_NO ใหม่ให้เป็น SEQ_NO ของวันนั้นเรียงกันใหม่ ตัวอย่าง
BR_CODE = รหัสสาขา
CREATE_DATE = วันที่บันทึกข้อมูล
SEQ_NO_1 = เลข RUNNING ของแต่ละสาขา ในแต่ละวัน
SEQ_NO_2 = เลข RUNNING ของแต่ละวันที่รวมกันทุกไฟล์
เช่น
BR_CODE CREATE_DATE SEQ_NO_1 SEQ_NO_2
2300 20161220 1
2300 20161220 2
2300 20161220 3
2500 20161220 1
2500 20161220 2
2600 20161220 1
2600 20161220 2
2500 20161219 1
2500 20161219 2
2500 20161219 3
ผมจะนำ CREATE_DATE ของวันที่ 20161220 มา RUNNING ใหม่ ดังนี้
BR_CODE CREATE_DATE SEQ_NO_1 SEQ_NO_2
2300 20161220 1 1
2300 20161220 2 2
2300 20161220 3 3
2500 20161220 1 4
2500 20161220 2 5
2600 20161220 1 6
2600 20161220 2 7
จะต้องเขียน VBA อย่างไรครับ ให้ RUN อัตโนมัติ
ขอบคุณครับ
BR_CODE = รหัสสาขา
CREATE_DATE = วันที่บันทึกข้อมูล
SEQ_NO_1 = เลข RUNNING ของแต่ละสาขา ในแต่ละวัน
SEQ_NO_2 = เลข RUNNING ของแต่ละวันที่รวมกันทุกไฟล์
เช่น
BR_CODE CREATE_DATE SEQ_NO_1 SEQ_NO_2
2300 20161220 1
2300 20161220 2
2300 20161220 3
2500 20161220 1
2500 20161220 2
2600 20161220 1
2600 20161220 2
2500 20161219 1
2500 20161219 2
2500 20161219 3
ผมจะนำ CREATE_DATE ของวันที่ 20161220 มา RUNNING ใหม่ ดังนี้
BR_CODE CREATE_DATE SEQ_NO_1 SEQ_NO_2
2300 20161220 1 1
2300 20161220 2 2
2300 20161220 3 3
2500 20161220 1 4
2500 20161220 2 5
2600 20161220 1 6
2600 20161220 2 7
จะต้องเขียน VBA อย่างไรครับ ให้ RUN อัตโนมัติ
ขอบคุณครับ
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
Time: 0.3409s
Private Sub GenSEQ2()
Dim DB As DAO.Recordset
Dim RS As DAO.Recordset
Dim N As Long
Set DB = CurrentDb
Set RS = DB.OpenRecordset("select * from ชื่อเทเบิล order by BR_CODE, CREATE_DATE, SEQ_NO_1")
N = 1
Do Until RS.EOF
RS.Edit
RS!SEQ_NO_2 = N
N = N + 1
RS.Update
RS.MoveNext
Loop
RS.Close: Set RS = Nothing
End Sub