แสดงกระทู้

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

หน้า: 1 [2] 3 4 5 ... 9
19
ห้อง MS Access / : สร้างปุ่ม Export PDF แบบเลือกที่อยู่
« เมื่อ: 23 พ.ค. 66 , 18:44:45 »
Private Sub Command13_Click()
On Error Resume Next
DoCmd.OutputTo acOutputReport, "rptSugarOrder", _
acFormatPDF, ""
End Sub

20
ห้อง MS Access / : subform ครบหนดให้แจ้งเตือน
« เมื่อ: 18 พ.ค. 66 , 21:58:49 »
Private Sub Command0_Click()
    If Len([TEL TU(P)]) > 0 Then t1 = 1
    If Len([TEL TU(O)]) > 0 Then t2 = 1
    If Len([TEL TU(R)]) > 0 Then t3 = 1
    If Len([TEL TM]) > 0 Then t4 = 1
    If Len([TEL TO]) > 0 Then t5 = 1
    If Len([TEL TOI]) > 0 Then t6 = 1
   
    If t1 + t2 + t3 + t4 + t5 + t6 >= 3 Then
        MsgBox "มีการติดต่อ " & t1 + t2 + t3 + t4 + t5 + t6 & " แล้ว", vbExclamation, "แจ้ง"
    End If
End Sub

21
ห้อง MS Access / : text box ขึ้นข้อความตามเงื่อนไขหลายเงื่อนไข
« เมื่อ: 17 พ.ค. 66 , 23:53:25 »
ใช้ Not in โค๊ดก็สั้นลงได้นิดนึง
=IIf([txtresident]=[tb_resident] And [txtresident] Not In("1","4","16","19","2","20","24","25","26","27"),"Individual","Archrive")

22
ห้อง MS Access / : ใส่ตัวเลขลำดับของแต่ละชุดข้อมูล
« เมื่อ: 15 พ.ค. 66 , 02:33:41 »
ตัวอย่าง  แกะ/ดัดแปลง ดูครับ  https://www.thai-access.com/index.php?topic=1494.0

23
ห้อง MS Access / : ปัดเศษทศนิยมเฉพาะ .9 ขึ้นเป็นจำนวนเต็ม ตำกว่า .9 ให้แสดงเป็นปกติได้ไหมคะ
« เมื่อ: 15 พ.ค. 66 , 02:26:12 »
ไม่รู้ว่ามีฟังชั่นของ Access ในตัวมันเองหรือป่าว  แต่ทำฟังชั่นใช้เองก็ O ยุนะครับ  :cool: :cool: :cool: :cool:

24
ห้อง MS Access / : มีวิธีหาคนที่ ขาดงาน 3 วันติด ได้ไหมคะ สรุปในรายงานเป็นสัปดาห์
« เมื่อ: 24 เม.ย. 66 , 21:35:04 »
ใช้โค๊ด Loopๆๆ  แกะดูนะครับ  ดูงงๆ หน่อย ผมก็ลอกมา  :shout: :shout: :shout: :shout: :shout:

25
ห้อง MS Access / : เชื่อมต่อ ODBC ลิงค์ตาราง Sql service มา Access เเล้วเกิด error ครับ
« เมื่อ: 23 มี.ค. 66 , 15:55:46 »
ต้องลองทำเครื่องอื่นๆ ดูด้วยครับ เพราะบางที่ระบบของวินโดว์ อาจมีปัญหากับ ODBC
และ Access 64บิต การเชื่อมต่อ ก็ต้องใช้ ODBC 64บิต ด้วย

26
ห้อง MS Access / : รบกวนสอบถามครับ
« เมื่อ: 21 มี.ค. 66 , 22:27:07 »
น่าจะแบบนี้  ดูวุ่นวายหน่อย เพราะผมก็ดำน้ำมา  :shout: :shout: :shout: :shout:

27
ห้อง MS Access / : ไม่ต้องการให้โชว์ข้อมูลเมื่อติดต่อได้
« เมื่อ: 16 มี.ค. 66 , 20:07:25 »
ก็ลบ  [ชื่อนามสกุล]  ออก
ไม่ก็...เพิ่มฟิลด์ ชนิดตัวเลข ไว้เก็บค่าความถี่

If [ความถี่]<2 Then
  MsgBox [ชื่อนามสกุล] & "     มีการติดต่อภายในวันนี้แล้ว กรุณาติดต่ออีกครั้งในวันถัดไป", vbCritical, "แจ้งเตือน!!! ความถี่ในการติด่อลูกหนี้"
  [ความถี่]=[ความถี่]+1
else
  MsgBox "มีการติดต่อภายในวันนี้แล้ว กรุณาติดต่ออีกครั้งในวันถัดไป", vbCritical, "แจ้งเตือน!!! ความถี่ในการติด่อลูกหนี้"
