แสดงกระทู้
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.
Option Compare Database
Dim x As Double
Dim X2 As Double
Dim P1(100)
Dim P2(100)
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If Forms!menu.Frame3B = 1 Then
If IsNull(Forms!menu.txtPath) Then
Me.ImgTax3.Picture = none
Else
Me.ImgTax3.Picture = Forms!menu.txtPath
End If
End If
End Sub
Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If IsNull(Me.Text4.Value) = True Then
Me.Text59.ForeColor = RGB(255, 255, 255)
End If
Me.Text84.Value = " ลำดับที่ในหนังสือรับรองฯ "
End Sub
Private Sub PageFooterSection_Print(Cancel As Integer, PrintCount As Integer)
Me!PageSum = Me!RunSum - x
x = Me!RunSum
Me!PageSum3 = Me!RunSum3 - X2
X2 = Me!RunSum3
P1(Page) = RunSum
P2(Page) = RunSum3
Call SetLableRPT1
End Sub
Sub SetLableRPT1()
On Error Resume Next
Me.rptlblname.Caption = "(" & Forms!menu.Combo41 & ")"
Me.rptlblposition.Caption = Forms!menu.Combo45
Me.rptlblsenderdate.Caption = Forms!menu.lblDate.Caption
' Me.rptlblRptCode2.Caption = "นำไปรวมกับใบต่อ ภ.ง.ด.53 ฉบับอื่น (ถ้ามี))"
End Sub
Private Sub PageHeaderSection_Print(Cancel As Integer, PrintCount As Integer)
Dim P As Double
If Forms!menu!FrameA.Value = 1 Then
Me.lblFac.Caption = "สาขาเลขที่... " & Forms!menu!Fac.Column(0) & "....." & Forms!menu!Fac.Column(1) & "...."
End If
Me.txtP1 = P1(Page - 1)
Me.txtP2 = P2(Page - 1)
End Sub
Private Sub Report_NoData(Cancel As Integer)
MsgBox "Nodata "
Cancel = True
End Sub
Private Sub ReportHeader_Format(Cancel As Integer, FormatCount As Integer)
' Me.rptlblRptCode.Caption = Forms!menu!reportcode.Column(1)
Me.Text65.Value = "ยอดยกมา"
x = 0
X2 = 0
End Sub
