กระทู้เก่าบอร์ด อ.Yeadram
2,208 5
URL.หัวข้อ /
URL
TaxtBoxกำหนดช่วงวนลูป
ผมต้องการ รันคลังไปก่อนล่วงหน้าให้อัตโนมัติ
Abroadbook คือ table ส่วนฟิล์ ที่ต้องการให้รันไปก่อน คือ StoreID
ผมสร้าง table : RunStoreID มี text Box 2 ตัว 1.คลังเริมต้น 2.คลังสิ้นสุด
ผมสร้างปุ่มให้run ตามcode เลย
Private Sub Command39_Click()
On Error GoTo Err_Command39_Click
total = BeginID
For n% = BeginID To EndID 'BeginID คลังเริมต้น EndID คลังสิ้นสุด
total = total + 1
MsgBox "ทดลอง" & total & "" 'ไว้ทดสอบว่าrun ได้ไหม
DoCmd.GoToRecord , , acSaveRecord, acNewRec
Next n%
end sub
แต่ปัญหาอยู่ที่ว่าเ?้าไปบันทึกในStoreID เพียง ค่าที่รับมาจาก BeginID ตัวเดียว
สิ่งที่ต้องการคือ ให้บันทึกทั้งหมด เช่น BeginID รับค่าไป 1 EndID รับค่าไป 10
ใน StoreID ควรที่จะขึ้น 1,2,3,4,5,6,7,8,9,10 เป็นบรรทัดไป
ช่วยด้วยครับ***งงงงมารายวันแล้ว***ช่วยแก้หรือเขียนไหมให้หน่อยครับ ขอบคุณครับ
Abroadbook คือ table ส่วนฟิล์ ที่ต้องการให้รันไปก่อน คือ StoreID
ผมสร้าง table : RunStoreID มี text Box 2 ตัว 1.คลังเริมต้น 2.คลังสิ้นสุด
ผมสร้างปุ่มให้run ตามcode เลย
Private Sub Command39_Click()
On Error GoTo Err_Command39_Click
total = BeginID
For n% = BeginID To EndID 'BeginID คลังเริมต้น EndID คลังสิ้นสุด
total = total + 1
MsgBox "ทดลอง" & total & "" 'ไว้ทดสอบว่าrun ได้ไหม
DoCmd.GoToRecord , , acSaveRecord, acNewRec
Next n%
end sub
แต่ปัญหาอยู่ที่ว่าเ?้าไปบันทึกในStoreID เพียง ค่าที่รับมาจาก BeginID ตัวเดียว
สิ่งที่ต้องการคือ ให้บันทึกทั้งหมด เช่น BeginID รับค่าไป 1 EndID รับค่าไป 10
ใน StoreID ควรที่จะขึ้น 1,2,3,4,5,6,7,8,9,10 เป็นบรรทัดไป
ช่วยด้วยครับ***งงงงมารายวันแล้ว***ช่วยแก้หรือเขียนไหมให้หน่อยครับ ขอบคุณครับ
5 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R03906
ต้องประกาศค่า SQL ด้วยหรือไม่ครับ
ถ้ายังไงช่วยสอนที่เรื่อง ประกาศค่า sql พวกคำสั่งสร้าง Recordset ด้วยครับ
ถ้ายังไงช่วยสอนที่เรื่อง ประกาศค่า sql พวกคำสั่งสร้าง Recordset ด้วยครับ
3 @R03907
"ต้องประกาศค่า SQL ด้วยหรือไม่ครับ"
ไม่ต้องครับ ตามที่ให้ไปนั่นแหละครับ
ไม่ต้องครับ ตามที่ให้ไปนั่นแหละครับ
4 @R03974
ไม่ได้ครับ ขึ้น Run-time error'-2147217904 (80040e10)':
No value given for one or more required parameters
มีวิธีอื่นหรือเปล่าครับ
ผมไม่ต้องการอะไรมาก แต่ผมเขียนไ?่ได้สักที่
คือ ผมต้องการ runเลข ตามที่เรากำหนดช่วงเช่น
กำหนด 1 และกำหนด 5
สิ่งที่ต้องการให้บรรทึกลงใน table คือ
1
2
3
4
5
ประมาณนี้ ครับ
No value given for one or more required parameters
มีวิธีอื่นหรือเปล่าครับ
ผมไม่ต้องการอะไรมาก แต่ผมเขียนไ?่ได้สักที่
คือ ผมต้องการ runเลข ตามที่เรากำหนดช่วงเช่น
กำหนด 1 และกำหนด 5
สิ่งที่ต้องการให้บรรทึกลงใน table คือ
1
2
3
4
5
ประมาณนี้ ครับ
5 @R03975
Dim i As Integer
For i = txtBeginID To txtEndID
DoCmd.SetWarnings False
DoCmd.RunSQL "insert into RunStoreID values(" & i & ");"
DoCmd.SetWarnings True
Next i
For i = txtBeginID To txtEndID
DoCmd.SetWarnings False
DoCmd.RunSQL "insert into RunStoreID values(" & i & ");"
DoCmd.SetWarnings True
Next i
Time: 0.3379s
dim i as integer
' เพิ่มข้อมูลเข้าตารางไปก่อนเลย ไม่ต้องเพิ่มเข้าฟอร์ม
for i = beginid to endid
currentproject.connection.execute "insert into runstoreid(StoreID) values(" & i & ");"
next
' แล้วค่อยสั่งให้ฟอร์ม ดึงข้อมูลที่เพิ่งเพิ่ม เอามาแสดงผล
me.requery
end sub