[Resolvido]Problemas com Insert Into.

Bom dia galera.
Continuando a montagem do meu Banco de dados com formulários, esbarrei de novo no problema com o botão gravar.
Da outra vez que pedi auxílio de vcs deu tudo certo com o formulário "Alunos". Agora fiz um para os funcionários aqui da escola, copiei os comandos para o botão gravar, troquei os valores e ta dando erro de sintaxe. Já olhei os 2, comparei e não acho onde estou errando. Por Favor, me ajudem.
Anexado a este esta o Banco de Dados com os formulários. alguns botões ainda estão em construção, então não estranhem se estiverem faltando comandos.
Ah, aproveitando a oportunidade, neste formulário existem os campos "Abonadas" (são 6), que devem ser colocados em uma outra tabela, portanto se puderem ajudar nisto tb agradeço muito...
Grato desde já.

Ninguém galera?
Por favor, preciso terminar esse BD antes do início das matrículas no mês que vem. HELP!!!

Boa noite,
A bd não abre correctamente

Você grava os dados por VBA ou as tabelas são vinculadas? Se for por VBA, poste o código tambem.

O Banco de Dados abre no Form Menu, que leva aos outros que estão no BD.
O Form Alunos ta funcionando. O problema é o Funcionários.

Tudo por VBA Criquio. Segue o Código dos módulos e do Form. Os outros botões, além do Gravar,estão em construção, por isso alguns estão com nomes de campos diferentes:

'Código dos Módulos
Option Compare Database

Public Comando As String
Public banco As Database
Public dataset As Recordset

Function Conecta()
Set banco = CurrentDb
End Function

Function valida_selecao()
Set dataset = banco.OpenRecordset(Comando, dbOpenDynaset)
End Function

'Código do Form
Option Compare Database

Private Sub cmdAbonada_Click()

End Sub

Private Sub cmdAlterarPF_Click()
Comando = "update tb_Func set ENDERECO='" & txtENDERECO & "', BAIRRO='" & cmbBAIRRO & "', TEL_1='" & txtTEL_1 & "',TEL_2='" & txtTEL_2 & "',TEL_3='" & txtTEL_3 & "', SERIE='" & cmbSERIE & "', TURMA='" & cmbTURMA & "' where REG_FUNC=" & txtREG_FUNC
banco.Execute (Comando)
MsgBox ("Atualização Efetuada com Sucesso!"), vbInformation + vbOKOnly, "Sucesso ao Atualizar"
LimparPF
cmdGravarPF.Enabled = True
cmdConsultarPF.Enabled = True
cmdSairPF.Enabled = True
cmdAlterarPF.Enabled = False
cmdExcluirPF.Enabled = False
txtREG_FUNC.Enabled = True
End Sub

Private Sub cmdGravarPF_Click()
On Error GoTo Err_cmdGravarPF_Click

If txtREG_FUNC <> "" And txtNOME_FUNC <> "" Then
Comando = "Insert into tb_Func (REG_FUNC, NOME_FUNC, CARGO, DATA_NASC_PF, CPF, RG, ENTRADA, ENTRADA_ALMOCO, SAIDA_ALMOCO, SAIDA, ENTRADA_HTP, SAIDA_HTP, PERIODO," _
& " E-MAIL, TEL_1, TEL_2, TEL_3, ENDERECO, BAIRRO, CIDADE, CEP, SERIE, TURMA) VALUES('" & txtREG_FUNC & "','" & txtNOME_FUNC & "'," _
& "'" & cmbCARGO & "'," & IIf(Not IsDate(txtDATA_NASC_PF), "Null", "'" & Format(txtDATA_NASC_PF, "dd/mm/yyyy") & "'") & ",'" & txtCPF & "','" & txtRG & "'," _
& "'" & cmbEntrada & "','" & cmbENTRADA_ALMOCO & "','" & cmbSAIDA_ALMOCO & "','" & cmbSAIDA & "','" & cmbENTRADA_HTP & "','" & cmbSAIDA_HTP & "'," _
& "'" & cmbPERIODO & "','" & txtEMAIL & "','" & txtTEL_1 & "','" & txtTEL_2 & "','" & txtTEL_3 & "','" & txtENDERECO & "','" & cmbBAIRRO & "'," _
& "'" & cmbCIDADE & "','" & txtCEP & "','" & cmbSERIE & "','" & cmbTURMA & "')"

