[Resolvido]Cadastro sem vinculaçao de Tabela

E aí pessoal, seguinte. Eu tenho um formulario de cadastro sem vinculaçao com a tabela, somente a parte de vba, e estou efetuando o cadastro, criei o botao de gravar, coloquei a macro no evento ao clicar e quando executo ele nao dá erro nenhum, mas nao inclui na tabela. Alguem pode ajudar?

Segue o codigo do botao Gravar.

Private Sub Gravar_Click()
If IsNull(txtdata) Then
MsgBox "Preencha o campo por favor!", vbInformation, "Alerta"
DoCmd.CancelEvent
End If

If IsNull(txtQuant) Then
MsgBox "Preencha o campo por favor!", vbInformation, "Alerta"
DoCmd.CancelEvent
End If

Call Set_Global_ID

Dim dbs As DAO.Database
Dim rst1 As DAO.Recordset
Set dbs = CurrentDb


CurrentDb.Execute "INSERT INTO T001_Reclamacoes_de_qualidade(T001_Data, T001_Quantidade) VALUES (#18/02/2012# , " & txtQuant & ");"
If IsNull(txtdata) Then
MsgBox "Não há dados para salvar!", vbInformation, "Salvar - Cadastro"

Else
DoCmd.Save
If Me.Dirty Then
MsgBox " Resgistro Cadastrado com Sucesso!", vbInformation + vbOKOnly, "Confirmação!"
Me.Refresh
DoCmd.GoToRecord , , acNewRec
End If
End If
End Sub



Agradeço desde já

Quer tentar, simplificando e acertando as instruções no seu código ?

Então testa ae;

Código:



Private Sub Gravar_Click()
Dim dbs As DAO.Database
Dim rst1 As DAO.Recordset
Set dbs = CurrentDb

    If IsNull(Me.txtData) Or IsNull(Me.txtQuant) Then
        MsgBox "Preencha o campo por favor!", vbInformation, "Alerta"
        Exit Sub
    Else
        Call Set_Global_ID
        dbs.Execute "INSERT INTO T001_Reclamacoes_de_qualidade (T001_Data, T001_Quantidade) VALUES (#" & Me.txtData & "# , " & Me.txtQuant & ");"
End If

    If Me.Dirty Then
        MsgBox " Resgistro Cadastrado com Sucesso!", vbInformation + vbOKOnly, "Confirmação!"
        Me.Refresh
        DoCmd.GoToRecord , , acNewRec
    End If

End Sub


Opa JPaulo, nao deu certo! Coloquei um Breakpoint do if de confirmaçao de cadastro e passei o mouse em cima dele, ele me mostra Me.Dirty=False, que nao efetuou o cadastro e só.
Tentei forçar algum erro mais logico e consegui....ele nao está conseguindo cadastrar o campo cod que nao coloquei no Insert porque é auto numeraçao e pelo que percebi ele nao está conseguindo gerar.

Obrigado pela Ajuda

Amigo vc poderia fazer assim:

Private Sub Gravar_Click()

Dim rst1 As DAO.Recordset
Set rst1 = CurrentDb.OpenRecordset("Sua tabela")

If IsNull(Me.txtData) Or IsNull(Me.txtQuant) Then
MsgBox "Preencha o campo por favor!", vbInformation, "Alerta"
Exit Sub
Else

If MsgBox("Deseja realmente gravar?", vbYesNo, "Atenção - Gravar") = vbYes Then

rst1.AddNew
rst1("Data") = txtData
rst1("Quantidade") = txtQuant
rst1.Update
MsgBox " Resgistro Cadastrado com Sucesso!", vbInformation + vbOKOnly, "Confirmação!"
Me.Undo
rst1.Close
Set rst1 = Nothing
txtData.SetFocus
End If
End Sub

É galera o dadokeys90 matou a charada.
Funcionou, ele está conseguindo atribuir um novo valor ao cod. O Esquema foi o rst1.AddNew e o rst1.Update para a inserção.


Obrigado dadokeys90 e a todos que ajudaram.
Valeu

Obrigado vc. O forum agradeçe!