Option Compare Database
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Dim Frm As Form
On Error Resume Next
Set Frm = Forms!SF_Plating_Reference_Parameter(PR)
With Frm
Me.ItemCode = .ItemCode
Me.TxtMachine = .TxtMachine
Me.TxtLine = .TxtLine
Me.RevNo = .RevNo
Me.JigNo = .JigNo
Me.PadSize = .PadSize
Me.LeadCount = .LeadCount
Me.Package = .Package
Me.PltType = .PltType
Me.FrameDesign = .FrameDesign
Me.Alloy = .Alloy
Me.MatType = .MatType
Me.ThicknessPlating = .ThicknessPlating
Me.Brightness = .Brightness
Me.RMWidth = .RMWidth
Me.SealedUpUnit = .SealedUpUnit
Me.Pitch = .Pitch
Me.TxtAreaSpec = .TxtAreaSpec
Me.Customer = .Customer
Me.ProductDrawNo = .ProductDrawNo
Me.SingleUnitNumber = .SingleUnitNumber
Me.CopperCoarsening = .CopperCoarsening
Me.Singlelength = .Singlelength
Me.TxtJigNo = .TxtJigNo
Me.TxtAreaPlatNo = .TxtAreaPlatNo
Me.sheet_Model01 = .sheet_Model01
Me.sheet_Model02 = .sheet_Model02
Me.TxtCleaningSpeend_P = .TxtCleaningSpeend_P_1 & "/" & .TxtCleaningSpeend_P_2
Me.TxtCleaningSpeend_A = .TxtCleaningSpeend_A
Me.TxtCleaningSpeend_R = .TxtCleaningSpeend_R
Me.Coaarsening_speed_P = .Coaarsening_speed_P_1 & "/" & .Coaarsening_speed_P_2
Me.Coaarsening_speed_A = .Coaarsening_speed_A
Me.Coaarsening_speed_R = .Coaarsening_speed_R
Me.Other_speed_P = .Other_speed_P_1 & "/" & .Other_speed_P_2
Me.Other_speed_A = .Other_speed_A
Me.Other_speed_R = .Other_speed_R
Me.TxtED_P = .TxtED_P_1 & "/" & .TxtED_P_2
Me.TxtED_A = .TxtED_A
Me.TxtED_R = .TxtED_R
Me.Coarsening_current_P = .Coarsening_current_P_1 & "/" & .Coarsening_current_P_2
Me.Coarsening_current_A = .Coarsening_current_A
Me.Coarsening_current_R = .Coarsening_current_R
Me.Coarsening_time_P = .CoarSening_time_P_1 & "/" & .CoarSening_time_P_2
Me.Coarsening_time_A = .Coarsening_time_A
Me.Coarsening_time_R = .Coarsening_time_R
Me.TxtCu_P = .TxtCu_P_1 & "/" & .TxtCu_P_2
Me.TxtCu_A = .TxtCu_P_A
Me.TxtCu_R = .TxtCu_P_R
Me.TxtAg_P = .TxtAg_P_1 & "/" & .TxtAg_P_2
Me.TxtAg_A = .TxtAg_P_A
Me.TxtAg_R = .TxtAg_P_R
Me.TxtPlatingTime_P = .TxtPlantingTime_P_1 & "/" & .TxtPlantingTime_P_2
Me.TxtPlatingTime_A = .TxtPlantingtime_A
Me.TxtPlatingTime_R = .TxtPlantingtime_R
Me.plating_rectifier_P = .plating_rectifier_P
Me.plating_rectifier_A = .plating_rectifier_A
Me.plating_rectifier_R = .plating_rectifier_R
Me.TxtPulseSettin_P = .TxtPulseSettin_P_ON & "/" & .TxtPulseSettin_P_OFF
Me.TxtPulseSettin_A = .TxtPulseSettin_A
Me.TxtPulseSettin_R = .TxtPulseSettin_R
Me.TxtInverterHi_P = .TxtInverterHi_P_1 & "/" & .TxtInverterHi_P_2
Me.TxtInverterHi_A = .TxtInverterHi_A
Me.TxtInverterHi_R = .TxtInverterHi_R
Me.TxtBladderMain_P = .TxtBladderMain_P_1 & "/" & .TxtBladderMain_P_2
Me.TxtBladderMain_A = .TxtBladderMain_A
Me.TxtBladderMain_R = .TxtBladderMain_R
Me.TxtStrip_P = .TxtStrip_P_1 & "/" & .TxtStrip_P_2
Me.TxtStrip_A = .TxtStrip_A
Me.TxtStrip_R = .TxtStrip_R
Me.TxtRubberHard_P = .TxtRubberHard_P
Me.TxtRubberHard_A = .TxtRubberHard_A
Me.TxtRubberHard_P = .TxtRubberHard_R
Me.TxtRedRubberHard_P = .TxtRedRubberHard_P
Me.TxtRedRubberHard_A = .TxtRedRubberHard_A
Me.TxtRedRubberHard_R = .TxtRedRubberHard_R
Me.Remark = .Remark
'
''' Me.TxtJigBaseNo_P = .TxtJigBaseNo_P
''' Me.TxtJigBaseNo_A = .TxtJigBaseNo_A
''' Me.TxtJigBaseNo_R = .TxtJigBaseNo_R
' Me.TxtJigNo_P = .TxtJigNo_P
' Me.TxtJigNo_A = .TxtJigNo_A
' Me.TxtJigNo_R = .TxtJigNo_R
''' Me.TxtCopperMouldNo_P = .TxtCopperMouldNo_P
''' Me.TxtCopperMouldNo_A = .TxtCopperMouldNo_A
''' Me.TxtCopperMouldNo_R = .TxtCopperMouldNo_R
' Me.TxtAreaPlatNo_P = .TxtAreaPlatNo_P
' Me.TxtAreaPlatNo_A = .TxtAreaPlatNo_A
' Me.TxtAreaPlatNo_R = .TxtAreaPlatNo_R
' Me.TxtBladderNo_P = .TxtBladderNo_P
' Me.TxtBladderNo_A = .TxtBladderNo_A
' Me.TxtBladderNo_R = .TxtBladderNo_R
' Me.TxtRubber_P = .TxtRubber_P
' Me.TxtRubber_A = .TxtRubber_A
' Me.TxtRubber_R = .TxtRubber_R
' Me.TxtRubberHard_P = .TxtRubberHard_P
' Me.TxtRubberHard_A = .TxtRubberHard_A
' Me.TxtRedRubber_P = .TxtRedRubber_P
' Me.TxtRedRubber_A = .TxtRedRubber_A
' Me.TxtRedRubber_R = .TxtRedRubber_R
' Me.TxtRedRubberHard_P = .TxtRedRubberHard_P
' Me.TxtRedRubberHard_A = .TxtRedRubberHard_A
' Me.TxtAgQec_P = .TxtAgQec_P1 & "±" & .TxtAgQec_P2 & "C"
' Me.TxtAgQec_A = .TxtAgQec_A
' Me.TxtAgQec_R = .TxtAgQec_R
'
TxtPrintDate = Date
End With
End Sub
报表打印数据写不进去,就是这个样子

报表文本框= forms!窗体名.控件名 直接读取。或者在报表的open事件写代码