• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

ballkiller

[Resolvido] Problemas Com Botão Editar

5 mensagens neste tópico

Sera k alguem me pode ajudar, e urgente :P:):P

Private Sub Command8_Click()
Dim dbs As Database
Dim rsprod As Recordset

Set dbs = OpenDatabase("utentes.mdb")
Set rsprod = dbs.OpenRecordset("utente")

rsprod.Index = "nome"
rsprod.Seek "=", List1

rsprod.Edit
rsprod!cod_utente = wcod
        rsprod!nome = wnome
        rsprod!morada = wmorada
        rsprod!localidade = wlocalidade
        rsprod!nr_utente = wnr_utente
        rsprod!telefone = wtelefone
        rsprod!cod_postal1 = wcod_post1
        rsprod!cod_postal2 = wcod_post2
        rsprod!cod_postal3 = wcod_post3
        rsprod!contribuinte = wcontribuinte
        rsprod!observações = wobservacoes
        rsprod.Update


MsgBox ("Alteração completa!"), vbInformation

rsprod.Close
dbs.Close

wcod = ""
wnome = ""
wobservacoes = ""
wcod_post3 = ""
wcod_post2 = ""
wcod_post1 = ""
wtelefone = ""
wcontribuinte = ""
wnr_utente = ""
wlocalidade = ""
wmorada = ""

End Sub

Rapido Sff

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não é por nada mas se explicitasses o erro era mais fácil.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Já reparaste que não indicas-te onde se encontra a bd ?

Set dbs = OpenDatabase("utentes.mdb")
         
                   para :

Set dbs = OpenDatabase(app.path "\utentes.mdb") ....

Nota a .mdb tem que estar na mesma pasta que o .exe

Cump

programadorvb6

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Já reparaste que não indicas-te onde se encontra a bd ?

Set dbs = OpenDatabase("utentes.mdb")
         
                   para :

Set dbs = OpenDatabase(app.path "\utentes.mdb") ....

Nota a .mdb tem que estar na mesma pasta que o .exe

Cump

programadorvb6

Obrigado :)

Ja consegui resolver

Abraço

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora