MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Usar comando Find no lugar do Index

    avatar
    edu0692
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 29/07/2014

    Usar comando Find no lugar do Index Empty Usar comando Find no lugar do Index

    Mensagem  edu0692 Ter 23 Jun 2015, 12:00

    Desculpe-me caso tenho errado o local do topico.

    Sou totalmente leigo no access mas vamus lá:
    Minha duvida é o seguinte:


    Tenho uma tabela com os campos cnpj > numero de parcelas > valor > datadepagamento
    no formulário visualizo como subform de consulta, pois bem, nos campos coloque um evento para duplo click abrir um formulário para alteração dos dados, dai vem o problema, eu estava usando no botão salvar deste formulario:

    If MsgBox("Confirma dados?", vbYesNo, "Parcelamento") = vbYes Then
    Set banco = DBEngine.Workspaces(0).OpenDatabase("local dos meus dados", False, False, ";pwd=senha")
    Set tabela = banco.OpenRecordset("nomedatabela")
    tabela.index = "cnpj"
    tabela.Seek "=", wcnpj, wnumerodeparcelas
    tabela.Edit
    tabela![valor] = wtotalconsolidado
    tabela![datavencimento] = wdata
    tabela![pago] = wpagamento
    tabela.Update
    tabela.Close
    banco.Close
    Form_formparcelamentos.Refresh
    MsgBox "Dados salvos com sucesso!", , "Parcelamentos"
    End If
    DoCmd.Close
    End Sub

    Só que da erro de:
    Operação não suportada por este objeto

    este erro ta no index, tem alguma possibilidade de trocar o comando index por find, e como ficaria?

    Obrigado

      Data/hora atual: Sex 29 Mar 2024, 02:51