[Resolvido]Form para gravar dados na tabela access

Boas tardes

Na minha base de dados access tenho varias tabelas!

Como crio uma form onde intruduzo os dados numa das tabelas? Com botão gravar e apagar!

Como fazo isso?

Abrcs

Se criar um formulário vinculado, não precisarás de botão para a inclusão de dados. Se não é bem isso que precisa, dê maiores detalhes por gentileza.

Não

Pretendo um form onde registe os dados e tenha um botão para gravar dados na tabela.

Alguns dos campos do registo devem ser combobox, os dados que serão carregados para a combobox estão em tabelas.

Ex.
TAbela Chefes:

tenho 5 nomes de chefes.

No meu form de registo preciso que um dos campos seja uma comobox onde apareça esses 5 nomes do registo.

Olá Flashed,
Não entendi direito sua dúvida se o Criquio já adiantou se tens uma tabela crie um formulario com os dados da mesma. Não faz sentido criar um formulário apenas para editar um campo em uma tabela. Agora, se você criar um formulario Registro e precise selecionar um Chefe basta na tabela Registro ter um campo de pesquisa com a Tabela Chefes.
Abraços
Gerson

Pois se calhar o que eu digo não esta muit fazendo sentido....

O que preciso é de um form onde registe dados na tabela.

Ex. textbox1 grava na coluna Nome
textbox2 grava na coluna Idade

Esse form serve so para gravar os dados!
Como fazo isso?

Pretendes gravar novo registro ou gravar alterações em um registro já existente?

Novo registo.


PAra alterações tem que ser um form ao lado!

Cumps

A dificuldade do colega está em fazer um formulário ligado à tabela para mostrar os dados. É isso?

Um exemplo mais simples não existe

http://dl.dropbox.com/u/8157744/AAA1.rar

Coloque assim no clique do botão:

CurrentDb.Execute "INSERT INTO NomeDaTabela (Campo1DaTabela, Campo2DaTabela, Campo3DaTabela) Values(" & Me.Campo1DoForm & ", " & Me.Campo2DoForm & " & Me.Campo3DoForm & ")"

Baixe do mesmo link, agora com botão Gravar e Eliminar

http://dl.dropbox.com/u/8157744/AAA1.rar

Tente isto e não deu...

Onde ponho este código?



CurrentDb.Execute "INSERT INTO Tabela1 (Nome) Values(" & Me.Caixa de combinação1 & ")"

O que fiz foi o seguinte!

Abri um form em branco, nesse form preciso de ter uma combobx que é carregada com a info da tabela Chefes.
Nessa combobox vão aparecer os nomes de todos os chefes. Escolho o nome do chefe e fazo gravar, no botão gravar!
O que está escrito na comobobx e carregado para a tabela 1.

Perceberam?

Os xemplos que me mandaram estão bons e ajudam mas o que pretendo é utilizar a informação de uma tabela para escrever noutra...

desculpem a confusão

Se o campo for tipo texto, precisa acrescentar aspas simples:

CurrentDb.Execute "INSERT INTO Tabela1 (Nome) Values('" & Me.Caixa de combinação1 & "')"

Mas não foi isso que disse acima, lógico que induziu em erro. Só agora fala em combobox

Peço desculpa vieira

mas era isso que precisava A ajuda de ambos foi importante

Obrigado

Tudo bem amigo, a gente só quer ajudar.

Então tópico resolvido?

Não

No formulario preciso que um campo abra um calendario. É o campo data, para não ter que escrever a data a mão preciso que apareça o calendario e basta selecionar só o dia...

Obrigado pessoal

Qual é a versão do Access? Se for 2007 ou 2010, pode usar o DatePicker.

2000...estou a fazer em 2007 mas depois vou gravar em 2000

Já está...lol
No formatar escolhi "data abreviada" e la aparece o calendario:D

Acredito que só aparece no 2007. No 2000 acredito que não aparecerá. Aí será melhor usar o Controle calendário.

Tem exemplos de calendários que se adaptam desde o 2000 ao XP, aqui no fórum no repositório.

Veja este exemplo

http://maximoaccess.forumeiros.com/t1418-resolvidocalendario-em-form

Mas gravei para 2000 e funcionou beleza...Naõ exprimeitei foi numa maquina de office 2003 mas penso que não acha stress!

pessoasl mais uma questão:

Tenho uma tabela com as equipas.
São 5 equipas ao todo.

Numa caixa de combinação selecciono a equipa e noutra caixa seleccionaria a função.
Como para cada equipa existem funções diferentes existe maneira de ao escolher a equipa 1 na primeira caixa na caixa função só apareceria as funcões correspondeste a essa equipa?

Perceberam a ideia? A caixa função seria escrava da caixa equipa.

Perceber, percebemos. Aqui no repositório de exemplos tem isso, com 2 ou 3 combos

Mesmo você salvando em versões anteriores, no 2007 funciona, mas talvez quando rodar na outra versão não funcionará, porque a outra versão não dispõe desse recurso.