banco.Execute (Comando)
Debug.Print (Comando)
MsgBox ("Os dados foram cadastrados com sucesso!"), vbInformation + vbOKOnly, "Cadastro"
LimparPF
valida_selecao
Else
MsgBox ("Necessário informar os dados para efetuar o cadastro!"), vbInformation + vbOKOnly, "Dados Necessários"
txtREG_FUNC.SetFocus
End If

Exit_cmdGravarPF_Click:
Exit Sub
Err_cmdGravarPF_Click:
MsgBox Err.Description
Resume Exit_cmdGravarPF_Click

End Sub

Private Sub cmdConsultarPF_Click()
txtREG_FUNC.Enabled = True
txtREG_FUNC.SetFocus
If txtREG_FUNC <> "" Then
Comando = "Select * from tb_Func where REG_FUNC= " & txtREG_FUNC
valida_selecao
If dataset.RecordCount <> 0 Then
txtREG_FUNC = dataset("REG_FUNC")
txtNOME_PF = dataset("NOME_FUNC")
cmbCARGO = dataset("CARGO")
txtDATA_NASC_PF = dataset("DATA_NASC")
cmbNATURALIDADE_PF = dataset("NATURALIDADE")
txtRG_PF = dataset("RG_MAE")
cmbESTADO_PF = dataset("ESTADO")
txtENDERECO_PF = dataset("ENDERECO")
cmbBAIRRO_PF = dataset("BAIRRO")
txtCIDADE_PF = dataset("CIDADE")
txtTEL1_PF = dataset("TEL1")
txtTEL2_PF = dataset("TEL2")
txtTEL3_PF = dataset("TEL3")
txtANO_PF = dataset("ANO")
cmbTURNO_PF = dataset("TURNO")
txtGRAU_DE_ENSINO = dataset("ENSINO")
cmbSERIE_PF = dataset("SERIE")
cmbTURMA_PF = dataset("TURMA")
txtOBS_PF = dataset("OBS")
cmdAlterarPF.Enabled = True
cmdExcluir.Enabled = True
cmdSairPF.Enabled = True
cmdGravarPF.Enabled = False
cmdConsultar.Enabled = True
txtREG_FUNC.Enabled = True
Else
MsgBox ("Não foi achado nenhum registro com o código informado!"), vbInformation + vbOKOnly, "Nenhum Registro"
End If
End If
cmdLimparPF.Enabled = True
cmdExcluir.Enabled = True
cmdGravarPF.Enabled = True
cmdSairPF.Enabled = True
cmdAlterarPF.Enabled = True
End Sub

Private Sub CmdExcluirPF_Click()
Dim resp
resp = MsgBox("Deseja realmente excluir os dados?!", vbQuestion + vbYesNo, "Exclusão")
If resp = vbYes Then
Comando = "delete * from tb_Func where RM=" & txtREG_FUNC
banco.Execute (Comando)
MsgBox ("Exclusão realizada com sucesso!"), vbInformation + vbOKOnly, "Sucesso ao Excluir!"
End If
LimparPF
cmdGravarPF.Enabled = True
cmdConsultar.Enabled = True
cmdAlterarPF.Enabled = False
cmdExcluir.Enabled = False
txtREG_FUNC.Enabled = True
End Sub

