ERRO AO CANCELAR INCLUSAO!!!

ALLAN.UNIODONTO 28/11/2006 12:34:16
#186751
Boa tarde... Olha eu novamente cheio de dúvidas...
Segue em anexo um projeto de cadastro de clientes... ele funciona normalmente quando incluo, excluo ou altero um cadastro, porém, se apos eu clicar no toolbar (no ícone de carta), que refere-se a uma exportação de dados, eu tentar incluir um contato e resolver clicar em cancelar, ocorre um erro... Alguém pode me ajudar?
Obrigado mais uma vez antecipadamente...
HUGOSSOUZA 28/11/2006 12:56:35
#186762 Resposta escolhida
esse erro ocorre pq na função que você usa para pegar os emails para exportar vc usa o mesmo RS que abriu no começo e define só o campo email nesse select.
ai qdo vc vai usar esse Rs na outra função não tem todos os campos.
tenta criar um recordset para cada operação que você for executar.
ai você não tem mais esses problemas.


da uma olhada nesse exmplo.

            Dim EMails As String, F As Integer
            
            Dim rsEmail As ADODB.Recordset
            Set rsEmail = New ADODB.Recordset
            Dim mSQL As String
            
            mSQL = "SELECT EMail FROM tblagenda"
            rsEmail.Open mSQL, conn, adOpenStatic, adLockReadOnly
                        
            're.Close
            're.Open "SELECT EMail FROM tblagenda"
            Do While Not rsEmail.EOF
                EMails = EMails & rsEmail("EMail") & "; "
                rsEmail.MoveNext
            Loop

            F = FreeFile

            Open App.Path & "\EMails.txt" For Output As #F
            Print #F, EMails;
            Close #F

            MsgBox "E-Mails exportados com sucesso para o arquivo: " & vbCrLf & App.Path & "\EMails.txt", vbInformation
            rsEmail.Close
            Set rsEmail = Nothing
ALLAN.UNIODONTO 28/11/2006 14:14:22
#186770
Vlw hugo, Obrigado... funcionou perfeitamente. Vc é fera...
Tópico encerrado , respostas não são mais permitidas
Voltar