Pase datos entre formularios de usuario
Dentro de Excel VBA tengo un formulario de usuario similar al siguiente, donde el usuario ingresa un número de identificación y luego los detalles se muestran en el formulario de usuario:
Private Sub btnIDNo_Click()
Dim IDNo As Long
If txtIDNo.Text <> "" Then
If IsNumeric(txtIDNo.Text) = True Then
lblError.Caption = ""
IDNo = txtIDNo.Text
Worksheets("Details").Activate
Range("B4").Select
While ActiveCell.Value <> "" And ActiveCell.Value <> IDNo
ActiveCell.Offset(1, 0).Select
Wend
If ActiveCell.Value = IDNo Then
txtName.Value = ActiveCell.Offset(0, 1).Value
txtPhone.Value = ActiveCell.Offset(0, 2).Value
Else
lblError.Caption = "Cannot find ID nummber"
End If
Else
lblError.Caption = "Please enter the ID Number in numeric form"
End If
End If
End Sub
En el formulario de usuario de detalles, tengo un botón "Editar". Al hacer clic en el botón "Editar" se abriría otro formulario de usuario donde el usuario puede cambiar los detalles de ese número de identificación, pero obviamente no el número de identificación en sí. Para hacer esto, necesito pasar el número de identificación del formulario de usuario de detalles al formulario de edición de usuario. ¿Hay alguna forma de hacer esto?
La parte inferior del formulario Mostrar usuario de detalles para abrir el formulario Editar usuario es similar al siguiente:
Private Sub CommandButton1_Click()
Dim IDNo As Long
If txtIDNo.Text <> "" Then
If IsNumeric(txtIDNo.Text) = True Then
lblError.Caption = ""
IDNo= txtIDNo.Text
ufmEditDetails.Show
ufmShowDetails.Hide
Else
lblError.Caption = "Please enter the ID Number in numeric form"
End If
Range("B4").Select
End If
End Sub
Ya he visto los siguientes enlaces, pero no parecen ayudar:
http://gregmaxey.mvps.org/word_tip_pages/userform_pass_data.html