กระทู้เก่าบอร์ด อ.Yeadram
1,224 4
URL.หัวข้อ /
URL
อาจารย์ yeadram ช่วยอธิบายโค๊ดนี้หน่อยค่ะ
Dim stDocName As String
Dim stLinkCriteria As String
If Date > #7/30/2008# Then
stDocName = "Main Menu"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
stDocName = "SaleProgram"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
เป็นโค๊ดที่อาจารย์ akk แนะนำไว้ในบอร์ด Access Service ค่ะ หนูเห็นว่าน่าสนใสและมีประโยชน์มากในการกำหนดเวลาการใช้โปรแกรม
ที่เราสร้างขึ้นเพื่อสำหรับการให้ทดลองใช้ชั่วคราวนะค่ะ
หนูอยากทราบว่าในแต่บรรทัดนั้นมีความหมายอย่างไรบ้าง จะได้นำมาปรับแต่งให้ตรงกับที่เราต้องได้นะค่ะ
Dim stLinkCriteria As String
If Date > #7/30/2008# Then
stDocName = "Main Menu"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
stDocName = "SaleProgram"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If
เป็นโค๊ดที่อาจารย์ akk แนะนำไว้ในบอร์ด Access Service ค่ะ หนูเห็นว่าน่าสนใสและมีประโยชน์มากในการกำหนดเวลาการใช้โปรแกรม
ที่เราสร้างขึ้นเพื่อสำหรับการให้ทดลองใช้ชั่วคราวนะค่ะ
หนูอยากทราบว่าในแต่บรรทัดนั้นมีความหมายอย่างไรบ้าง จะได้นำมาปรับแต่งให้ตรงกับที่เราต้องได้นะค่ะ
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R01086
ขอบคุณค่ะ อาจารย์ Krathok-man (ขออนุญาติเรียกอาจารย์นะคะ) หมายความว่าเราสามารถปรับเปลี่ยน #7/30/2008# Then เพื่อกำหนดวันที่เราต้องการให้เปิด FORM "Main Menu" ได้ใช่ไหมคะ
ขอถามต่อเลยนะคะว่า แล้วต้องเอาโค๊ดนี้ไปใส่ไว้ที่ [Event Procedure] ไหนกันคะ
ขอถามต่อเลยนะคะว่า แล้วต้องเอาโค๊ดนี้ไปใส่ไว้ที่ [Event Procedure] ไหนกันคะ
3 @R01087
ใช่แล้วครับ
ส่วนจะใส่ตรง EVENT ไหน ผมก็ไม่ทราบครับ
แต่เดาว่าน่าจะใส่ตรงหลัง FORM LOGIN อะไรซักอย่าง
เช่น Form_Close()
ส่วนจะใส่ตรง EVENT ไหน ผมก็ไม่ทราบครับ
แต่เดาว่าน่าจะใส่ตรงหลัง FORM LOGIN อะไรซักอย่าง
เช่น Form_Close()
4 @R01088
OK ได้แนวทางแล้ว เดี๋ยวหนูจะทดลองไล่ดูทีละ Event นะคะ..ขอบคุณค่ะ
Time: 0.2661s
ถ้าวันที่มากกว่า วันที่ 30 กค. 2008 ให้เปิด FORM "Main Menu"
ถ้าไม่ใช่ให้เปิด FORM "SaleProgram"