กระทู้เก่าบอร์ด อ.Yeadram
985 7
URL.หัวข้อ /
URL
ช่วยแนะนำเงื่อนไขตรวจสอบให้หนูหน่อยค่ะ
หนูมี Checkbox ทั้งหมด 4 ตัวคือ A,B,C,D
และมี Text1 เก็บเวลา Now ของ A ถ้า A เท่ากับ True , และฺB,C,D ต้อง False
คืออยากเช็คด้วยว่าถ้า Text1 ไม่ใช่ค่าว่าง ไม่ให้เก็บเวลา Now ป้องกันผู้ใช้งาน
ติ๊ก A แล้วก็เก็บค่าเวลาใหม่ค่ะ
IF A.Value =True Then
B.Value=False
C.Value=False
D.Value=False
IF Tex1.Value = "" Then
Tex1.Value = Now()
EndIf
หรือหนูไม่รู้ว่าจะเช็คText1ว่าเป็นค่าว่างตรงไหนค่ะ เมื่่อติ๊กถูกที่ A
ถ้างงคำถามช่วยแจ้งหนูด้วยนะค่ะ หนูถามหนูก็ยังงงค่ะ *-*
ขอบคุณค่ะ
และมี Text1 เก็บเวลา Now ของ A ถ้า A เท่ากับ True , และฺB,C,D ต้อง False
คืออยากเช็คด้วยว่าถ้า Text1 ไม่ใช่ค่าว่าง ไม่ให้เก็บเวลา Now ป้องกันผู้ใช้งาน
ติ๊ก A แล้วก็เก็บค่าเวลาใหม่ค่ะ
IF A.Value =True Then
B.Value=False
C.Value=False
D.Value=False
IF Tex1.Value = "" Then
Tex1.Value = Now()
EndIf
หรือหนูไม่รู้ว่าจะเช็คText1ว่าเป็นค่าว่างตรงไหนค่ะ เมื่่อติ๊กถูกที่ A
ถ้างงคำถามช่วยแจ้งหนูด้วยนะค่ะ หนูถามหนูก็ยังงงค่ะ *-*
ขอบคุณค่ะ
7 Reply in this Topic. Dispaly 1 pages and you are on page number 1
2 @R16339
หนูกะลังหัดค่ะช่วยสงเคราะห์หน่อยค่ะ
พอดีอาจารย์ให้งานมา ช่วยหนูหน่อยนะค่ะ
พอดีอาจารย์ให้งานมา ช่วยหนูหน่อยนะค่ะ
3 @R16345
ดูเหมือน เงื่อนไขที่ code มาก็ถูกอยู่แล้วนี่ครับ แล้วปัญหาคืออะไรครับ
มีฟ้อง error หรือไม่ อย่างไร เพราะเท่าที่ดูเห็นแต่ ชื่อ Text1ที่บอก ใน code เป็น Tex1
มีฟ้อง error หรือไม่ อย่างไร เพราะเท่าที่ดูเห็นแต่ ชื่อ Text1ที่บอก ใน code เป็น Tex1
4 @R16353
ขอโทษค่ะที่เข้ามาดูช้า พอดีหนูไปข้างนอกกะเพื่อนมาค่ะ
ค่ะหนูเขียนทั้งหมดแบบนี้นะค่ะ
If A.Value = True Then
B.Value = False
C.Value = False
D.Value = False
If Text1.Value = "" Then
Text1.Value = Now()
Else
MsgBox "ห้ามแก้ไขวันที่นะค่ะ"
End If
End If
แต่ตอนนี้มันไม่เก็บค่าวันที่ให้ มันจะขึ้น "ห้ามแก้ไขวันที่นะค่ะ "
มันไม่เก็บวันที่ใหม่ค่ะทั้งๆที่เป้นค่าว่าง และเมื่อเก็บวันที่ได้ แต่ติ๊ก A ออกแล้วเก็บใหม่มันเก็บอันใหม่ไปทับของเดิมค่ะ
ขอบคุณค่ะ
ค่ะหนูเขียนทั้งหมดแบบนี้นะค่ะ
If A.Value = True Then
B.Value = False
C.Value = False
D.Value = False
If Text1.Value = "" Then
Text1.Value = Now()
Else
MsgBox "ห้ามแก้ไขวันที่นะค่ะ"
End If
End If
แต่ตอนนี้มันไม่เก็บค่าวันที่ให้ มันจะขึ้น "ห้ามแก้ไขวันที่นะค่ะ "
มันไม่เก็บวันที่ใหม่ค่ะทั้งๆที่เป้นค่าว่าง และเมื่อเก็บวันที่ได้ แต่ติ๊ก A ออกแล้วเก็บใหม่มันเก็บอันใหม่ไปทับของเดิมค่ะ
ขอบคุณค่ะ
5 @R16354
แก้ไขตรง และเมื่อเก็บวันที่ได้ แต่ติ๊ก A ออกแล้วเก็บใหม่มันเก็บอันใหม่ไปทับของเดิมค่ะ
แก้ไขค่ะงงพิมพ์งงค่ะ
เมื่อติ๊ก A ออกแล้ว ติ๊ก A ใหม่มันกลับเอาค่าวันที่ใหม่ไปทับของเดิมค่ะ
เมื่อมีข้อมูลวันที่แล้วไม่อยากให้มันไปทับหรือแก้ไขค่าเดิมค่ะ
ขอบคุณค่ะ
ตัวอย่างที่หนูติดค่ะ
แก้ไขค่ะงงพิมพ์งงค่ะ
เมื่อติ๊ก A ออกแล้ว ติ๊ก A ใหม่มันกลับเอาค่าวันที่ใหม่ไปทับของเดิมค่ะ
เมื่อมีข้อมูลวันที่แล้วไม่อยากให้มันไปทับหรือแก้ไขค่าเดิมค่ะ
ขอบคุณค่ะ
ตัวอย่างที่หนูติดค่ะ
6 @R16356
ลองดูแก้ไข เป็น
If A.Value = True Then
B.Value = False
C.Value = False
D.Value = False
If Text1.Value = "" Or Isnull(Text1.Value) Then
Text1.Value = Now()
Else
MsgBox "ห้ามแก้ไขวันที่นะค่ะ"
End If
End If
If A.Value = True Then
B.Value = False
C.Value = False
D.Value = False
If Text1.Value = "" Or Isnull(Text1.Value) Then
Text1.Value = Now()
Else
MsgBox "ห้ามแก้ไขวันที่นะค่ะ"
End If
End If
7 @R16357
เย่ ได้แล้วค่ะ
ขอบคุณมากค่ะ คุณ Su
ขอบคุณมากค่ะ คุณ Su
Time: 0.2715s
IF A.Value =True Then
B.Value=False
C.Value=False
D.Value=False
Else
MsgBox "ต้องมีค่าตัวใดตัวหนึ่ง"
'ตรงนี้หนูจะไว้ให้ติ๊กถูกอย่างน้อย 1 ตัวค่ะถ้าไม่มีให้แจ้งเตือนค่ะ
ตรงนี้คือที่ติดค่ะว่าจะใส่ไว้ตรงไหน
เมื่อ A.Value =True เช็ค Tex1.Value = "" เป็นค่าว่างใช่หรือไม่
Tex1.Value = Now()
ถ้าไม่ใช่ให้หลุดไม่ต้องทำอะไรกับ Text1 คือเก็บค่าเดิมไว้ค่ะ
ขอบคุณค่ะ