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

Mcomando

[VB6] – Como apagar um campo Data num Form? [Resolvido]

7 mensagens neste tópico

Tenho um campo no Access que formatei:

“Tipo Dados: Data/Hora”

“Formatar: Data Abreviada”

(Não quero utilizar nele um campo Texto que depois convertia para Data.)

Quando utilizo este campo num Form do VB6 e pretendo apagar essa data de modo que o campo fique vazio,  dá-me:

“Erro Conversão do Tipo de Dados”. A Ajuda diz que é o erro 524.

... e não permite eliminá-lo. Só trocar por outra data.

Sou um aprendiz, e preciso da ajuda dos mestres, p.f..

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

..porque secalhar nao defenis-te bem o campo na base dados .. se calhar tens de por para aceitar campos que sejam "NULL" e se calhar na base dados tens "IS NOT NULL" , se tens , depois se esse campo ficar em branco dá esse erro.. penso eu que seja isso..

..

.... se nao mostra o que fizest

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

..porque secalhar nao defenis-te bem o campo na base dados .. se calhar tens de por para aceitar campos que sejam "NULL" e se calhar na base dados tens "IS NOT NULL" , se tens , depois se esse campo ficar em branco dá esse erro.. penso eu que seja isso..

..

.... se nao mostra o que fizest

O problema é que não sei qual o código que devo pôr nesse campo. Na BD de Access, na estrutura, não dá para meter IS Not Null, então que fazer? No Access como tenho Não Necessário, aceita apagar e ficar em branco, mas no VB não.

Outra coisa: eu programa por objectivos (Forms) e não com a programação dos mestres, porque ainda lá não cheguei.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

especifica melhor o que pretendes fazer.. s.f.f

Já "parti muita pedra" mas ainda não cheguei a conseguir o meu intento.

O único local que eu vejo onde posso meter um código, é no respectivo campo.

Escrevi vários códigos, mas o que segue, é aquele que quase permite limpar o

campo, mas fica 0:00:00. Não sei que fazer. Se puderes dá uma ajuda:

Private Sub CmdUpdate_Click()
    Dim DataErro As Date
    DataErro = (Data1.Recordset.Fields("EscDatAdm1"))
    If (Data1.Recordset.Fields("EscDatAdm1")) = ("  / /   ") Then DataErro =  Empty
    Data1.Recordset.Fields("EscDatAdm1") = DataErro
    Data1.Recordset.Edit
    Data1.Recordset.Update
End Sub

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Utilizei as três primrias linhas neste código GotFocus:

Private Sub Text20_GotFocus()
    Data1.Recordset.Edit
    Data1.Recordset!EscDatAdm1 = Empty
    Data1.Recordset.Update
    Text20.SelStart = 0
    Text20.SelLength = Len("" & Text20)
End Sub

:(

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