Ligar Campos De Formulários Diferentes.

[Edson_csi 0]

Olá pessoal!Tenho dois formulários, o 1º com os campos Nome e Endereço, e o 2º com os campos Nome e Profissão.Pois bem, gostaria de saber se há como ligar o campo nome do 2º formulário com campo nome do 1º, para que eu não precise digitá-lo novamente no 2º formulário!Seria como uma caixa ListBox no 2º formulário!Obrigado!

[Fernando Almeida 0]

Olá pessoal!Tenho dois formulários, o 1º com os campos Nome e Endereço, e o 2º com os campos Nome e Profissão.Pois bem, gostaria de saber se há como ligar o campo nome do 2º formulário com campo nome do 1º, para que eu não precise digitá-lo novamente no 2º formulário!Seria como uma caixa ListBox no 2º formulário!Obrigado!

não entendi muito bem, mas acredito que você possa criar uma variavel global e assim que você alterar o nome no primeiro form coloque esse valor na variavel, dai no load do outro formulario você coloca para que o text que você deseje receber o valor dessa variavel.

[Se Puder Ajudar... 0]

oinão entendi muito bem mas não andas à procura de algo do tipo:Form2.ShowFrom2.Text1.Text = Form1.Text1.Textdepois diz se serviu, se não servir tenta explicar melhor o problema!!!

[g.rempel 0]

para isso tu tem que ter um combobox no para o campo Nome do seu 2º formulário e segue o código abaixo, qwue você deve colar no formload do seu 2º formulário:

 

Private Sub Form_Load()    Dm lrsTipos As Recordset    Dim lSQL As String        Set lrsTipos = gBDLogin.OpenRecordset("Select * From tabeladobancodedados", dbOpenSnapshot)                If lrsTipos.EOF = True Then            MsgBox "Nenhum Nome cadastrada.", vbCritical, "Aviso"            Exit Sub        End If                Do While lrsTipos.EOF = False            nomedocombobox.AddItem lrsTipos.Fields("campodatabela").Value            nomedocombobox.ItemData(nomedocombobox.NewIndex) = lrsTipos.Fields("campocodigodatabela").Value                        lrsTipos.MoveNext        LoopEnd Sub

Avariável gBDLogin é aque tem o valor para abrir o banco, e é global, declare ele assim no seu modulo

 

Option Explicit    Public gBDLogin As DatabasePrivate Sub main()    Dim lsSenha As String    variável que possui a senha para poder abrir bancodedados com senha, caso n tenha tire essa parte    lsSenha = ";pwd=suasenhadobancodedados"'comando para abrir o Banco de Dados    Set gBDLogin = OpenDatabase(App.Path & "\BDX.mdb", False, False, lsSenha)    'abre o projeto    nomedasuapaginainicial.ShowEnd Sub

sendo que para isto funcionar direito, você deve fazer com que o programa nicie pela Sub Main(), então, vá em PROJECT - ''nomedoprojeto'PROPERTIES - Etroque em STARTUP OBJECT - para Sub Main

 

 

acho q é isso !!!!

[Claudio Neto 3]

para isso tu tem que ter um combobox no para o campo Nome do seu 2º formulário e segue o código abaixo, qwue você deve colar no formload do seu 2º formulário:

Private Sub Form_Load()    Dm lrsTipos As Recordset    Dim lSQL As String        Set lrsTipos = gBDLogin.OpenRecordset("Select * From tabeladobancodedados", dbOpenSnapshot)                If lrsTipos.EOF = True Then            MsgBox "Nenhum Nome cadastrada.", vbCritical, "Aviso"            Exit Sub        End If                Do While lrsTipos.EOF = False            nomedocombobox.AddItem lrsTipos.Fields("campodatabela").Value            nomedocombobox.ItemData(nomedocombobox.NewIndex) = lrsTipos.Fields("campocodigodatabela").Value                        lrsTipos.MoveNext        LoopEnd Sub

Avariável gBDLogin é aque tem o valor para abrir o banco, e é global, declare ele assim no seu modulo

Option Explicit    Public gBDLogin As DatabasePrivate Sub main()    Dim lsSenha As String    variável que possui a senha para poder abrir bancodedados com senha, caso n tenha tire essa parte    lsSenha = ";pwd=suasenhadobancodedados"'comando para abrir o Banco de Dados    Set gBDLogin = OpenDatabase(App.Path & "\BDX.mdb", False, False, lsSenha)    'abre o projeto    nomedasuapaginainicial.ShowEnd Sub

sendo que para isto funcionar direito, você deve fazer com que o programa nicie pela Sub Main(), então, vá em PROJECT - ''nomedoprojeto'PROPERTIES - Etroque em STARTUP OBJECT - para Sub Mainacho q é isso !!!!

Caramba g.rempel, sua dica é boa mas acho que não para a necessidade dele. Por que você está dizendo para ela fazer essas conexões se ele nem tocou no assunto sobre conexão com banco de dados? Não entendi...Peço até desculpas por estar me intrometendo assim, mas é que pelo visto o cara está aprendendo agora, e dessa forma só irá confundi-lo.Abraços e desculpe...