MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

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

    Usar comando Find no lugar do Index

    Compartilhe

    edu0692
    Novato
    Novato

    Respeito às Regras 100%

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

    Usar comando Find no lugar do Index

    Mensagem  edu0692 em Ter 23 Jun 2015, 16: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: Sab 03 Dez 2016, 02:26