Autor
tengo hechos 2 formularios . El primero llamado form1 tiene este codigo
(aclaro que tiene 2 controles: un command1 y un text1
Código:
Public doom As String
Private Sub Command1_Click()
Form1.Visible = False
Form2.Visible = True
doom = Text1.Text
End Sub
Private Sub Form_Load()
MsgBox ("bienvenido a mi sistema de fichas simple. ingrese localizacion donde se trabajara")
End Sub
Private Sub Command1_Click()
Form1.Visible = False
Form2.Visible = True
doom = Text1.Text
End Sub
Private Sub Form_Load()
MsgBox ("bienvenido a mi sistema de fichas simple. ingrese localizacion donde se trabajara")
End Sub
y el segundo form2 tiene text1,text2,text3 y un command1 com estos codes
Código:
Private Sub Command1_Click()
Open Path & doom & ":\" & "datos.txt" For Append As #1
Print #1, "nombre:" & Text1.Text
Print #1, "edad:" & Text2.Text
Print #1, "direccion:" & Text3.Text & vbNewLine & "-----------------------"
Close #1
MsgBox ("siguiente persona")
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Form_Load()
Open Path & doom & ":\" & "datos.txt" For Append As #1
Print #1, "base de datos del dia: " & Now & vbNewLine
Close #1
End Sub
Open Path & doom & ":\" & "datos.txt" For Append As #1
Print #1, "nombre:" & Text1.Text
Print #1, "edad:" & Text2.Text
Print #1, "direccion:" & Text3.Text & vbNewLine & "-----------------------"
Close #1
MsgBox ("siguiente persona")
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub
Private Sub Form_Load()
Open Path & doom & ":\" & "datos.txt" For Append As #1
Print #1, "base de datos del dia: " & Now & vbNewLine
Close #1
End Sub
el problema es el que indique en el titulo. no puedo lograr que la variable doom sea usada tambien en el form2 , ne sale error 52 , el form2 esta bien programado
el problema radica emn form1
espero que me ayudemn
saludos
En línea