Private Sub cmdRemissiva_Click()
Dim resp
resp = MsgBox("Deseja abrir o relatório para impressão da Ficha Remissiva?", vbQuestion + vbYesNo, "Ficha Remissiva")
If resp = vbYes Then
DoCmd.OpenReport "Remissiva", acViewPreview
Else
DoCmd.OpenReport "Remissiva", acViewReport
End If
End Sub
Private Sub cmdSairPF_click()
Dim resp
resp = MsgBox("Deseja sair do formulário?", vbQuestion + vbYesNo, "Sair")
If resp = vbYes Then
DoCmd.Quit
Else
txtREG_FUNC.SetFocus
End If
End Sub

Private Sub Form_Load()
fSetAccessWindow (1)
txtREG_FUNC.Enabled = True
txtREG_FUNC.SetFocus
cmdGravarPF.Enabled = True
cmdConsultarPF.Enabled = True
cmdAlterarPF.Enabled = False
cmdExcluirPF.Enabled = False
cmdSairPF.Enabled = True
Conecta
End Sub

Private Sub cmdLimparPF_click()
LimparPF
End Sub
Sub LimparPF()
txtREG_FUNC = Empty
txtRD_PF = Empty
txtNOME_PF = Empty
cmbCARGO = Empty
txtDATA_NASC_PF = Empty
cmbNATURALIDADE_PF = Empty
txtRGPF = Empty
txtCPF = Empty
cmbESTADO_PF = Empty
txtENDERECO_PF = Empty
cmbBAIRRO_PF = Empty
txtCIDADE_PF = Empty
txtTEL1_PF = Empty
txtTEL2_PF = Empty
txtTEL3_PF = Empty
cmbTURNO = Empty
txtENSINO = Empty
cmbSERIE = Empty
cmbTURMA = Empty
txtNUM_CH = Empty
txtDATA_MAT = Empty
txtOBS = Empty
txtREG_FUNC.SetFocus
End Sub

teste por favor;

StrSQL = "Insert into tb_Func (REG_FUNC, NOME_FUNC, CARGO, DATA_NASC_PF, CPF, RG, ENTRADA, ENTRADA_ALMOCO, SAIDA_ALMOCO, SAIDA, ENTRADA_HTP, SAIDA_HTP, PERIODO," _
& " [E-MAIL], TEL_1, TEL_2, TEL_3, ENDERECO, BAIRRO, CIDADE, CEP, SERIE, TURMA) VALUES('" & Me.txtREG_FUNC & "','" & Me.txtNOME_FUNC & "'," _
& "'" & Me.cmbCARGO & "', " & IIf(Not IsDate(Me.txtDATA_NASC_PF), "Null", "'" & Format(Me.txtDATA_NASC_PF, "dd/mm/yyyy") & "'") & ",'" & Me.txtCPF & "','" & txtRG & "'," _
& "'" & Me.cmbEntrada & "','" & Me.cmbENTRADA_ALMOCO & "','" & Me.cmbSAIDA_ALMOCO & "','" & Me.cmbSAIDA & "','" & Me.cmbENTRADA_HTP & "','" & Me.cmbSAIDA_HTP & "'," _
& "'" & Me.cmbPERIODO & "','" & Me.txtEMAIL & "','" & Me.txtTEL_1 & "','" & Me.txtTEL_2 & "','" & Me.txtTEL_3 & "','" & Me.txtENDERECO & "','" & Me.cmbBAIRRO & "'," _
& "'" & Me.cmbCIDADE & "','" & Me.txtCEP & "','" & Me.cmbSERIE & "','" & Me.cmbTURMA & "')"

Valeu João, funcionou perfeitamente!
Era só colocar os "[]" em torno do E-MAIL?
Tem que colocar por causa do hífen?
Valeu a dica. Mais virão com a construção do Banco.
Estou aprendendo muito aqui neste fórum.
Deus os abençoe!

Obrigado pelo retorno o forum agradece.

Sim tem de colocar sempre os colchetes e deve utilizar o Me. para reconhecer diretamente o controle ativo do seu formulario.

Faltou o Resolvido, desta vez eu coloco.

Desculpe João, mas não sei onde coloca o resolvido.
Grato.

Tranquilo.

Do lado direito, onde você faz o enviar na resposta, tem lá um botão [Resolvido]