• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

KaZ

(vb6.0) Data do controlo calendario na BD do Access! (resolvido)

2 mensagens neste tópico

Boas pessoal do pap!  :P

tou com um problema numa base de dados de uma agenda..

eu fiz a agenda de forma a clicar no dia e depois aprensentar as caixas de texto do assunto e descrisao

mas ele nao adiciona a data ao campo da BD que é se chama dia

eu ja pus o datafield para esse campo.. vou aqui postar o codigo do form em questao:

Private Sub Calendar1_Click()
    If Calendar1.Day Then
        Calendar1.Visible = False
        txtassunto.Visible = True
        txtdescricao.Visible = True
        Label1.Visible = True
        Label2.Visible = True
        imgok.Visible = False
        
        Data1.Recordset.MoveLast
        Data1.Recordset.AddNew
        txtassunto.SetFocus
        
        If txtdescricao.Enabled Then
            imgok.Visible = True
        End If
        
    End If
End Sub

Private Sub Form_Load()
    Data1.DatabaseName = App.Path & "\bd197.mdb"
End Sub

Private Sub imgok_Click()
     
    Data1.Recordset.Update
    Data1.Refresh
    Data1.Recordset.MoveLast
End Sub

Private Sub imgsair_Click()
    Unload Me
    frmPrincipal.Show
End Sub

desde ja agradeço a ajuda

cump's  :hmm:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

pronto aqui está o codigo de novo, mas agora ja funciona.. a soluçao até era facil..

atençao que é apenas uma hipotese entre outras...

Private Sub Calendar1_Click()

       

    If Calendar1.Day Then

        Calendar1.Visible = False

        txtassunto.Visible = True

        txtdescricao.Visible = True

        Label1.Visible = True

        Label2.Visible = True

        txtdia.Visible = False

        Label3.Visible = False

        imgok.Visible = False

       

        Data1.Recordset.MoveLast

        Data1.Recordset.AddNew

        txtassunto.SetFocus

       

        If txtdescricao.Enabled = True Then

            imgok.Visible = True

        End If

       

    End If

End Sub

Private Sub Form_Load()

    Data1.DatabaseName = App.Path & "\bd197.mdb"

    Calendar1.Value = (Date$)

End Sub

Private Sub imgok_Click()

    txtdia.Text = Calendar1.Value

    Data1.Recordset.Update

    Data1.Refresh

    Data1.Recordset.MoveLast

End Sub

Private Sub imgsair_Click()

    Calendar1.Value = (Date)

    Unload Me

    frmPrincipal.Show

End Sub

fiquem bem, obrigado na mesma.. cumps :-)

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora