แสดงกระทู้

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 - 001Jetnipit

หน้า: [1]
1


ไม่ทราบว่าต้องเขียน VBA ไปทางไหนหรอครับ
โพสต์นี้ได้รับคำขอบคุณจาก: SakDa

2
String ="00" & [Text30] ตรงนี้เอาไปใส่ไว้ในไหนหรอครับ
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit

3
สวัสดีค่ะ

ปกติถ้ากดพิมพ์แล้วเส้นใน report จะหายไปไหมคะ เพราะในพรีวิวมันหาย(แค่บางเส้นเท่่านั่นค่ะ) แต่ถ้าซุมไปมากๆสัก 200% ก็จะห็นเส้นนั้นอยู่ค่ะ

ลองปริ้นออกมาครับ อยู่ที่ความละเอียดของจอครับ ถ้าปริ้นมาปกติ ก็ไม่น่ามีปัญหาอะไรนะครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Jiw Jewel

4
จากรูปที่อธิบายมีช่องให้ใส่ในฟอร์ม ชื่อ TextUpdate
เลือก event on click จากปุ่ม "บันทึก" ที่สร้างไว้ (ผมไม่รู้ว่าปุ่มชื่ออะไร แต่ผมตั้งชื่อเป็น cmdSave นะครับ)
เลือก code builder
พิมพ์ Me.TextUpdate = Date() (ให้โปรแกรมใส่วันที่ จากในเครื่อง ลงในช่อง TextUpdate)

จะได้เป็น

Private Sub cmdSave_Click()
Me.TextUpdate = Date()
End Sub

เพิ่มเติม1 : กรณี อยากได้ วันที่+เวลา ใช้ Now() แทน Date() ก็ได้ครับ
เพิ่มเติม2 : กรณี อยากให้แสดงผลเป็น รูปแบบอื่นๆ เช่น 1/7/64 ,02/09/2564 ใส่คำสั่ง Format() ช่วยได้ครับ
Me.TextUpdate = Format(Date(),"dd/mm/yyyy") -> 01/08/2564
Me.TextUpdate = Format(Date(),"d/m/yyyy") -> 1/8/2564
Me.TextUpdate = Format(Date(),"d/m/yy") -> 1/8/64

อย่าลืมเชื่อม TextUpdate กับ field เพื่อเก็บข้อมูลด้วยนะครับ

มัน error แบบนี้ครับ


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

5
ห้อง MS Access / Login กด Enter ทีเดียว
« เมื่อ: 18 ส.ค. 64 , 10:25:05 »
หน้าตา Login


เบื้องต้นผมลองใช้โค้ดนี้ครับ ใช้ได้ปกติครับตามต้องการครับ


แต่จะให้ User ทำได้ 2 ทางคือ Click และกด Enter มันต้อง Event on อะไรครับตอนนี้ใช้ 2 ตัว 2 Event แบบนี้ไม่ได้ขึ้น Error ครับ



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

6
ขอบคุณครับ ใช้โมลดูลนี้ครับ

Public Function RowNum(frm As Form) As Variant
On Error GoTo Err_RowNum
   
    With frm.RecordsetClone
        .Bookmark = frm.Bookmark
        RowNum = .AbsolutePosition + 1
    End With
   
Exit_RowNum:
    Exit Function
   
Err_RowNum:
    If Err.Number <> 3021& Then
        Debug.Print "RowNum() error " & Err.Number & " - " & Err.Description
    End If
    RowNum = Null
    Resume Exit_RowNum
End Function
โพสต์นี้ได้รับคำขอบคุณจาก: มาลี

7
ผมต้องการให้เวลาที่เราติ๊กเช็คบ๊อก ตรงฟิล จำนวน ให้มันส้รางเลขขึ้นมาตามจำนวน Row ครับ
ใน Report มีฟังจะชั่น Running Sum สามารถทำได้ง่ายๆ



แต่ใน Form มันไม่มีอะครับ



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

8
จากโค้ดที่ให้ไป แก้ชื่อตารางจาก mytable เป็น ptt ก้อนครับผมลืมแก้ให้ :prettiness: :prettiness:

ได้แล้วครับพี่สุดยอดเลยครับ
เดี๋ยวตอนบ่ายผมมาถามเรื่องตั้งกระทู้ถามเรื่อง MsgBox ใน กรณีที่ใช้ Sub อีกครับนะครับขอบคุณครับ
โพสต์นี้ได้รับคำขอบคุณจาก: PNR

9
ทำแล้วครับ ตอนนี้ Query ที่ส้รางมาใหม่ตามที่พี่บอก อัพเดตค่าตามคนเราดูอยู่แล้วครับ แต่ตอนกดปริ้นมันโชว์แต่รูปของคนแรกครับ ไม่ทราบว่าผมอิงอะไรผิดรึเปล่าครับ

ได้แล้วครับ อิง Record Source ผิดครับ อิงเป็น Query ที่ส้รางมาใหม่ได้ผลแล้วครับ ขอบคุณครับ
โพสต์นี้ได้รับคำขอบคุณจาก: PNR

หน้า: [1]