QUAL E O ERRO ????

USUARIO.EXCLUIDOS 16/03/2005 02:19:42
#73154
AbreStrinConexao
With rsRecordset
strSQL = "SELECT codigo from Ocorrencias where codigo = " & Trim(atxtCodigo)
.Open strSQL, cn, adOpenKeyset, adLockOptimistic
If .EOF Then
.AddNew



!Codigo = atxtCodigo.Text
!dt = atxtData.Text ********* trava aqui
!inicio = Trim(atxtInicio.Text)
!fim = Trim(atxtFim.Text)
!descricao = txtDescricao.Text
!solucao = txtSolucao.Text
!analista = atxtAnalista.Text
!operador = atxtOperador.Text
End If
.Update

Pessoal toda vez que executo o programa ele trava na hora da data e me da a seguinte mensagem:
"Item cannot be found in the collection correspondding to the requested name or ordinal ".
Alguem pode me falr pq está dando essa mensagem ja revirei tod meu BD e nada muda.
Grato Até +
GIOVANI.ARRUDA 16/03/2005 02:28:29
#73155
Dê uma conferida no nome dos campos
RO.DRIGOSG 16/03/2005 07:16:22
#73156
O nome do seu campo data do seu formulario esta diferente do campo data do seu Banco de dados.

Um abraço!
RO.DRIGOSG 16/03/2005 07:27:21
#73157
Desculpe,

Coloquei que fosse o campo data mas pode ser qualquer campo, então verifique todos.

Um abraço.
WEBMASTER 16/03/2005 09:06:18
#73167 Resposta escolhida
Tente isso,

Citação:

With rsRecordset
strSQL = "SELECT * from Ocorrencias where codigo = " & Trim(atxtCodigo)
.Open strSQL, cn, adOpenKeyset, adLockOptimistic
If .EOF Then
.AddNew



!Codigo = atxtCodigo.Text
!dt = atxtData.Text ********* trava aqui
!inicio = Trim(atxtInicio.Text)
!fim = Trim(atxtFim.Text)
!descricao = txtDescricao.Text
!solucao = txtSolucao.Text
!analista = atxtAnalista.Text
!operador = atxtOperador.Text
End If
.Update

Tópico encerrado , respostas não são mais permitidas
Voltar