Percorrer Registros do subformulário e verificar se um determinado registro já existe no formulário

Boa tarde,

Gostaria de saber como adaptar o seguinte código abaixo para percorrer todos os registros do subformulário abaixo e verificar nos campos se algum registro já existe ou foi incluído duas vezes

Dim rst As Recordset
Set rst = Me.Recordset
rst.MoveFirst
Do While Not rst.EOF
With rst

(Verificação dos campos)

.MoveNext
End With
Loop
Set rst = Nothing
End Sub

Se eu entendi bem você precisa verificar se existe repetição nos dados de um subformulário.
Esse problema é melhor resolvido se você usar o conceito de chave primária para criar a tabela que leva os dados do subformulário.
Dessa forma, o próprio sistema vai impedir de criar valores repetidos.

Na verdade eu tenho uma combox em um subformulário que seleciona refeições certo, cada refeição pertence a uma categoria, eu gostaria que ao montar o cardápio toda vez que a combox atualizasse o sistema verificasse nos registros anteriores se ja existe um prato da mesma categoria

Boas,

Segue uma forma de ver se o registro já existe.

Código:


Private Sub Num_Doc_Controlo_AfterUpdate()
    'ahteixeira 2019
    If DCount("[SeuCampo]", "SuaTabela", "[CampoComOvalorApesquisarNaTabela] = " & Me.CampoDoFormParaComparar) > 0 Then 'se maior que zero tem registos
     '... faz consulta acrescentar
    Else
     '... faz um novo registo
    End If
End Sub


Tem outra opção no tópico.

https://www.maximoaccess.com/t36066-resolvidoverifica-se-existe-registro-antes-de-gravar-um-novo


Cumprimentos,

Bruno Nunes