กระทู้เก่าบอร์ด อ.สุภาพ ไชยา
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 ทั้วไป จะทำอย่างไงดีครับ
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
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
แต่คิดว่าไม่ตรงกับความต้องการเท่าไหร่ หรือผมใช้ ไม่เป็นก็ไม่แน่ใจครับ
พอดีผมพึ่งคิดออก ผมใช้ 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
Time: 0.1089s
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