... รบกวนอาจารย์สุภาพเกี่ยวกับคำสั่ง bypasskey ครับ ...
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 297   5
URL.หัวข้อ / URL
... รบกวนอาจารย์สุภาพเกี่ยวกับคำสั่ง bypasskey ครับ ...

คือว่า ผมได้ใช้ function ChangeProperty bypasskey ที่อาจารเคยบอกไว้แล้วน่ะครับ
แต่มันไม่ได้

Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim prp As Property ( dim dbs ไว้แล้ว)
Const conPropNotFoundError = 3270

Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True

Change_Bye:
Exit Function

Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function

-------
Private Sub Shift_Disabled_Click()
ChangeProperty "AllowBypassKey", DBboolean, False
End Sub

พอ run shift_disabled แล้ว
มันก็บอก type mismatch น่ะครับ (เหมือนกับ ไม่มี property bypasskey )
error ตรงบรรทัด
Set prp = dbs.CreateProperty(strPropName, varPropType, varPropValue)
น่ะครับ

เป็นเพราะอะไรครับ
อาจารย์ช่วยหน่อยครับ

ขอบคุณมากครับ

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

1 @R04337
เอ่อ อาจารครับ ได้แล้วล่ะครับ
พอดีผมลืมใส่

dim prp as DAO.property น่ะ

แต่ปัญหาใหม่คือทีนี้ผมลืม ทำฟอร์ม ไอ้เจ้าที่ไว้เลือกคำสั่งได้ว่าจะกด shift ได้หรือปล่าว(คือต้องเข้าไปในฐานข้อมูลก่อน แล้วเข้าไปเปิดฟอร์มน่ะครับ -_-" )

จาร ทำไงดีอ่า ซวยมากๆ มีวิธีเข้าไปไหม (ก็ตะกี้เลือกแบบกด shift ไม่ได้แล้ว ก็เลยเข้าฐานข้อมูลไม่ได้เลย)
เออ แล้วโปรแกรมตัวนี้ผมได้ทำแบบว่าต้องใส่รหัสก่อนด้วย (ของ access เอง)
จะมีวิธีเข้าไปได้ไหมครับ

ขอบคุณอีกรอบครับ
2 @R04338
เ่อ่ออาจารย์ครับ
แต่มันยังสามารถคลิ๊กขวา แล้วเลือก ออกแบบฟอร์มได้น่ะครับ

ทำไงดีอาจารย์
3 @R04339
เอ่อ อาจารย์ครับ ทำได้แล้วล่ะ

คือว่า พอดีมันยังออกแบบฟอร์มได้อยู่ ผมเลย เขียน code ให้มัน ไปเปิดฟอร์มแก้ไขการกด shift -_-" เกือบซวยแหนะ

กระทู้นี้เลยกลายเป็นตั้งเองตอบเองเลยแฮะ

แฮะๆ
4 @R04342
ให้สร้างฐานข้อมูลเปล่าขึ้นมา 1 อัน

แล้วใส่โค้ดเหมือนข้างบนลงไป

แต่เปลี่ยน

Set dbs = CurrentDb

ให้เป็น

Set dbs = OpenDatabase("c:\ห้องที่เก็บฐานข้อมูลที่กดShiftไม่ได้\ชื่อฐานข้อมูลเป้าหมาย.mdb")

และเปลี่ยน

Private Sub Shift_Disabled_Click()
ChangeProperty "AllowBypassKey", DBboolean, False
End Sub

ให้เป็น

Private Sub Shift_Disabled_Click()
ChangeProperty "AllowBypassKey", DBboolean, True
End Sub

ลอง Run ดู แล้วให้เข้าไฟล์เดิมใหม่ น่าจะเข้าได้ปกติครับ

5 @R04344
อาาา

ยังไงก็ยังมีวิธีแก้อยู่วันยังค่ำเหรอเนี่ย อ่านะ

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