ทำไม code นี้ไม่ได้ผล



0 สมาชิก และ 1 บุคคลทั่วไป กำลังดูหัวข้อนี้

09 ม.ค. 61 , 07:41:43
อ่าน 1027 ครั้ง

UnKnown

ทำไม code นี้ไม่ได้ผล
« เมื่อ: 09 ม.ค. 61 , 07:41:43 »
คุณ kChantra Original post
อ้างถึง
พอกดสั่งพิมพ์ในฟอร์มต้องการให้พิมพ์ออกมาทางเครื่องพิมพ์เลย จึงเขียนโค๊ตดังนี้ แต่ทำไม ไม่เป็นผลตามที่ต้องการครับ
Private Sub Report_Page()
    If Me.is_addressForDoc = -1 Then
        Me.AD1.Visible = True
        Me.AD1 = "P"
        Me.AD2.Visible = False
        ElseIf Me.is_addressForDoc = 0 Then
        Me.AD1.Visible = False
        Me.AD2.Visible = True
        Me.AD2 = "P"
    End If
End Sub
« แก้ไขครั้งสุดท้าย: 04 เม.ย. 61 , 18:52:28 โดย UnKnown »

 

09 ม.ค. 61 , 11:35:15
ตอบกลับ #1

PookPuy

Re: ทำไม code นี้ไม่ได้ผล
« ตอบกลับ #1 เมื่อ: 09 ม.ค. 61 , 11:35:15 »
ผมทำเป็นสั่งปริ้นจากรีพอร์ตครับ
โค๊ด: [Select]
Private Sub Print_Click()
On Error GoTo Err_Print_Click

    Dim stDocName As String

    stDocName = "R_Bill"  'ชื่อรีพอร์ต
    DoCmd.OpenReport stDocName, acNormal

Exit_Print_Click:
    Exit Sub

Err_Print_Click:
    MsgBox Err.Description
    Resume Exit_Print_Click

End Sub

 


บอร์ดเรียนรู้ Access สำหรับคนไทย