ช่วยแนะนำเงื่อนไขตรวจสอบให้หนูหน่อยค่ะ
กระทู้เก่าบอร์ด อ.Yeadram

 1,036   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
ถ้างงคำถามช่วยแจ้งหนูด้วยนะค่ะ หนูถามหนูก็ยังงงค่ะ *-*

ขอบคุณค่ะ
โดย: ข้าวฟ้าง เมื่อ: 14 มิ.ย. 2556 , 16:21

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

1 @R16338
เพิ่มเติมค่ะ

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 คือเก็บค่าเดิมไว้ค่ะ
ขอบคุณค่ะ
โดย: ข้าวฟ้าง เมื่อ: 14 มิ.ย. 2556 , 16:36
2 @R16339
หนูกะลังหัดค่ะช่วยสงเคราะห์หน่อยค่ะ
พอดีอาจารย์ให้งานมา ช่วยหนูหน่อยนะค่ะ
โดย: ข้าวฟ้าง เมื่อ: 14 มิ.ย. 2556 , 18:42
3 @R16345
ดูเหมือน เงื่อนไขที่ code มาก็ถูกอยู่แล้วนี่ครับ แล้วปัญหาคืออะไรครับ
มีฟ้อง error หรือไม่ อย่างไร เพราะเท่าที่ดูเห็นแต่ ชื่อ Text1ที่บอก ใน code เป็น Tex1
โดย: PichaiTC เมื่อ: 15 มิ.ย. 2556 , 07:35
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 ออกแล้วเก็บใหม่มันเก็บอันใหม่ไปทับของเดิมค่ะ
ขอบคุณค่ะ    

                     



                     
                     
โดย: ข้าวฟ้าง เมื่อ: 15 มิ.ย. 2556 , 16:43
5 @R16354
แก้ไขตรง และเมื่อเก็บวันที่ได้ แต่ติ๊ก A ออกแล้วเก็บใหม่มันเก็บอันใหม่ไปทับของเดิมค่ะ

แก้ไขค่ะงงพิมพ์งงค่ะ

เมื่อติ๊ก A ออกแล้ว ติ๊ก A ใหม่มันกลับเอาค่าวันที่ใหม่ไปทับของเดิมค่ะ
เมื่อมีข้อมูลวันที่แล้วไม่อยากให้มันไปทับหรือแก้ไขค่าเดิมค่ะ


ขอบคุณค่ะ
ตัวอย่างที่หนูติดค่ะ

โดย: ข้าวฟ้าง เมื่อ: 15 มิ.ย. 2556 , 16:50
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
โดย: Su เมื่อ: 15 มิ.ย. 2556 , 17:38
7 @R16357
เย่ ได้แล้วค่ะ
ขอบคุณมากค่ะ คุณ Su
โดย: ข้าวฟ้าง เมื่อ: 15 มิ.ย. 2556 , 17:44
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2741s