Código para executar comandos em loop de tabela.

Olá,

eu tenho um formulário ""TabTeste" que possui os campos "codigo" e "possui".
Os valores de "codigo" vão de 1 a 4 (quatro linhas na tabela) e o valor possui é True/false
Eu quero que o meu código entre em loop e execute um comando caso o valor de "codigo" seja 1 o valor de "possui" seja true, outro comando caso o valor de "codigo" seja 2 o valor de "possui" seja true ... e nenhum comando em qualquer caso que "possui" seja falso.

O comando que eu quero executar já está pronto. Eu só preciso agora desse loop.

Algué pode me ajudar?

Acho que um IF resolve, não?

If Me.código = 1 and me.campotruefalse = true then
'fazer
Elseif Me.código = 2 and me.campotruefalse = true then
endif

etc

Ou então abra um recordset para fazer o If acima.

Oi TopBr,
obrigada pela ajuda.

Infelizmente isso q vc me passou não funciona. A ideia é exatamente essa, mas eu acho que eu não estou sabendo fazer o relacionamento correto com a tabela que eu tô querendo usar.

Da forma que vc me passou ele dá erro: uso inválido da palavra-chave me.
Eu tiro o Me e ele reclama que o objeto é obrigatório.

O que eu to fazendo de errado?
Segue o teste:

Código:

Sub CopiaTexto()

    Dim db As DAO.Database
 
    Set db = CurrentDb()
   
    If TabTeste!Codigo = 1 And TabTeste!possui = True Then
            MsgBox "Seja bem vindo!"
        ElseIf TabTeste!Codigo = 2 And TabTeste!possui = True Then
            MsgBox "Uai!"
    End If
           
End Sub

Certo,

eu finalmente consegui um contador que funcionasse com a minha tabela.
Agora a única coisa que eu quero é fazer com que ele conte de traz pra frente, pra ele adicionar os textos no word na sequencia correta:

Código:

Sub CriarMemDescritivo()

    Dim objWord As Word.Application
    Dim DocBase As Word.Document
    Dim objWordB As Word.Application
    Dim MeuDoc As Word.Document
    Dim Rng As Word.Range
    Dim db As DAO.Database
    Dim ACount As Integer
    Dim BCount As Integer
    Dim Codigo As Integer

    Dim RS As Recordset
   
    Set db = CurrentDb()
   
    Set RS = CurrentDb.OpenRecordset("TabelaTesteWord")
    If RS.RecordCount = 0 Then Exit Sub
    RS.MoveFirst
    Do While Not RS.EOF
        If RS.Fields("Codigo") = "1" Then
            If RS.Fields("possui") = True Then
            MsgBox "essa etapa vai pro mem"
            Else
            MsgBox "esse não vai pro mem"
            End If
        Else
            MsgBox "próximos passos"
        End If
        RS.MoveNext
    Loop