Estou com um problema simples mas que eu desconheço a solução,

Tenho o seguinte código:

'grava na tbMateriaisEnviados: CodEnvio, CodLocalEnvio,CodQuemEnviou, DataEnvio e
'Chama o frmSelecionaMaterial

Private Sub SelecionarMaterial_Click()
On Error GoTo Err_SelecionarMaterial_Click

    Dim db As Database  'instancia o banco de dados
    Dim rsMaterialEnviado As Recordset
    
    Set db = CurrentDb() 'abre conexao com o banco
    Set rsMaterialEnviado.Index = True
    rsMaterialEnviado.Seek "=", [CodEnvio], [CodLocalEnvio], [CodQuemEnviou], [DataEnvio]
   
    'se não achou registro duplicado para a seleçao da tela

    If Not rsMaterialEnviado.NoMatch Then
        rsMaterialEnviado.Edit
        rsMaterialEnviado![CodLocalEnvrio] = frmMateriaisEnviados.CodLocalEnvio
        rsMaterialEnviado![CodQuemEnviou] = frmMateriaisEnviados.CodQuemEnviou
        rsMaterialEnviado![DataEnvio] = frmMateriaisEnviados.DataEnvio
        rsMaterialEnviado.Update
    End If
   
    rsMaterialEnviado.Close
   
    'efetiva a atualizacao na tabela
    DoCmd.DoMenuItem acFormBar, asRecordsMenu, acSaveRecord, acMenuVer70
   
    'abre frmSelecionaMaterial
    'Dim stDocNome As String
    'Dim stLinkCriteria As String
   
    'stDocName = "frmSelecionaMaterial"
    'DoCmd.OpenForm stDocName, , , stLinkCriteria
   
Exit_frmMateriaisEnviados_Click:
    'Exit Sub

'Err_SelecionarMaterial_Click:
   ' MsBox Err.Description
    'Resume Exit_SelecionarMaterial_Click

End Sub

 

->A mensagem de erro que recebo refere-se a parte do =   Set rsMaterialEnviado.Index = True. Diz "Erro inválido da propriedade".

 

Se alguém puder me ajudar, ficar muito grata!!

 

Sabine, bom dia..

 

             Infelizmente não posso te ajudar muito, pois há muito que não trabalho com este tipo de acesso a banco, pois uso banco relacional (oracle), mas voce não teria que selecionar qual o indice a ser usado ??

Olá Sabine,

 

Você está errando em dois pontos:

 

1. Você não definiu rsMaterialEnviado, você apenas disse que ele é do tipo Recordset, mas não informou a que ele se refere. Você deve usar o método OpenRecordset:

 

    Set rsMaterialEnviado = db.OperRecordset(<Nome da Tabela>)

 

2. Index é uma propriedade que recebe uma string e não um objeto, portanto não se usa a instrução Set. Faça assim:

 

    rsMaterialEnviado.Index = "PrimaryKey"  <-- Se você for usar outro índice, mude essa string

 

Qualquer dúvida pode mandar. Ok?

um abraço,

Sandro