Probleminha Com Datas

[brunohjoia]

Olá pessoal... To com um problema aparentemente simples que já está torrando minha paciencia... é o seguinte:

Eu tenho na minha base de dados do access 2000 uma tabela com um campo chave primária chamado "dia" do tipo Data/Hora (formato:Data Abreviada), e no meu form um Calendar Control. Toda vez que o usuário carregar o formulário, este verifica se a data atual do sistema já está em algum dos registros dessa tabela. Caso não esteja, ele adiciona a data automaticamente na tabela. Para isso uso o seguinte código:

Private Sub Form_Load()
 Adodc2.Recordset.Find ("dia=" & Date), , , 1
 If Adodc2.Recordset.EOF Then
  Adodc2.Recordset.AddNew
  lblDia.Caption = Date
  Adodc2.Recordset.Update
  Adodc2.Recordset.MoveLast
 End If
 Calendar1.Today
End Sub

Até aí tudo bem, pois funcionou certinho. O problema é que eu também quero que, quando o usuário clique numa determinada data do Calendar Control, este me leve até o lugar onde está registrada a data no banco de dados, caso ela já esteja no banco de dados, é claro. Então eu tentei usar o seguinte código:

Private Sub Calendar1_Click()
  Adodc2.Recordset.Find ("dia=" & Calendar1.Value), , , 1
  If Adodc2.Recordset.EOF Then
     mgsbox "não existe"
  End If    
End Sub

Mas quando, para efeito de teste, eu clico numa determinada data do Calendar que ainda não está no banco de dados, ao invés de aparecer a msgbox, ele altera o registro atual, mudando assim, a sua data e, quando o registro já existe ele acusa um erro, pois não podem existir registros duplicados na base de dados...

Alguém aí pode me dizer o que está acontecendo e como posso resolver isso???

[Graymalkin]

Bom, esse código não deve estar alterando o registro. Então, o problema está em outro lugar. Você ligou a propriedade DataSource do calendário ao ADODC2 e definiu o campo também? Se tiver feito isso, desfaça. E, quanto a busca, você faz daquele jeito mesmo e funciona? Não testei aqui, mas sempre precisei usar a função DateValue() ou colocar a data entre # para poder pesquisá-la.

Abraços,

Graymalkin

[brunohjoia]

Aew!!!! Funcionou!!! Mais uma vez, como sempre, você resolveu meu problema cara!!!!!!! É impressionante!!

Quanto a busca, eu nem conhecia essa função que você usa ("DateValue()"). Por enquanto eu não enfrentei nehum problema quanto à busca, e deu tudo certo com essa função que eu uso... Levando em consideração que meu VB6 está atualizado com o SP6. Mas se der algum erro, pelo menos eu já sei o que pode ser!!!

Vlw!