[Resolvido]Validação nao inseri na tabela

ola meus amigos !

Boa tarde!


Tenho um formulário onde eu aperto um botão ele valida com a data atual e nome de usuário. porem ele nao salva na tabela a data e o nome, ressaltando o formulário não esta acoplado.


esse form que postei seria somente pra teste, pois tenho outras ideias.

o que seria ?

Código:

Private Sub Comando0_Click()
If IsNull(Me.data) Then
    If MsgBox("Deseja fazer alteração?", vbQuestion + vbYesNo, "Atenção") = vbYes Then
        Me.data = Date
        Dim rs As Recordset
        Set rs = CurrentDb.OpenRecordset("select cod, dt from teste where cod=" & Me.data)
        Me.data.Enabled = False
        Me.validarnome = getUsuarioAtual()
        Me.validarnome.Enabled = False
        Me.Comando0.Enabled = False
    Else
        Me.data = ""
        MsgBox "Informação Cancelada !!!", vbInformation, "Cancel"
End If
End If
   
End Sub

Boa tarde....

Veja essa linha com calma e achará o provável erro.

Set rs = CurrentDb.OpenRecordset("select cod, dt from teste where cod=" & Me.data)

Salvo se o Cod...for a data em questão. Foi o que mais me chamou a atenção.

Silvio bom dia !


entao, seguindo suas dicas achei melhor trocar a opção de add no banco de dados, porem sem sucesso.


fiquei ate de madru ontem, tentando resolver em casa.

optei por fazer desse jeito. porem não esta lançando na tabela a data

Private Sub Comando0_Click()
Dim db As Database
Dim rs As Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("teste")

If IsNull(Me.data) Then
    If MsgBox("Deseja fazer alteração?", vbQuestion + vbYesNo, "Atenção") = vbYes Then
     
       
       rs.AddNew
       Me.data = Date
       rs("dt") = Me.data

       
       
       Me.data.Enabled = True
       Me.validarnome = getUsuarioAtual()
       Me.validarnome.Enabled = False
       Me.Comando0.Enabled = False
    Else
       Me.data = ""
       MsgBox "Informação Cancelada !!!", vbCritical, "Cancel"
End If
End If
   
End Sub

abraços

Bom dia,

Na tabela teste altere o campo dt para Data/Hora. E no código do Comando0 do form teste coloque:

Código:

Private Sub Comando0_Click()
If IsNull(Me.data) Then
    If MsgBox("Deseja fazer alteração?", vbQuestion + vbYesNo, "Atenção") = vbYes Then
        Me.data = Date
        Me.data.Enabled = False
        Me.validarnome = getUsuarioAtual()
        Me.validarnome.Enabled = False
        Me.Comando0.Enabled = False
       
        Dim rs As Recordset
        Set rs = CurrentDb.OpenRecordset("teste")
       
        rs.AddNew
            rs("dt") = Me.data
            rs("vlnome") = validarnome
        rs.Update
        rs.Close
       
    Else
        Me.data = ""
        MsgBox "Informação Cancelada !!!", vbInformation, "Cancel"
End If
End If
   
End Sub

Veja se atende.

Abraço.

cassio me atendeu sim.

uma duvida....

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tabela")


alem do rs.AddNew e rs("campo")

pra poder lancar os dados na tabela ele precisa do rs.Update e rs.Close. Se nao ele nao lança ?


qual a relação do rs.Update e rs.Close no codigo ?

abraços

Bom dia,

Sim, é necessário "atualizar" o recordset a cada interação e é esse processo que fará com que o registro seja salvo, por isso a escrita básica de um recordset de adição seria (substituindo por variáveis):

Set rs = currentdb.OpenRecordset("[TABELA]")

rs.AddNew
rs("campo") = txtCampo
rs.Update

Leia mais a respeito aqui (copiar e colar no navegador): msdn.microsoft.com/pt-br/library/office/ff821467.aspx

Já o rs.close é a forma de fechar o processo pois se voce deixa o rs aberto, ele fica consumindo espaço na memória e consequentemente causa perda de desempenho.

Abraço.

Cassio


Cara mto obrigado pelo informação. Aprendendo constantemente com vcs do forum.


Abraços


RESOLVIDO !