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

 283   2
URL.หัวข้อ / URL
หยุดเฉพาะคำสั่ง ใน sub เดียวกัน

Private Sub Form_Current()
Select Case Expr1
Case 1
xxxxxxxxxxxx
Case 2
xxxxxxxxxxxx
Case 3
xxxxxxxxxxxx
Case 4
xxxxxxxxxxxx
Case 5
xxxxxxxxxxxx
End Select
'______________________________________________________________
If check1 = -1 Then
txt1.Visible = False
Else
txt1.Visible = True
End If
End Sub
1.ถ้าผมต้องการ 1 ปุ่มสำหรับหยุดการทำงานของเฉพาะใน Select Case จนถึงขีดล่าง
(แต่ ตั้งแต่ If จนถึง End sub ยังใช้ได้)
ส่วนอีกหนึ่งปุ่ม ให้ใช้ได้ทั้งหมด จะมีวิธีทำอย่างไรครับ
2.อยากทราบว่า Access สามารถเก็บข้อมูล ได้สูงสุดเท่าไรครับ(กี่ Record) เพื่อต้องเก็บข้อมูลหลายปี
3.ถ้าอยากได้ textbox ที่มีตัวหนังสือเลื่อนได้ วน แบบใน Web ทั้วไป จะทำอย่างไงดีครับ

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

1 @R03870
พอรู้นิดหน่อยนะ ลองเปลี่ยนเป็น
Private Sub Form_Current()
IF เงื่อนไขตรวจสอบที่ 1 Then
คำสั่งที่ต้องการ
call subcheck
Elseif เงื่อนไขตรวจสอบที่ 2 Then
คำสั่งที่ต้องการ
call subcheck
Elseif เงื่อนไขตรวจสอบที่ 3 Then
คำสั่งที่ต้องการ
call subcheck
Elseif เงื่อนไขตรวจสอบที่ 4 Then
คำสั่งที่ต้องการ
call subcheck
Elseif เงื่อนไขตรวจสอบที่ 5 Then
คำสั่งที่ต้องการ
call subcheck
Endif
End sub
---------------------------------------------------
แล้วสร้าง sub ย่อยดังนี้ครับ
sub chek()
f check1 = -1 Then
txt1.Visible = False
Else
txt1.Visible = True
End If
End Sub

2 @R03879
ขอบคุณมากครับ
แต่คิดว่าไม่ตรงกับความต้องการเท่าไหร่ หรือผมใช้ ไม่เป็นก็ไม่แน่ใจครับ
พอดีผมพึ่งคิดออก ผมใช้ If Then GoTo เข้าช่วย เลยใช้ได้ครับ
If Frame1.Value = 2 Then GoTo TamaGod
Select Case Expr1
Case 1
xxxxxxxxxxxx
Case 2
xxxxxxxxxxxx
Case 3
xxxxxxxxxxxx
Case 4
xxxxxxxxxxxx
Case 5
xxxxxxxxxxxx
End Select
'______________________________________________________________
TamaGod:
If check1 = -1 Then
txt1.Visible = False
Else
txt1.Visible = True
End If
End Sub
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.1089s