boas
Código - Mestre JP
Private Sub Form_Load()
'By JPaulo ® Maximo Access
Dim varArgs
Dim rst As DAO.Recordset
'Pega o ID do registro
varArgs = Me.OpenArgs
'Verifica se o ID foi passado pelo OpenArgs
If Not IsNull(varArgs) Then
'Abre o recordset
Set rst = CurrentDb.OpenRecordset("SELECT * FROM tblCadRegistoDiario WHERE IDRegistoDiario = " & varArgs, 4)
'Preenche os controles com dados do outro formulario
With rst
Me.IDRegistoDiario = !IDRegistoDiario
Me.DataInicial = !DataInicial
Me.HoraInicial = !HoraInicial
Me.HoraFinal = !HoraFinal
Me.IDLocal = !IDLocal
Me.Descricao = !Descricao
Me.DetalheDescricao = !DetalheDescricao
Me.Concluido = !Concluido
Me.Obs = !Obs
.Close
End With
Else
MsgBox "Nenhum Registo foi encontrado para visualizar!", vbExclamation
End If
End Sub
Clicando - Ok vai para o 1 Registo. Obrigado
Estou a fazer algo mal... Encontrei aqui no fórum este exemplo do mester JP e tentei adaptar no bd... mas... ao efetuar o duplo-click da erro:
Erro em tempo de execução'-2147352567 (80080009)': você não pode atribuir um valor a este objeto.Código - Mestre JP
Private Sub Form_Load()
'By JPaulo ® Maximo Access
Dim varArgs
Dim rst As DAO.Recordset
'Pega o ID do registro
varArgs = Me.OpenArgs
'Verifica se o ID foi passado pelo OpenArgs
If Not IsNull(varArgs) Then
'Abre o recordset
Set rst = CurrentDb.OpenRecordset("SELECT * FROM tblCadRegistoDiario WHERE IDRegistoDiario = " & varArgs, 4)
'Preenche os controles com dados do outro formulario
With rst
Me.IDRegistoDiario = !IDRegistoDiario
Me.DataInicial = !DataInicial
Me.HoraInicial = !HoraInicial
Me.HoraFinal = !HoraFinal
Me.IDLocal = !IDLocal
Me.Descricao = !Descricao
Me.DetalheDescricao = !DetalheDescricao
Me.Concluido = !Concluido
Me.Obs = !Obs
.Close
End With
Else
MsgBox "Nenhum Registo foi encontrado para visualizar!", vbExclamation
End If
End Sub
Clicando - Ok vai para o 1 Registo. Obrigado