O Criquio tem razão amigo. Se experimentar agora num pc com o 2003 ou o 2000, vai dar erro. Melhor aproveitar o exemplo que lhe enviei.

Vou exprimentar

Podem me disser onde encontro esses exemplos?

O Exemplo do calendário já o coloquei acima, os das combos, já lhe tirei trabalho

http://dl.dropbox.com/u/8157744/combos2.rar

Obrigado

Este é o codigo que tenho que utilizar né?

Private Sub cmb_gestante_AfterUpdate()
If cmb_gestante.Text = "equipa 1" Then
Call MsgBox("Por favor preencha a função", vbExclamation, "Aviso")
Me.cmb_mes.SetFocus
Me.cmb_mes.Dropdown
End If
End Sub

Onde ponho o nome da tabela onde contem as funções para a equipa 1?

Pessoal mais uma questão

CurrentDb.Execute "INSERT INTO Tabela1 (Nome do Aluno) Values('" & Me.Caixa de combinação1 & "')"

Este código dá erro no "Nome do Aluno" mas se escrever NomedoAluno e modificar o nome da coluna para NomedoAluno já funciona! Existe forma de isto não dar erro!

abrcs

Dê uma lida nesse pequeno artigo: http://maximoaccess.forumeiros.com/t1162-dicas-para-iniciantes-nomear-campos-e-elementos-de-um-sistema-em-access

Beleza...a primeira linha diz tudo!

Amigo, com base nas combos do exemplo, você deve ver as instruções sql. Copie as instruções para o bloco de notas e aprenda a fazer a sua instrução e colocar as combo a funcionar.

Pessoal


O que estou a fazer de mal neste código?

O objectivo é se a caixa de combinação 2 e 5 estiver vazia ele apresenta mensagem. Caso esteja prenchida aparecer a mesnagem "Deseja inserir este registo ?".

Mas não esta a dar correcto!
Quando fazo clique com todos os campos vazios aparece a mensagem "Deseja inserir este registo ?" mesmo que diga que Não ele escreve na tabela Colaboradores.

Private Sub Comando31_Click()



If Len(Caixa_de_combinação2) = 0 Then
MsgBox "O campo 2 é de preenchimento obrigatório.", vbExclamation

Exit Sub
End If

If Len(Caixa_de_combinação5) = 0 Then
MsgBox "O campo Dia é de preenchimento obrigatório.", vbExclamation
Exit Sub
End If



'Confirma se utilizador quer mesmo inserir o registo
If MsgBox("Deseja inserir este registo ?", vbQuestion + vbYesNo + vbDefaultButton2) = vbYes Then
End If


CurrentDb.Execute "INSERT INTO Colaboradores (Tabelas) Values('" & Me.Caixa_de_combinação2 & "')"



Caixa_de_combinação2 = ""
Caixa_de_combinação5 = ""
Caixa_de_combinação7 = ""
Caixa_de_combinação15 = ""
Caixa_de_combinação17 = ""
Caixa_de_combinação28 = ""
Me.Texto11 = ""
Me.Texto9 = ""
Me.Texto19 = ""
Me.Texto22 = ""
End Sub

Cumps

Teste assim:

If IsNull(Me.Caixa_de_combinação2) Or Me.Caixa_de_combinação2.Value = "" Then
MsgBox "O campo 2 é de preenchimento obrigatório.", vbExclamation
Exit Sub

ElseIf IsNull(Me.Caixa_de_combinação5) Or Me.Caixa_de_combinação5.Value = "" Then
MsgBox "O campo Dia é de preenchimento obrigatório.", vbExclamation
Exit Sub
End If

'Confirma se utilizador quer mesmo inserir o registo
Else

If MsgBox("Deseja inserir este registo ?", vbQuestion + vbYesNo + vbDefaultButton2) = vbYes Then

CurrentDb.Execute "INSERT INTO Colaboradores (Tabelas) Values('" & Me.Caixa_de_combinação2 & "')"

Caixa_de_combinação2 = ""
Caixa_de_combinação5 = ""
Caixa_de_combinação7 = ""
Caixa_de_combinação15 = ""
Caixa_de_combinação17 = ""
Caixa_de_combinação28 = ""
Me.Texto11 = ""
Me.Texto9 = ""
Me.Texto19 = ""
Me.Texto22 = ""

Else
Exit Sub

End If
End If

O que acontece é que você abriu três blocos Ifs e o certo é ter apenas um envolvendo os procedimentos. Como você encerrou o bloco If que valida as combos nulas antes de iniciar a gravação dos dados, eles são gravados mesmo assim.

Funcionou beleza

No fim altera para End Sub e fica beleza

Obrigado

Podem dar o tópico como resolvido! Ou eu posso fazer isso?

Sempre que resolver um tópico, pode clicar no botão Resolvido na frente do campo do título do tópico, logo acima do botão Enviar

Thanks