Problemas con formularios

30/07/2007 - 16:17 por crx73 | Informe spam
Buenos dias a todos.

Tengo un userform con el cual pretendo llenar un formato en excel.
En el userform se ingresan los datos que nos pide, cuenta con 4
botones (continuar, pausar, limpiar y cancelar).
Bien, la idea es q al momento de oprimir continuar, los datos
ingresados en este formulario me los pase al siguiente formulario en
los labels que representan a cada uno de los campos del formulario
anterior.
Todo iba bien, capturaba los datos q se me pedian, y luego le daba en
continuar y me pasaba los datos al siguiente formulario (use la
propiedad caption de las etiquetas).
Pero despues de haber hecho el codigo initialize del segundo userform,
ahora me marca un error al momento de darle continuar en el primer
userform.

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.

Preguntas similare

Leer las respuestas

#1 Pablov
30/07/2007 - 23:06 | Informe spam
Que tal.

Donde dice

Compa = Me.ciaNumber.Caption



ciaNumber ??? donde esta, no sera

codCompany ??
Respuesta Responder a este mensaje
#2 crx73
31/07/2007 - 16:01 | Informe spam
On 30 jul, 16:06, Pablov wrote:
Que tal.

Donde dice

> Compa = Me.ciaNumber.Caption

ciaNumber ??? donde esta, no sera

codCompany ??



ciaNumber es una label del formulario 2 (frmVoucRecords).
codCompany es una variable que creo en el primer formulario
(frmVouchers), desde este formulario pretendo asignarle ese valor a la
label ciaNumber la cual pertenece al formulario frmVoucRecords
Respuesta Responder a este mensaje
#3 Pablov
07/08/2007 - 23:50 | Informe spam
si Utilizas la notacion de Objetos Me.objeto, te aconsejo que la
inicializacion la hagas desde el form llamador. El Me, depende del valor que
tome en la ejecucion.

En tu caso prueba

Compa = frmVoucRecords.ciaNumber.Caption
email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida