ABRIR OUTRO FORM MANTENDO DADOS

PEDROBB 28/02/2005 14:33:13
#70350
form SOCIOS
form DEPENDENTES
tabela CLIENTES
indice MATRICULA

Dúvida:
1 - criei um botao para abrir o form DEPENDENTES,
esse botao fica dentro do form SOCIOS. Gostaria de,
quando abrir o form SOCIOS, vou pesquisar um socio
pela MATRICULA, e, caso necessário, clicar no
botao DEPENDENTES e imediatamente aparecer a
MATRICULA do socio que pesquisei no form SOCIOS.

2- como fazer para permitir ao usuario abrir o
form DEPENDENTES somente se o form SOCIOS estiver
aberto.

Grato
Pedro
USUARIO.EXCLUIDOS 28/02/2005 14:52:09
#70352
em um modulo:
Public FSocios as Integer

no load do formsocios
FormSocios_Load()
FSocios = 1
End Sub

no unload do formsocios
FormSocios_unload
FSocios = 2
End Sub

no botão que abre o formdependentes

Botao_Click()
if FSocios = 2 then
msgbox "Form Socios Fechado"
else
FormDependentes.Show
End if
End Sub
ou simplesmete

Function FormEstaAberto(FormName As String) As Boolean
Dim f As Form
For Each f In Forms
If f.Name = FormSocios Then
FormEstaAberto = True
Exit Function
End If
Next
End Function
(Esta aprendi com o Flavio Paganini)
PEDROBB 28/02/2005 21:39:59
#70425
Nao consegui que funciosasse a rotina.
E quanto à  duvida 1, alguem tem sugestão???

Valeu!!!!!!
WEBMASTER 01/03/2005 01:35:40
#70455 Resposta escolhida
Talvez isto ajude...Bom, façamos de conta que temos o Form1 e o Form2[/b]..No form1, temos um textbox com o nome TextDoForm1 e, no form2 um chamado TextDoForm2 (( Original né..heheh =P ))
Bom, pra jogar os dados do text do form1 para o do form2 :


Private Sub Form1_Click()
   Form2.BotaoDoForm2.Text=Me.BotaoDoForm1.Text
End Sub


Espero ter ajudado com essa explicaçãozinha tosca..hehehe
Tópico encerrado , respostas não são mais permitidas
Voltar