แสดงกระทู้

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 - pradooj

หน้า: [1]
1
ห้อง MS Access / ขอเพิ่มโค๊ตค้นหา
« เมื่อ: 24 ส.ค. 64 , 06:38:15 »
Private Sub TextFind_AfterUpdate()
On Error GoTo Err_Find
     Dim CutFName As String
     Dim CutLName As String
     Dim len_name As Byte
      If IsNumeric(TextFind) Then     'MsgBox "เป็นตัวเลข"
     DoCmd.ApplyFilter , "รหัสประจำตัว like '" & [TextFind] & "*'เลขประจำตัวประชาชน  like '" & [TextFind] & "*'"
        len_name = 0
        End If
     If Not IsNumeric(TextFind) Then   'MsgBox "เป็นตัวหนังสือ"
         len_name = InStr([TextFind], " ")
            If len_name > 0 Then
                CutFName = Left([TextFind], [len_name] - 1)
                CutLName = Right([TextFind], Len(TextFind) - [len_name])
                DoCmd.ApplyFilter , "ชื่อ like '" & [CutFName] & "*' and นามสกุล Like '" & [CutLName] & "*'"
        Else
                DoCmd.ApplyFilter , "ชื่อ like '" & [TextFind] & "*' Or นามสกุล Like '" & [TextFind] & "*'"
    End If
    End If
    TextFind = Null
    TextFind.SetFocus
    Exit Sub
Err_Find:
   TextFind = Null
   TextFind.SetFocus
End Sub

ผมต้องการ ค้นหาพบ ให้แสดงข้อมูล (ปัจจุบันเป็นเช่นนั้นแล้ว) แต่หากค้นหาไม่พบให้แสดง .ข้อความว่าไม่พบ. (แบบเดิมแสดงเป็นแถวว่างไม่มีข้อมูล  เหมือนการเพิ่มแถวอัตโนมัติ ตรวจสอบใน Mysql) จะเพิ่มโค๊ตตรงไหนครับ
โพสต์นี้ได้รับคำขอบคุณจาก: pradooj

2
ห้อง MS Access / : ส่งเป็น excel และเป็น text
« เมื่อ: 20 พ.ค. 64 , 11:05:00 »
จากที่ทดลอง ก็ไม่พบปัญหาที่ว่านี่นะครับ อาจอยู่ที่รุ่นของ Office หรือการตั้งค่า Default ของ Access/Excel

ลองเปลี่ยนเป็นแบบนี้ครับ Export เป็น Excel ยังไงก็เป็น Text

account: IIf([icode]="ABC","'" & "0984455789","")
โพสต์นี้ได้รับคำขอบคุณจาก: pradooj

3
สามารถกำหนดได้ตรง Event Detail_Print นะครับ
โดยในหน้าออกแบบเราใส่เส้นไว้ใต้ textbox 1 เส้น ผมตั้งชื่อว่า  Line1 กำหนดความหนาของเส้นไว้ให้เรียบร้อยครับ
ส่วนโค้ดก็ตามนี้
โค๊ด: [Select]
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If Me.id1 = "3" And Me.Team = Text3 Then
Me.Line1.Visible = True
Me.Line1.BorderColor = vbRed
Else
Me.Line1.Visible = False
End If
End Sub

text3 คือ หัวของรายงาน ที่ Group เอาไว้

จากคำสั่งนี้ ไม่ว่ามีกี่ิอันดับในแต่ละกลุ่ม คำสั่งจะจับข้อมูลที่ ลำดับเท่ากับ 3 และ อยู่ในกลุ่มเดียวกันถึงจะแสดงเส้นสีแดงขึ้นมาคับ

ผลลัพธ์ที่ได้

โพสต์นี้ได้รับคำขอบคุณจาก: pradooj

4
ผมหมายถึงเป็นไฟล์ access ครับ เป็นรูปแล้วผมจะ Add code ยังไงละครับ  :startle: :startle:
โพสต์นี้ได้รับคำขอบคุณจาก: pradooj

5
ผมทำตัวอย่างบนฟอร์มและใช้มาโคร เนื่องจากเห็นว่าเป็นมือใหม่
โพสต์นี้ได้รับคำขอบคุณจาก: pradooj

หน้า: [1]