End If

28
ห้อง MS Access / : อยากให้คำสั่งตัดตัวอักษรตามเงือนไขครับ
« เมื่อ: 10 มี.ค. 66 , 17:58:39 »
IIf(Len(Replace([txtsticker]," ",""))=13,Left(Replace([txtsticker]," ",""),12),Left(Replace([txtsticker]," ",""),10))

29
ห้อง MS Access / : อยากให้คำสั่งตัดตัวอักษรตามเงือนไขครับ
« เมื่อ: 02 มี.ค. 66 , 18:55:02 »
ทั้ง 2 ค่า ABCDEFGHIJKLM  และ  ABCDEFGHIJ  M  มีความยาว  13 ตัวอักษรเท่ากัน  แต่อันนึงอยากตัดเอา 12 ตัวอักษร   อีกอันอยากได้  10 ตัวอักษร  ใช้เงื่อนไขอะไรดี มาแยกแยะให้มันแตกต่างกันน้อ   :cool: :cool: :cool:  ใช้ Instr([txtsticker]," ") หาตำแหน่งช่องว่าง แล้วใช้ Mid()เข้ามาช่วย ถ้าเกิดว่ามัน เป็น AB  CDEFGHIJM จะทำไงล่ะ
หรือจะ Replace([txtsticker]," ","") ลบช่องว่างก่อนดี ลบเสร็จความยาวก็จะหายไป 2 ตัว พอทำ =IIf(Len([txtsticker])=13,Left([txtsticker],12),Left([txtsticker],10))

30
ห้อง MS Access / : โปรแกรมมันขึ้นว่า 'Id' is not an index in this table เกิดจากอะไรค่ะ
« เมื่อ: 02 มี.ค. 66 , 18:40:29 »
กด shift ค้าง+เปิดโปรแกรม  ถ้าเข้าถึงได้  ก็ลองทำการซ่อมแซมฐานข้อมูลดูครับ

31
ห้อง MS Access / : ต้องใช้ query อย่างไงครับ
« เมื่อ: 01 มี.ค. 66 , 22:50:51 »
table สิครับ  แกะตัวอย่างดูครับ

32
ห้อง MS Access / : สร้างquery เมื่่อคริกในlist จะเเสดงรูปภาพ(Attachment)ตรงกับข้อมูลในqueryนั้น
« เมื่อ: 27 ก.พ. 66 , 20:08:55 »
ใช้เรื่องของ SubForm

33
ห้อง MS Access / : Export file to Excel แบบหลายชีท
« เมื่อ: 21 ก.พ. 66 , 15:48:12 »
ใช้สูตรใน Excel เลยครับ  อย่าให้เดือดร้อน Access เลย   :cool: :cool: :cool:

34
ห้อง MS Access / : ต้องใช้ query อย่างไงครับ
« เมื่อ: 20 ก.พ. 66 , 21:52:36 »
สร้างฟิลด์ลำดับเพิ่ม แล้วใช้การ Loop เข้ามาช่วย

35
ห้อง MS Access / : Export file to Excel แบบหลายชีท
« เมื่อ: 20 ก.พ. 66 , 21:37:40 »
                            Dim expXLS, Sheet1, Sheet2, Sheet3, Sheet4, ไปเรื่อยๆ As String
                            expXLS = "D:\test.xls"
                            Sheet1 = "ตาราง/คิวรี่1"
                            Sheet2 = "ตาราง/คิวรี่2"
                            Sheet3 = "ตาราง/คิวรี่3"
                            Sheet4 = "ตาราง/คิวรี่4"
                            ไปเรื่อยๆ.............
                            DoCmd.TransferSpreadsheet acExport, เวอร์ชั่น Excel, Sheet1, expXLS, True
                            DoCmd.TransferSpreadsheet acExport, เวอร์ชั่น Excel, Sheet2, expXLS, True
                            DoCmd.TransferSpreadsheet acExport, เวอร์ชั่น Excel, Sheet3, expXLS, True
                            DoCmd.TransferSpreadsheet acExport, เวอร์ชั่น Excel, Sheet4, expXLS, True
                            DoCmd.TransferSpreadsheet acExport, เวอร์ชั่น Excel, ไปเรื่อยๆ, expXLS, True

36
ห้อง MS Access / : ช่วยด้วยครับ ต้องการให้ข้อมูลรูปแบบวันที่นำมาประมวลผลและแสดงออกมาในรูปแบบข้อความ
« เมื่อ: 15 ก.พ. 66 , 08:24:18 »
=IIf(Date()-[วันที่เริ่ม]<116,"อยู่ในช่วงทดลองงาน",IIf(Date()-[วันที่เริ่ม]>120,"ผ่านทดลองงาน","อยู่ในช่วงประเมินผ่านงาน"))

หน้า: 1 [2] 3 4 5 ... 9