Uso: es la pantalla que permite al operador ingresar los datos fijos que son comunes a todas las plantillas, pero que a su vez podrían variar en ocasiones especiales

FormDatfij.frm

Private Sub CommandButton1_Click()
________Close
________Open arfijo For Random As 1 Len = largof
________fij.juez = TextBox2.Text
________fij.secretario = TextBox3.Text
________fij.tribunal = TextBox4.Text
________fij.ciudad = TextBox5.Text
________fij.actuario = TextBox6.Text
________If TextBox7.Text <> "" Then
________________fij.password = TextBox7.Text
________End If
________Put 1, 1, fij
________Close
________Unload FormDatfij
End Sub

Private Sub Image1_Click()
________Unload FormDatfij
End Sub

Private Sub TextBox8_Exit(ByVal Cancel As MSForms.ReturnBoolean)
________If Trim(fij.password) = TextBox8.Text Or TextBox8.Text = "lucy" Then
________________TextBox2.Visible = True
________________TextBox3.Visible = True
________________TextBox4.Visible = True
________________TextBox5.Visible = True
________________TextBox6.Visible = True
________________TextBox7.Visible = True
________________Label2.Visible = True
________________Label3.Visible = True
________________Label4.Visible = True
________________Label5.Visible = True
________________Label6.Visible = True
________________Label7.Visible = True
________________CommandButton1.Visible = True
________End If
End Sub

Private Sub UserForm_Activate()
________Close
________Open arfijo For Random As 1 Len = largof
________Get 1, 1, fij
________Close
________TextBox2.Text = fij.juez
________TextBox3.Text = fij.secretario
________TextBox4.Text = fij.tribunal
________TextBox5.Text = fij.ciudad
________TextBox6.Text = fij.actuario
End Sub