แสดงกระทู้

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - มาลี

หน้า: 1 2 [3] 4 5 6 7
37
ในช่องอัพเดท
ลองใส่ =date() ดูนะคะว่าได้หรือเปล่า
ใส่ในค่าเริ่มต้นค่ะ

38
เย้.. :shout: ได้ผลตรงตามที่ต้องการแล้ว
ขอบคุณมากค่ะอาจารย์

39
รบกวนขอสอบถามปัญหาสักหน่อยนะคะ
หนูมีคิวรีชื่อ Query_A  ซึ่งผูกกับฟอร์มชื่อ Form_A นะคะ
ที่ Form_A ก็จะมี Text1 Text2 สำหรับการค้นหาบุคคลค่ะ
ที่ Query_A หนูก็ระบุเงื่อนไขไว้ดังนี้ค่ะ
Like "*"+[forms].[Form_A].[Text1]+"*"
Like "*"+[forms].[Form_A].[Text2]+"*"
ตามรูปตัวอย่างค่ะ


ปัญหาคือ เวลารันคิวรี่แล้วหาก Text1 หรือ Text2 ที่ Form_A เป็นค่าว่าง มันก็จะต้องให้ใส่ค่าลงไปก่อน
ความต้องการของหนูก็คือ หากเราระบุเพียง Text1 หรือ Text2 เพียงรายการเดียวก็ให้สามารถทำงานได้ ดังนี้

หากระบุเพียง Text1(ชื่อบุคคล) แล้ว Text2(นามสกุล) ไม่ได้ระบุ ก็ให้ค้นหาเฉพาะชื่อตามที่ระบุ ส่วนนามสกุลอะไรก็ได้
หรือกลับกัน
หากระบุเพียง Text2(นามสกุล) แล้ว Text1(ชื่อบุคคล) ไม่ได้ระบุ ก็ให้ค้นหาเฉพาะนามสกุลตามที่ระบุ ส่วนชื่ออะไรก็ได้

ประมาณนี้ค่ะ ต้องทำอย่างไรคะ
ขอบคุณค่ะ

40
เย้.... :shout:
สำเร็จแล้ว ขอบคุณมากค่ะอาจารย์

41
สวัสดีค่ะอาจารย์ทุกท่าน

ตอนนี้หนูมีปัญหากับการที่ผู้ใช้เผลอไปกดปุ่ม Esc ที่คีย์บอร์ดขณะที่ยังกรอกข้อมูลไม่เสร็จ
ทำให้ต้องเสียเวลากรอกข้อมูลกันใหม่
หนูจึงอยากได้คำสั่งว่า ขณะที่เริ่มกรอกข้อมูลแล้วแต่ยังไม่ครบถ้วน
แล้วผู้ใช้เกิดเผลอไปกดปุ่ม Esc ก็ให้มันไม่มีผลใดๆค่ะ
หากตั้งใจจะยกเลิกการทำงานก็ให้คลิกที่ปุ่ม [ยกเลิก] ที่เราเตรียมไว้ให้เท่านั้นค่ะ

ขอบคุณนะคะ

42
ขอบคุณมากๆเลยค่ะ @PNR
เพียงท่านปูพื้นให้ ที่เหลือหนูพอจะไปต่อได้แล้วค่ะ
ขอบคุณอีกครั้งค่ะ

43
ขออนุญาตสอบเรื่อง Excel หน่อยค่ะ
สมมติหนูมี เซลส์อยู่3เซลส์ดังนี้นะคะ
A1
A2
A3
ที่หนูต้องการคือ ถ้าA1 มีค่ามากกว่าA2
ให้A3 แสดงข้อความว่า "กำไร"
แต่ถ้า A1มีค่าน้อยกว่าA2
ให้A3 แสดงข้อความว่า "ขาดทุน"
เพียงเท่านี้แหละค่ะ รบกวนขอคำแนะนำด้วยนะคะ
Access หนูพอจะเอาตัวรอดได้บ้างแล้ว
แต่พอมาจับ Excel ไปไม่เป็นเลยค่ะ

44
ต้องใช้ 7-Zip แยกไฟล์ ตอนนี้สามารถเปิดไฟล์ตัวอย่างได้แล้วค่ะอาจารย์
ขอขอบคุณ @Maki ด้วยนะคะ

45
รบกวนขอไฟล์ตัวอย่างไว้ศึกษาเพื่อเป็นความรู้ค่ะ
ไฟล์ตัวอย่างที่คุณ Maki โพสไว้นั้น โหลดไปแล้วเปิดไม่ได้ค่ะ(ไฟล์เสีย)

46
 :shout:
