กระทู้เก่าบอร์ด อ.Yeadram
843 4
URL.หัวข้อ /
URL
ขอความการุณาอาจาร์ดูการรันข้อมูลให้หนูหน่อยค่ะ
ตารางที่1.
รหัส จ่ายเงินเดือนละ กี่เดือน เริ่ม
A 200 บาท 5 เดือน 3/5/60
B 500 บาท 3 เดือน 27/5/60
C 150 บาท 2 เดือน 8/5/60
ตารางที่ 2
รหัส วันที่จ่าย ยอด
A 3/5/60 200
A 3/6/60 200
A 3/7/60 200
A 3/8/60 200
A 3/9/60 200
B 27/5/60 500
ฺB .....
B .....
หน้าฟอร์ม
*** จะต้องสร้างฟอร์มยังไง ให้ตารางที่2 รันข้อมูลตามที่เรากำหนัดในตารางที่1 ได้ค่ะ
**** ปุ่มที่กด เพื่อรันวันที่ จะต้องใส่โค๊ดอะไรค่ะ
รหัส จ่ายเงินเดือนละ กี่เดือน เริ่ม
A 200 บาท 5 เดือน 3/5/60
B 500 บาท 3 เดือน 27/5/60
C 150 บาท 2 เดือน 8/5/60
ตารางที่ 2
รหัส วันที่จ่าย ยอด
A 3/5/60 200
A 3/6/60 200
A 3/7/60 200
A 3/8/60 200
A 3/9/60 200
B 27/5/60 500
ฺB .....
B .....
หน้าฟอร์ม
*** จะต้องสร้างฟอร์มยังไง ให้ตารางที่2 รันข้อมูลตามที่เรากำหนัดในตารางที่1 ได้ค่ะ
**** ปุ่มที่กด เพื่อรันวันที่ จะต้องใส่โค๊ดอะไรค่ะ
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R23319
ขอบคุนค่ะ หนูจะรองไปทำดูค่ะ
และถ้าต้องการให้วันที่รันเอง ต้องทำยังไงค่ะ
เช่น เรากำหนด เริ่ม 5/5/2560 ต้องการ3เดือน
แล้วให้รัน
5/5/60
5/6/60
5/7/60
ต้องทำยังไงค่ะ
และถ้าต้องการให้วันที่รันเอง ต้องทำยังไงค่ะ
เช่น เรากำหนด เริ่ม 5/5/2560 ต้องการ3เดือน
แล้วให้รัน
5/5/60
5/6/60
5/7/60
ต้องทำยังไงค่ะ
3 @R23320
Private Sub Command4_Click()
For i = 1 To Me.Amount
DoCmd.RunSQL "Insert into Paid_Transactions(Paid_Date) values('" & Me.Paid_Date + i & "');"
Next i
End Sub
ผมทำไฟล์ตัวอย่างไว้แล้ว ส่งเมล์มาขอได้ที่ saifar@outlook.com
พอดีผมจำไม่ได้ว่าต้อง Upload ไฟล์ตัวอย่างนี้ขึ้นไว้ที่ไหน
เพราะไม่ได้เข้ามาในเว็ปนี้นานมากแล้วครับ
For i = 1 To Me.Amount
DoCmd.RunSQL "Insert into Paid_Transactions(Paid_Date) values('" & Me.Paid_Date + i & "');"
Next i
End Sub
ผมทำไฟล์ตัวอย่างไว้แล้ว ส่งเมล์มาขอได้ที่ saifar@outlook.com
พอดีผมจำไม่ได้ว่าต้อง Upload ไฟล์ตัวอย่างนี้ขึ้นไว้ที่ไหน
เพราะไม่ได้เข้ามาในเว็ปนี้นานมากแล้วครับ
4 @R23329
ขอบคุนมากๆๆๆค่ะ
Time: 0.3284s
กรณีถ้าอยากจะทำเป็นฟอร์มเพื่อดูผลลัพธ์ด้วย ก็ทำจากคิวรี่ได้เหมือนกันครับ เพียงแต่มันผิดวัตถุประสงค์ของการใช้งานฟอร์มไปหน่อย