แสดงกระทู้

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

หน้า: [1]
1
มันขึ้นข้อผิดพลาดทั้งหมายเมื่อก่อนไม่รู้ ตอนนี้ขอติดตั้งเฉพาะแอคเซสอย่างเดียวครับ ต้องทำช้อตคัตไว้หน้าจอเลย...ขึ้นข้อความแปลกๆ ลงใหม่จบ แล้วฝังแอคเซสและอันอื่นๆ ที่น่าจะเชื่อมกันของโปรแกรมไมโครซอฟท์ เรียกใช้จากในพีซี ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Krathok-man

2
google ค้น is null isnull iif อ่านแป้บ ทำความเข้าใจ เดี๋ยวก็ได้
โพสต์นี้ได้รับคำขอบคุณจาก: tanuki

3
เราสั่งให้มันตรวจตรงวันเกิดก่อนว่าถ้าว่างไม่ต้องใช้สูตร iif aฟิลด์วันเกิด =is null="",สูตรคำนวณอายุ
โพสต์นี้ได้รับคำขอบคุณจาก: tanuki

4
อยากทำไมโครซอฟท์ออนไลน์ เหมือนพวกเวิร์ด เอ็กเซล มีตัวไหนที่ใช้ทำนองนี้ได้ไหมครับ ผมดูแอฟของไมโครซอฟท์ไม่พบมีชื่อ Microsoft access แต่มี Visio PowerPoint ทำนองนี้
โพสต์นี้ได้รับคำขอบคุณจาก: MR.Vinai Wetvithayaklung

5
ทำคิวรี่ขึ้นมาใหม่ เอาของที่เขาให้คำตอบข้างบน เลือกตาราง/คิวรี่ เลือกชื่อคิวรี แล้วก็สั่ง sum ในคิวรี่ที่สองที่สร้างขึ้นใหม่
โพสต์นี้ได้รับคำขอบคุณจาก: เก่ง

6
Public Function FancyDate(dteInput As Date) As String

'   Convert #6/12/2016#
'   To: 12th June 2016

    FancyDate = Day(dteInput)
   
    Select Case Day(dteInput)
    Case 4 To 20, 24 To 30
        FancyDate = FancyDate & "th"
    Case 1, 21, 31
        FancyDate = FancyDate & "st"
    Case 2, 22
        FancyDate = FancyDate & "nd"
    Case 3, 23
        FancyDate = FancyDate & "rd"
    End Select
   
    FancyDate = FancyDate & Format(dteInput, " mmmm yyyy")


End Function


Sub testdatefunction()

Dim datestr As Date

datestr = CDate("01/01/2017")

Debug.Print datestr, FancyDate(datestr)

End Sub

พอดัดแปลง ใกล้เคียงไหมครับ ไปค้นมาให้ครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Krathok-man

หน้า: [1]