Como saber q o documento está pendente??

Vc tem algum campo flag?
Assim:

DATA DE EMISSAO NUMERO DE DOCUMENTO EMITIDO
19/07/2006           1000125                       FALSE

 

o flag seria o campo "emitido".

 

tem?

IF rs!doc = "Pendente"  then

     msgbox "Documento pendente"

else

     'cadastra documento

endif

vc vai ter q colocar no evento load do seu form o aviso...

Primeiro vc faz o select de documentos pendentes depois a consistência:

 

Dim RS as ADODB.Recordset

 

Set RS = New ADODOB.Recordset

 

RS.Open "Select Status From Tabela where Status = 'Pendente'", SuaConexaoADO

 

IF NOT RS.EOF Then 

    Msgbox "Há " & RS.Recordcount & " documento(s) pendentes",vbExclamation

ELSE

 

ENDIF

 

t+