[Resolvido]Preenchimento de Formularios

Olá Pessoal, bom dia são 11:13 aqui no Rio,espero que estejam todos bem.
Procurei no fórum mas não consegui bem o que eu queria:
1 tenho um formulário chamado Agenda neste formulário existem os seguintes campos:
CodCli
Tipo (se cliente, se prestador de serviços, empregados etc)
Nome
Telefone Comercial
Telefone Residencial
Celular
email
Quero colocar um botão de comando para abrir um formulário de cadastro e preencher estes campos.
Poderia usar um subformulario mas pretendo adicionar outros botões na agenda para outras funções tipo compromisso
Abraços
Gerson

Bom dia Gerson, aqui já são 14,30 (rsrsrss)

Esse formulário de cadastro é independente, ou seja cadastra os clientes e não tem nada a ver com o form agenda, é isso?

Olá Vieira,
Pretendo cadastrar a agenda com os dados principais. E a partir dele ir fazendo os demais cadastros.

É que está um pouco confuso. Se tem um formulário no qual cadastra os clientes e quer preencher os dados da agenda tem que seleccionar no form de cadastro e no botão de comando digitar assim:

With Forms("Agenda")
.Controls("Cliente") = Me.Cliente
e por aí fora
End With
DoCmd.Close acForm, ("firmcadastro"), acSavePrompt

Se é isto que você quer, porque não está muito claro.

Vou explicar melhor...
O formulario agenda eu vou cadastrar os dados principais não só de clientes.
no formulario agenda haverá.
Cod
Nome
TelComercial
TelResidencial
Celular
email
colocarei um botão para caso o contato da agenda seja um cliente abrirá o formulario para digitação dos demais dados do cliente como endereço, documentos etc
Motivo: São muitos campos de informações por isso eu pensei em fazer assim.
Caso o contato da agenda seja um Fornecedor já serão outros dados(farei outro formulário também aproveitando os campos da agenda e assim por diante.)

Ok, pode fazer isso através de um botão de comando ou com um duplo clique no campo NomeCliente por exemplo.

Assim:

Dim msg, Style, Title
msg = "Não existe Cliente, deve abrir um!!!"
Style = "vbCritical"
Title = "Erro"
If IsNull(Me.NomeCliente) Then
msg = MsgBox(msg, vbCritical, Title)
Else
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "formcadastro"

stLinkCriteria = "[NomeCliente]=" & "'" & Me![NomeCliente] & "'"
DoCmd.OpenForm stDocName, , , stLinkCriteria
End If

Vieira,
O botão vai ficar no formulário agenda e ao ser clicado deverá gerar um novo registro no formulario Cliente,
desculpe se não expliquei direito

Ah, então é independente e vai gerar um novo registo de cliente:

DoCmd.OpenForm"frmCadastro"
DoCmd.RunCommand acCmdRecordsGoToNew

Abriu o formCadastro mas não preencheu os registros

Amigão, então é isso. Tudo tinha ficado mais fácil se tivesse dito logo o que queria (rsrsrs)

Form_Cadastro.nomedocampo.Value = Form_Agenda.nomedocampo.Value
Form_Cadastro.nomedocampo1.Value = Form_Agenda.nomedocampo1.Value
Form_Cadastro.nomedocampo2.Value = Form_Agenda.nomedocampo2.Value
e por aí fora

Private Sub Comando745_Click()
DoCmd.OpenForm "FrmCadastro"
DoCmd.RunCommand acCmdRecordsGoToNew
FrmCadastro.Nome.Value = Form_Agenda.Nome.Value
FrmCadastro.Telefone_Residencial.Value = Form_Agenda.Telefone_Residencial.Value
FrmCadastro.Telefone_Comercial.Value = Form_Agenda.Telefone_Comercial.Value
FrmCadastro.Celular.Value = Form_Agenda.Celular.Value
Este botao esta no formulario agenda e ao clicar variavel aparece não definida

Amigão

Desculpe que esqueci, mil perdões:

Form_Cadastro.nomedocampo.SetFocus
Form_Cadastro.nomedocampo.Value = Form_Agenda.nomedocampo.Value
Form_Cadastro.nomedocampo1.SetFocus
Form_Cadastro.nomedocampo1.Value = Form_Agenda.nomedocampo1.Value
Form_Cadastro.nomedocampo2.SetFocus
Form_Cadastro.nomedocampo2.Value = Form_Agenda.nomedocampo2.Value

DoCmd.OpenForm "FrmCadastro"
DoCmd.RunCommand acCmdRecordsGoToNew
FrmCadastro.Nome.SetFocus
FrmCadastro.Nome.Value = Form_Agenda.Nome.Value
FrmCadastro.Telefone_Residencial.SetFocus
FrmCadastro.Telefone_Residencial.Value = Form_Agenda.Telefone_Residencial.Value
FrmCadastro.Telefone_Comercial.SetFocus
FrmCadastro.Telefone_Comercial.Value = Form_Agenda.Telefone_Comercial.Value
FrmCadastro.Celular.SetFocus
FrmCadastro.Celular.Value = Form_Agenda.Celular.Value
Continua com o erro de variavel não definida

Quer enviar para o meu email para eu ver o que se está a passar? É que não estou a ver que variável????, pois não estamos a declarar nenhuma variável aí. Esse erro só pode vir de qualquer outra situação???

Aqui vai.

Mantive a sua tabela Cadastro e chamei-lhe Cadastro1, e fiz uma nova Cadastro. A Cadastro1 pode deitar para o lixo. Tudo a funcionar

http://dl.dropbox.com/u/8157744/Controle%20Demarc%201.0.rar

Vieira, funcionou perfeitamente, inclusive coloquei os campos restantes.
Amigo muito obrigado pela aula bom domingo e bom descanço.
Grande Abraço
Gerson

Grande abraço amigo Gerson e bom domingo

Gerson está actualizado o link

http://dl.dropbox.com/u/8157744/Controle%20Demarc%201.0.rar