แสดงกระทู้

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

หน้า: [1] 2
1
ขอบคุณมากครับ
โพสต์นี้ได้รับคำขอบคุณจาก: ิboonyarit

2
โอนเงินให้แล้วนะครับ 200 บาทครับ ไม่ซื้อหนังสือครับ
โพสต์นี้ได้รับคำขอบคุณจาก: OddyWriter, MONO

3
ห้อง MS Access / : สอบถามคำสั่ง Docmd.Movesize
« เมื่อ: 10 ม.ค. 62 , 16:00:35 »
ได้แล้วครับ ขอบคุณคุณปิ่นณรงค์ที่แนะนำการปรับฟอร์มให้พอดีกับหน้าจอครับ ถ้าฟอร์มที่ต้องการ move ไม่พอดีกับจอที่จะให้ออก มันจะไม่ move ให้ ส่วนการใส่ค่าฟอร์มของผมใส่ 30000 ตามที่บอก ใช้ได้เลยครับ
โพสต์นี้ได้รับคำขอบคุณจาก: aek

4
ห้อง MS Access / : การใช้คำสั่ง iifซ้อน iif
« เมื่อ: 11 ธ.ค. 61 , 12:32:20 »
เข้าใจแล้วครับอาจารย์ ขอบคุณมากๆครับ
โพสต์นี้ได้รับคำขอบคุณจาก: TIM_cb

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

6


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

7
ใส่โค้ดว่า
DoEvents
แล้วลองเปลี่ยนโค้ด เซฟดูครับว่าได้ไหม

DoEvents
    DoCmd.save acForm, "Merchandiser Key Update"
ได้แล้วครับ ขอบคุณมากครับ
โพสต์นี้ได้รับคำขอบคุณจาก: Anuwat Jaijomkun

8
คิดว่า ใส่ Not is null ตรง catria ของ query ที่สร้างreport นี้นะครับ มือใหม่เหมือนกัน รออาจารย์ท่านอื่นมาตอบอีกที
โพสต์นี้ได้รับคำขอบคุณจาก: jojo83, SakDa

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

10
ห้อง MS Access / : สร้าง runing number บนฟอร์ม
« เมื่อ: 23 พ.ค. 61 , 12:44:02 »
ลองดูตัวอย่างนี้นะครับ น่าจะโอเคสุดละ

บน Module

โค๊ด: [Select]
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

ที่ textbox ชื่อ NO ใส่ =RowNum([Form])
ตัวอย่างด้านล่าง
ได้เลยครับ ขอบคุณมากๆเลยนะครับคุณปิ่นณรงค์ (คุณ Newbies เดิมหรือเปล่าครับ)
ขอบคุณคุณ OddyWriter, คุณ UnKnown
โพสต์นี้ได้รับคำขอบคุณจาก: มาลี

11
ตกม้าตายครับ ใช่จริงๆด้วย report กับ form มาจากคนละQueryกัน ขอบคุณมากๆครับ
โพสต์นี้ได้รับคำขอบคุณจาก: royaltool

12
เจอกระทู้ที่ตรงกับปัญหาที่เจอพอดีเลย ไม่คิดว่าจะเจอคุณ Newbies อีกแล้ว
ผมก็เจอปัญหาเดียวกับคุณroyaltool คือ ทำไม Split form ที่สร้างจาก query ไม่สามารถสั่งพิมพ์ report จาก filter ใน split form ได้ แต่ split form ที่สร้างจาก table สามารถ filter แล้วสั่งพิมพ์ได้ครับ
ใช้คำสั่งตามที่คุณ Newbies แนะนำ
Private Sub Command220_Click()
Dim strWhere As String
    If Me.Dirty Then
        Me.Dirty = False
    End If
    If Me.NewRecord Then
        MsgBox "Select a record to print"
    Else
        strWhere = Me.Form.Filter
        DoCmd.OpenReport "Production »Õ»Ñ¨¨ØºÑ¹", acViewPreview, , strWhere
    End If
End Sub
โพสต์นี้ได้รับคำขอบคุณจาก: royaltool

13
รบกวนสอบถามครับ ผมจะทำ Query ยังไงเพื่อดึง Output จากตาราง B,C,D ที่วันที่ตรงกับตาราง A ได้ครับ โดย Output ที่มีวันที่เหมือนกันให้นำมารวมกัน ตามรูปครับ
โพสต์นี้ได้รับคำขอบคุณจาก: royaltool, nisachol.chu

14
ที่ Event: On mouse up ให้ใส่ Code นี้เข้าไปครับ


Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Me.ชื่อฟิลด์ที่ต้องการซ่อน.ColumnHidden = False Then
    Me.ชื่อฟิลด์ที่ต้อกงารซ่อน.ColumnHidden = True
End If
End Sub

Unhide ได้แป๊บเดียว(ประมาณ 1-2 วินาที)  ก็จะกลับไปซ่อนใหม่ทันที

ถ้ามีหลายฟิลด์ก็เหนื่อยหน่อยนะ
อ้อ! ใช้ได้เฉพาะ Datasheet View เท่านั้นนะครับ
ตามที่อาจารย์แนะนำ ผมลองทำดูแล้วก็ทำงานตามที่อาจารย์บอกครับ แต่ก็ยังไม่ได้ตรงตามจุดประสงค์ของผม แต่ไม่เป็นไรครับผมคงไม่ไป protectหรือ hide อะไรมากมายแล้วครับ
โพสต์นี้ได้รับคำขอบคุณจาก: kanya

15
ลองแล้วไม่ทราบว่าผิดตรงไหนครับอาจารย์ รบกวนช่วยอธิบายคำสั่งให้หน่อยนะครับ ว่า POD แต่ละตัวในวงกลมคืออะไรบ้างครับ ใช่ชื่ิอของตารางฟอร์มย่อยทั้งหมดเลยหรือเปล่าครับ

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

16
รบกวนสอบถามอาจารย์ทุกท่านครับ ตามรูป



ผมต้องการกดปุ่ม"ลบใบสั่งซื้อ" บนฟอร์มหลักแล้วให้ลบข้อมูลในฟอร์มย่อยด้วย จะต้องเขียน code ยังไงครับ โดยข้อมูลมีดังนี้ครับ
- ฟอร์มหลักชื่อ POH จากตารางชื่อ POH
- ฟอร์มย่อยชื่อ POD Subform จากตารางชื่อ POD
ทั้ง2ตาราง link กันด้วยฟิวด์ที่ชื่อ PONumber ครับ



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

หน้า: [1] 2