แสดงกระทู้
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
Public Function MakeTableWithConvertToRow2(ByVal sMainTable As String, ByVal sTempTable As String)
'On Error Resume Next
Dim RS_IN As DAO.Recordset
Dim RS_OUT As DAO.Recordset
Dim ColName As Integer
Set RS_IN = CurrentDb.OpenRecordset("Select" & "* from " & sMainTable & "")
'Set RS_OUT = CurrentDb.OpenRecordset("Select" & "* from " & sTempTable & "")
Set RS_OUT = CurrentDb.OpenRecordset(sTempTable, dbOpenTable)
Do While Not RS_IN.EOF
RS_OUT.Index = "PrimaryKey"
RS_OUT.Seek "=", RS_IN(0).Value
For ColName = 0 To RS_OUT.Fields.Count - 1
If RS_OUT.NoMatch Then
RS_OUT.AddNew
Else
RS_OUT.Edit
End If
If RS_IN(1).Value = RS_OUT(ColName).Name Then
RS_OUT(0).Value = RS_IN(0).Value
RS_OUT(RS_OUT(ColName).Name).Value = RS_IN(2).Value
RS_OUT.Update
End If
Next
RS_IN.MoveNext
Loop
RS_IN.Close
RS_OUT.Close
Set RS_IN = Nothing
Set RS_OUT = Nothing
End Function
ผมลองโหลดตัวอย่างที่ให้มาลองดูนับ Column ได้ 17 (op1) เหลือสองอันท้ายไม่มีข้อมูลไม่มีข้อมูลแต่มี | ขั้นไว้ครับ ครบ 19 column
เมื่อส่งออกไปแล้ว ลองมาดูตารางที่ส่งออก มันก็ออกครบ 19
แต่ลองนำเข้ากลับมา มันเป็นแบบ รูปที่แสดงครับ
