กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
367 4
URL.หัวข้อ /
URL
Frames in Forms ?
เรียนถาม อ.สุภาพค่ะ
1.ไม่ทราบว่าเราสามารถทำให้ forms ปรับเลื่อนได้หรือไม่ค่ะ ลักษณะคล้ายกับ windows exploer นะค่ะ คือประมาณว่าเราสามารถแบ่ง Frames ในฟอร์มแล้วสามารถปรับเลื่อนได้ค่ะ
2.ต้องการไม่ให้ผู้ใช้ กดปุ่ม Ctrl+Alt+Del จะต้องเขียน code ป้องกันอย่างไรค่ะ
รบกวนแนะนำด้วยค่ะ
ขอบคุณค่ะ
1.ไม่ทราบว่าเราสามารถทำให้ forms ปรับเลื่อนได้หรือไม่ค่ะ ลักษณะคล้ายกับ windows exploer นะค่ะ คือประมาณว่าเราสามารถแบ่ง Frames ในฟอร์มแล้วสามารถปรับเลื่อนได้ค่ะ
2.ต้องการไม่ให้ผู้ใช้ กดปุ่ม Ctrl+Alt+Del จะต้องเขียน code ป้องกันอย่างไรค่ะ
รบกวนแนะนำด้วยค่ะ
ขอบคุณค่ะ
4 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R04505
จากคำถามข้อ1 ค่ะ
หนูหมายถึงการสร้างฟอร์มที่สามารถปรับขนาดได้ อย่างตัวอย่างของฟอร์มหน้าต่างฐานข้อมูล ของ Access 2000 จะมีเมนู objects อยู่ทางด้านซ้าย เมื่อเรานำเมาส์ไปชี้ที่เส้นกรอบของเมนู แล้วก็คลิกซ้ายค้างไว้ เราก็จะสามารถลากขยายเมนูนั้นได้ ขยายไปทางขวา และก็สามารถลากกลับมาเป็นแบบเดิมอ่ะค่ะ เช่นเดียวกับ windows exploer ค่ะ ไม่ทราบว่า Access เท่าได้หรือเปล่าค่ะ
อีกคำถามนึงน่ะค่ะ จาก code
Set rst = db.OpenRecordset("select * from tblStudent where ID = '" & txtID & "' ")
ถ้าหนูต้องการให้ ID เป็น Autonumber จะต้องแก้ไข Code อย่างไรค่ะ
(ตอนนี้ ID เป็น Text ค่ะ)
รบกวน อ.กรุณาแนะนำด้วยค่ะ
ขอบพระคุณค่ะ
หนูหมายถึงการสร้างฟอร์มที่สามารถปรับขนาดได้ อย่างตัวอย่างของฟอร์มหน้าต่างฐานข้อมูล ของ Access 2000 จะมีเมนู objects อยู่ทางด้านซ้าย เมื่อเรานำเมาส์ไปชี้ที่เส้นกรอบของเมนู แล้วก็คลิกซ้ายค้างไว้ เราก็จะสามารถลากขยายเมนูนั้นได้ ขยายไปทางขวา และก็สามารถลากกลับมาเป็นแบบเดิมอ่ะค่ะ เช่นเดียวกับ windows exploer ค่ะ ไม่ทราบว่า Access เท่าได้หรือเปล่าค่ะ
อีกคำถามนึงน่ะค่ะ จาก code
Set rst = db.OpenRecordset("select * from tblStudent where ID = '" & txtID & "' ")
ถ้าหนูต้องการให้ ID เป็น Autonumber จะต้องแก้ไข Code อย่างไรค่ะ
(ตอนนี้ ID เป็น Text ค่ะ)
รบกวน อ.กรุณาแนะนำด้วยค่ะ
ขอบพระคุณค่ะ
3 @R04506
งั้นคงต้องใช้ Tree View ช่วยครับ ให้ค้นด้วยคำว่า Tree View ในกระทู้เก่าๆ ดู
และ แก้โค้ดให้เป็น
Set rst = db.OpenRecordset("select * from tblStudent where ID = " & txtID & )
และ แก้โค้ดให้เป็น
Set rst = db.OpenRecordset("select * from tblStudent where ID = " & txtID & )
4 @R04748
จาก code
Private Declare Function SystemParametersInfo Lib _
"user32" Alias "SystemParametersInfoA" (ByVal uAction _
As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
ByVal fuWinIni As Long) As Long
Sub DisableCtrlAltDelete(bDisabled As Boolean)
Dim X As Long
X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub
Sub Disabled()
'To disable Ctrl-Alt-Delete:
Call DisableCtrlAltDelete(True)
End Sub
Sub Enabled()
'To enable Ctrl-Alt-Delete:
Call DisableCtrlAltDelete(False)
End Sub
ไม่ทราบว่าจะเรียกใช้งานอย่างไรค่ะ ไว้ใน even ใดของฟอร์มค่ะ ?
Private Declare Function SystemParametersInfo Lib _
"user32" Alias "SystemParametersInfoA" (ByVal uAction _
As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
ByVal fuWinIni As Long) As Long
Sub DisableCtrlAltDelete(bDisabled As Boolean)
Dim X As Long
X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub
Sub Disabled()
'To disable Ctrl-Alt-Delete:
Call DisableCtrlAltDelete(True)
End Sub
Sub Enabled()
'To enable Ctrl-Alt-Delete:
Call DisableCtrlAltDelete(False)
End Sub
ไม่ทราบว่าจะเรียกใช้งานอย่างไรค่ะ ไว้ใน even ใดของฟอร์มค่ะ ?
Time: 0.1237s
หรือจะใช้ Tab control ช่วยก็ได้ จะได้แบ่งข้อมูลออกเป็นกลุ่ม
ถ้าแบบเดิมเขาจะใช้ Page Break กัน
2. ผมได้โค้ดตัวนี้จาก MS มา แต่ใช้ไม่ได้กับ Windows ตระกูล NT ทั้งหลายครับ
แต่ยังไม่เคยลองกับ 98 หรือ WinMe
Private Declare Function SystemParametersInfo Lib _
"user32" Alias "SystemParametersInfoA" (ByVal uAction _
As Long, ByVal uParam As Long, ByVal lpvParam As Any, _
ByVal fuWinIni As Long) As Long
Sub DisableCtrlAltDelete(bDisabled As Boolean)
Dim X As Long
X = SystemParametersInfo(97, bDisabled, CStr(1), 0)
End Sub
Sub Disabled()
'To disable Ctrl-Alt-Delete:
Call DisableCtrlAltDelete(True)
End Sub
Sub Enabled()
'To enable Ctrl-Alt-Delete:
Call DisableCtrlAltDelete(False)
End Sub