Caros colegas;
Estou de cara com um problema que nunca me ocorreu, analizem:
Tenho um BD.mdb para Contas, sem chave primária pois faço a verificação via código;
Ao gravar faço a seguinte verificação:
If Not TB.EOF Then
TB.MoveMin
Do While Not TB.EOF
If TB!CNPJ = CNPJ.Caption And TB!Fatura = Fatura.Text Then
MsgBox "Esta Fatura já esta Cadastrada! Verifique!", vbCritical, "Duplicação de Fatura."
Set TB = Nothing: Exit Sub
End If
TB.MoveNext
Loop
End If
Ou seja, permite faturas iguais desde que o CNPJ seja diferente...Até o momento de gravação corre tudo bem, mas, quando chega na hora de navegar entre os registros acabei me complicando, pois o código que eu costumo usar para a navegação é este...
ir para Próximo...
Set Nav = New ADODB.Command
Set Nav.ActiveConnection = BD
Nav.CommandType = adCmdText
Nav.CommandText = "select * from CCPagar where fatura =(select min(fatura) from ccpagar where fatura > ?)"
Nav.Parameters(0).Value = Fatura.Text
Set TB = Nav.Execute
Obs.:Quando não existem faturas iguais tudo corre bem, mas a partir do momento que se grava uma fatura com o mesmo nº (porém com outro CNPJ), começa a complicação, pois, a pesquisa sempre para na primeira e não da continuidade na navegação.
Caso alguem tenha uma solução, Por Favor, ME AJUDEM....
