Jump to content

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


KaZ
 Share

Recommended Posts

Boas pessoal do pap!  😛

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  ?

Link to comment
Share on other 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 :-)

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.