ทำโปรแกรมขายหวย
กระทู้เก่าบอร์ด อ.Yeadram

 4,969   6
URL.หัวข้อ / URL
ทำโปรแกรมขายหวย

คือต้องการศึกษาอะครับ เป็นโปรแกรมขายหวย เวลาคี 3 ตัว จะมีที่กรอก ตรงและโต๊ด ถ้าคี 2 ต้ว ที่กรอก 2ช่อง แต่เป็น บนและล่าง และเวลา เลขกลับ เช่น 94 และ 49 สามารถคีราคาไปได้เลย และเวลาเปิดฟอร์มสำหรับกรอกข้อมูล จะไปพิมที่บรรทัดใหม่ตลอด โดยเราไม่ต้องกดเอง กันลืมครับ

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

1 @R03474
เวลาเปิดฟอร์ม ไปที่ รายการใหม่เสมอ
Private sub form_open(...
docmd.gotorecord..............acnew
end sub


ส่วนความต้องการอื่นๆ ต้องดูการออกแบบตารางด้วยว่า คุณมีฟิลด์เก็บข้อมูลกี่ฟิลด์ ชื่อฟิลด์อะไรบ้าง แล้วคุณเอา textbox มาวางบนฟอร์มอยู่ในลักษณะใด มี textbox กี่ตัว ครบตามจำนวนฟิลด์หรือไม่ textbox แต่ละตัวชื่ออะไร คุณวางแผนลำดับงานอย่างไร จะให้บันทึกช่องไหนก่อนหลัง ถ้าผู้ใช้ฝ่าฝืน อยากคีย์ช่องสุดท้ายก่อน คุณจะมีวิธีการอย่างไร (จะป้องกัน หรือจะหาทางออก หรือจะเดินไปตบหัวคนคีย์ อิอิ ล้อเล่นเด้อออออ)
2 @R03475
ถ้าจะศึกษาหาความรู้ แนะนำไปศึกษาระบบงานอื่นๆดีกว่าครับ โปรแกรมพวกอบายมุขพวกนี้ ไม่แนะนำครับ ห่างๆได้จะเป็นดี
3 @R03476
Private sub form_open(...
docmd.gotorecord..............acnew
end sub
ลองเอาไปใช้แล้วติด error ไม่ทราบว่าในจุดไข่ปลาต้องใส่อะไรด้วยหรือเปล่า
4 @R03481
- ตารางของผมจะมีชื่อลูกค้า รายการซื้อสามตัวบน ราคาสามตัวบน ราคาสามตัวโต๊ด รายการซื้อสองตัว ราคาซื้อสองตัวบน ราคาซื้อสองตัวล่าง รายการซื่อสามตัวล่าง ราคาซื้อสามตัวล่าง อะครับ

- และที่อยากทำคือ จะใส่ตารางไว้ในฟอร์มด้วย จะได้มองเห็นเวลากรอกข้อมูลอะครับ และฟอร์มจะเรียงแนวนอนครับ แล้วตารางเอาไว้ข้างล่าง ผมเคยลองทำเป็น Sub form เวลากรอกข้อมูลมันจะวิ่งไปที่ตารางด้วยอะครับ ทำให้ช้า
คือต้องการให้วิ่งอยู่แค่ชอ่งที่เราจะกรอกข้อมูลอะครับ เช่น ซื้อสามตัวบน จะมีสามตัวตรงและโต๊ด แล้วให้มันมารอรับที่ช่องรายการซื้ออะครับ


- และอีกอย่างเวลาเรากรอกข้อมูล   ที่มีตัวเลขสองตัว ช่องต่อไปขี้น ราคาซื้อสองตัวบน ราคาซื้อสองตัวล่าง    และเวลาที่เรากรอกข้อมูล ที่มีตัวเลข สามตัว ช่องต่อไป ราคาซื้อสามตัวบน ราคาซื้อสามตัวโต๊ด   ( ช่องราคาซื้อสองตัวบนและล่างหายไป ) ขอบคุณครับ
5 @R03483
โปรแกรมอื่น ไม่มีให้ทำหรือไง
6 @R03484
ไปเรคคอร์ดใหม่
Private Sub Form_Open(Cancel As Integer)
DoCmd.GoToRecord acDataForm, Me.Name, acNewRec
End Sub


ส่วนปัญหาการทำงานบนฟอร์ม ที่อธิบายมาผมยังไม่ค่อยเข้าใจอยู่ดี
- คุณอยากแสดงตารางไว้ล่างฟอร์ม แต่ไม่อยากให้ข้อมูลวิ่งไปที่ตารางทันที เพราะมันช้า แล้วจะให้แสดงตารางขึ้นมาดูอะไรล่ะครับ
- วลีนี้ ความหมายคืออะไร "ช่องต่อไปขี้น"

เอาเป็นว่า ให้คุณใช้หลักการของ control array ร่วมกับ if ก็แล้วกันครับ
label1.caption=""
if len(text1)=3 then
text3=text1
text3.setfocus
elseif len(text1)=2 then
text2=text1
text2.setfocus
elseif not isnumeric(text1) then
label1.caption="กรอกข้อมูลไม่ถูกต้อง"
text1.setfocus
end if

ประมาณนี้แหละครับ

และสุดท้าย ตามความเห็นของ อ.สันติสุข ครับ ผมคงขออนุญาตงด ตอบกระทู้นี้แล้วนะครับ
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.3453s