TaxtBoxกำหนดช่วงวนลูป
กระทู้เก่าบอร์ด อ.Yeadram

 2,125   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 เป็นบรรทัดไป

ช่วยด้วยครับ***งงงงมารายวันแล้ว***ช่วยแก้หรือเขียนไหมให้หน่อยครับ ขอบคุณครับ

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

1 @R03904
sub


dim i as integer
' เพิ่มข้อมูลเข้าตารางไปก่อนเลย ไม่ต้องเพิ่มเข้าฟอร์ม
for i = beginid to endid
currentproject.connection.execute "insert into runstoreid(StoreID) values(" & i & ");"
next

' แล้วค่อยสั่งให้ฟอร์ม ดึงข้อมูลที่เพิ่งเพิ่ม เอามาแสดงผล
me.requery


end sub
2 @R03906
ต้องประกาศค่า SQL ด้วยหรือไม่ครับ
ถ้ายังไงช่วยสอนที่เรื่อง ประกาศค่า 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
ประมาณนี้ ครับ
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
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2815s