Problemas entre formularios
El error que me indica es el 13
Type mismatch
El error me lo genera cuando quiero asignarle un valor a la propiedad caption de los labels del siguiente userform.
He aqui el codigo del boton Continuar
Private Sub cmdContinue_Click()
Dim codCompany$, curCompany$
If Me.opt2030 = True Then
codCompany = "1130"
curCompany = "Empresa 1"
Else
If Me.opt2040 = True Then
codCompany = "1140"
curCompany = "Empresa 2"
Else
If Me.opt2060 = True Then
codCompany = "1160"
curCompany = "Empresa 3"
Else
If Me.opt2090 = True Then
codCompany = "1290"
curCompany = "Empresa 4"
End If
End If
End If
End If
frmVoucRecords.ciaNumber.Caption = codCompany
frmVoucRecords.Company.Caption = curCompany
If Me.optMXN = True Then
frmVoucRecords.lblCurr.Caption = "PESOS"
End If
If Me.optUSD = True Then
frmVoucRecords.lblCurr.Caption = "USD"
End If
If IsEmpty(Me.txtIVAInv.Value) = True Then
frmVoucRecords.lblInvIVA.Caption = 0
Else
frmVoucRecords.lblInvIVA.Caption = Me.txtIVAInv.Value
End If
frmVoucRecords.lblSupName.Caption = Me.cmbSupName.Value
frmVoucRecords.lblSupNumb.Caption = Me.Label4.Caption
frmVoucRecords.lblInvNumb.Caption = Me.txtInvNumb.Value
frmVoucRecords.lblInvDate.Caption = Me.txtInvDate.Value
frmVoucRecords.lblDateRec.Caption = Me.txtInvRec.Value
frmVoucRecords.lblInvAmt.Caption = Me.txtInvAmou.Value
frmVoucRecords.lblDocNumb.Caption = Me.txtDocNumb.Value
frmVoucRecords.lblBtcNumb.Caption = Me.txtBatchNumb.Value
frmVoucRecords.lblGLDate.Caption = Me.txtGLDate.Value
frmVoucRecords.lblPONumb.Caption = Me.txtPONumb.Value
frmVoucRecords.lblChkTT.Caption = Me.txtChkTT.Value
frmVoucRecords.lblDatePaid.Caption = Me.txtDatePaid.Value
Windows("02 - VOUCHERS.xls").Visible = True
Workbooks("02 - VOUCHERS.xls").Activate
Sheets(codCompany).Visible = True
Sheets(codCompany).Activate
frmVouchers.Hide
frmVoucRecords.Show
End Sub
Y aca esta el codigo del segundo userform
Private Sub UserForm_Initialize()
Dim Compa$
Dim supName$, supInvo$, supInvCur$
Dim supNumbr&, dcNumbr&, btcNumbr&, poNumbr&, chkNumbr&
Dim supDtRec As Date, supInvDat As Date, glDat As Date, dtPaid As Date
Compa = Me.ciaNumber.Caption
supName = Me.lblSupName.Caption
supInvo = Me.lblInvNumb.Caption
supInvCur = Me.lblCurr.Caption
supNumbr = Me.lblSupNumb.Caption
dcNumbr = Me.lblDocNumb.Caption
btcNumbr = Me.lblBtcNumb.Caption
poNumbr = Me.lblPONumb.Caption
chkNumbr = Me.lblChkTT.Caption
supDtRec = Me.lblDateRec.Caption
supInvDat = Me.lblInvDate.Caption
glDat = Me.lblGLDate.Caption
dtPaid = Me.lblDatePaid.Caption
With Me.txtBU
.Value = ""
.MaxLength = 9
.BackColor = RGB(255, 255, 201)
.ForeColor = RGB(0, 0, 136)
End With
With Me.txtAcc
.Value = ""
.BackColor = RGB(255, 255, 201)
.ForeColor = RGB(0, 0, 136)
End With
With Me.txtsubAcc
.Value = ""
.BackColor = RGB(255, 255, 201)
.ForeColor = RGB(0, 0, 136)
End With
With Me.txtSubL
.Value = ""
.BackColor = RGB(255, 255, 201)
.ForeColor = RGB(0, 0, 136)
End With
With Me.txtType
.Value = ""
.BackColor = RGB(255, 255, 201)
.ForeColor = RGB(0, 0, 136)
End With
With Me.txtEntry
.Value = ""
.BackColor = RGB(255, 255, 201)
.ForeColor = RGB(0, 0, 136)
End With
With Me.txtDescrip
.Value = ""
.BackColor = RGB(255, 255, 201)
.ForeColor = RGB(0, 0, 136)
End With
Windows("02 - VOUCHERS.xls").Visible = True
Workbooks("02 - VOUCHERS.xls").Activate
Select Case Compa
Case "2030"
Sheets("2030").Visible = True
ActiveWorkbook.Sheets("2030").Activate
ActiveWindow.DisplayGridlines = False
Case "2040"
Sheets("2040").Visible = True
ActiveWorkbook.Sheets("2040").Activate
ActiveWindow.DisplayGridlines = False
Case "2060"
Sheets("2060").Visible = True
ActiveWorkbook.Sheets("2060").Activate
ActiveWindow.DisplayGridlines = False
Case "2090"
Sheets("2090").Visible = True
ActiveWorkbook.Sheets("2090").Activate
ActiveWindow.DisplayGridlines = False
End Select
Range("C5").Value = supName
Range("G5").Value = supInvo
Range("I5").Value = supDtRec
Range("C6").Value = supNumbr
Range("G6").Value = supInvCur
Range("I6").Value = supInvDat
Range("C7").Value = dcNumbr
Range("G7").Value = btcNumbr
Range("I7").Value = glDat
Range("C8").Value = poNumbr
Range("G8").Value = chkNumbr
Range("I8").Value = dtPaid
Windows("02 - VOUCHERS.xls").Visible = False
Me.txtBU.SetFocus
End Sub
Gracias por sus comentarios