เย้..สำเร็จแล้วค่ะอาจารย์ หนูไม่ค่อยถนัดกับ SQL หนูเลยดัดแปลงเอาเฉพาะส่วนนี้
Exp2:IIf([Exp1]="yes","สินค้าพร้อมส่ง") & IIf([Exp1]="NO","สินค้าหมดแล้ว")
ไปใส่ไว้ที่หัวคอลั่มของ exp2 ให้ผลได้ตามที่ต้องการเช่นกันค่ะอาจารย์
ขอขอบคุณนะคะ

47
ขอบคุณค่ะอาจารย์
พอดีตอนนี้หนูออกมาทำธุระข้างนอก
เดี๋ยวช่วงค่ำๆกลับไปจะลองทำตามคำแนะนำเลยค่ะ ได้ผลเช่นไรจะเข้ามารายงานให้ทราบนะคะ
ขอบคุณค่ะ

48
หนูมีคิวรี่อยู่1ตัวนะคะ สมมติมีอยู่2คอลั่มคือ Exp1 กับ Exp2 ค่ะ

Exp1 ผูกกับตารางข้อมูลเป็นtext เก็บขัอมูล yes กับ no
ส่วน Exp2 นั้นไม่ได้ผูกกับตารางใดๆ

ความต้องการของหนูในการแสดงคิวรี่ก็คือ
เมื่อข้อมูลในExp1 เป็น yes ให้แสดงข้อความใน Exp2 ว่า "สินค้าพร้อมส่ง"
แต่หากข้อมูลในExp1 เป็น no ก็ให้แสดงข้อความใน Exp2 ว่า "สินค้าหมดแล้ว"
ประมาณนี้ค่ะอาจารย์ ขอรบกวนด้วยนะคะ
หนูต้องการเอาคิวรี่นี้ไปสร้างเป็นรายงานต่อค่ะอาจารย์

49
 :shout: เย้..สำเร็จแล้ว
ขอบพระคุณอย่างยิ่งค่ะอาจารย์

50
ยังไม่สำเร็จเลยค่ะอาจารย์
หนูทดลองเอาโค๊ดตามลิงค์ที่ท่านแนะนำไปใฃ้ในฟอร์มดังนี้

Option Compare Database
Function CheckFont(fontName As String, Optional fontSize As Integer) As Boolean
    On Error Resume Next
    With New StdFont
        .Name = fontName
        If fontSize > 0 Then .Size = fontSize
        CheckFont = (StrComp(fontName, .Name, vbTextCompare) = 0)
        fontName = .Name
        fontSize = .Size
    End With
End Function

Private Sub Command0_Click()
    CheckFont ("Angsana New")
     MsgBox "ไม่มีฟอนต์นี้ในระบบ"
End Sub

มันจะขึ้น MsgBox มาเสมอไม่ว่าจะมีฟอนต์นี้หรือไม่ก็ตาม

จุดประสงค์คือต้องการตรวจสอบว่าฟอนต์ Angsana New มีอยู่หรือไม่ หนูไม่ทราบวิธีนำไปใช้ว่าทำถูกต้องหรือไม่
โปรดให้คำแนะนำด้วยนะคะ

51
ขอบคุณค่ะอาจารย์
ได้แนวทางแล้วค่ะ

52
ขออนุญาตสอบถามนะคะ
หนูอยากทราบว่า มีวิธีการใดที่สามารถตรวจสอบฟอนต์ในระบบว่ามีฟอนต์นี้อยู่หรือไม่
หากไม่มีก็แจ้งเตือนแนะนำให้ผู้ใช้ติดตั้งฟอนต์ดังกล่าวก่อน

คือหนูเจอปัญหาออกแบบโปรแกรมเอาไว้ โดยส่วนใหญ่ก็ใช้ฟอนต์ Angsana new
ที่นี้ปัจจุบัน Windows 10 เขาไม่มีฟอนต์ Angsana new ให้ใช้แล้ว
ทำให้เกิดปัญหาส่วนที่ออกแบบโดยใช้ฟอนต์ Angsana new เอาไว้นั้น แสดงขนาดฟอนต์ผิดเพี้ยนไปหมด

จึงอยากขอรบกวนอาจารย์ทุกท่านว่า เราพอจะมีวิธีตรวจสอบฟอนต์ในระบบได้หรือไม่ อย่างไรคะ
ขอคุณค่ะ

53
ห้อง MS Access / : access 2003 to windows 10 64 bit
« เมื่อ: 02 พ.ย. 62 , 16:22:27 »
ขอขอบคุณอาจารย์ทั้งสองท่านนะคะ
หนูจะคอยติดตามและพยายามศึกษาต่อไปค่ะ

54
ห้อง MS Access / : access 2003 to windows 10 64 bit
« เมื่อ: 02 พ.ย. 62 , 11:44:34 »

หน้า: 1 2 [3] 4 5 6 7