กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
388 1
URL.หัวข้อ /
URL
Secure one Tab on a form
ผมเคยเจอคำถามนี้ที่
http://freeboard.ptcsweb.com/view_q.php?ruser=accesshotline&wbid=229
เมื่อ วันจันทร์ ที่ 9 กันยายน 2545
คือ เขาต้องการที่จะกำหนด Password กับ Tab อันหนึ่งใน Form ผมเลยให้โค้ดเขาไปไว้ดังนี้
Private Sub TabCtl0_Change()
Dim tbc As Control, pge As Page
Dim ctl As Control, I As Integer
Set tbc = Me!TabCtl0
For I = 1 To tbc.Pages.Count
If tbc.Pages(tbc.Value).Name = "Page" & I Then
If I = 2 Then
If InputBox("Your password please") = "abc" Then
' เปิด Tab ที่คลิกเลือกได้
Else
Me.Text5.SetFocus
End If
End If
End If
Next I
End Sub
และวันนี้มีคำถามคล้ายกันที่
http://www.access-programmers.co.uk/forums/showthread.php?s=&threadid=35134
เขาก็ตอบคล้ายๆ กับผมเหมือนกัน ลองคลิกไปอ่านดูนะครับ *** Edited by Supap Chaiya *** 7/6/2546 20:08:47
http://freeboard.ptcsweb.com/view_q.php?ruser=accesshotline&wbid=229
เมื่อ วันจันทร์ ที่ 9 กันยายน 2545
คือ เขาต้องการที่จะกำหนด Password กับ Tab อันหนึ่งใน Form ผมเลยให้โค้ดเขาไปไว้ดังนี้
Private Sub TabCtl0_Change()
Dim tbc As Control, pge As Page
Dim ctl As Control, I As Integer
Set tbc = Me!TabCtl0
For I = 1 To tbc.Pages.Count
If tbc.Pages(tbc.Value).Name = "Page" & I Then
If I = 2 Then
If InputBox("Your password please") = "abc" Then
' เปิด Tab ที่คลิกเลือกได้
Else
Me.Text5.SetFocus
End If
End If
End If
Next I
End Sub
และวันนี้มีคำถามคล้ายกันที่
http://www.access-programmers.co.uk/forums/showthread.php?s=&threadid=35134
เขาก็ตอบคล้ายๆ กับผมเหมือนกัน ลองคลิกไปอ่านดูนะครับ *** Edited by Supap Chaiya *** 7/6/2546 20:08:47
1 Reply in this Topic. Dispaly 1 pages and you are on page number 1
1 @R06622
Time: 0.2444s