Preencher campo de formulário utilizando a propriedade marca

Pessoal, se alguém puder me ajudar com o código abaixo, agradeço muito! Não está preenchendo com os valores corretos, quando rodo a rotina os campos do formulário retornam zero.

Código:


Private Sub Comando220_Click()
Dim d As Database
Dim tb As Recordset
Dim ctr As control

On Error GoTo erro

Set d = CurrentDb
Set tb = d.OpenRecordset("custos")

For Each ctr In Me.Controls
If ctr.Tag > 0 Then
        tb.MoveFirst
        Do Until tb.EOF
            If tb!cod_par = ctr.Tag Then
            ctr.Value = tb!custo_t
            Else
            ctr.Value = 0
            End If
        tb.MoveNext
        Loop
End If
Next ctr
        
erro:
Resume Next
GoTo sair

sair:
d.Close
tb.Close
Exit Sub


End Sub


Boa tarde,

Segundo o código a condição abaixo não está sendo atendida:

If tb!cod_par = ctr.Tag Then
ctr.Value = tb!custo_t
Else
ctr.Value = 0

Verifique como e quais valores estão sendo atribuídos aos controles.

Oi Cleverson, obrigada!

Eu inseri na propriedade marca de alguns campos do formulário o mesmo valor do campo código de custos da tabela custos. Fico com dúvida se estou referenciando o control corretamente. Control.tag retorna ao valor inserido na propriedade marca?

Abraço

Boa noite,

Se puder postar a parte do BD, fica mais fácil para todos ajudarem.

ok, estou enviando.... Desde já agradeço.

Boa tarde Claudia,


Ainda não consegui entender o que pretende com esse código.

Poderia mandar mais detalhes sobre o código e formulário orçamento e seu sub formulário.

Não sei se é melhor caminho....
1-Tenho uma tabela custos com o valor atualizado dos centros de custo, que serão atualizados de tempos em tempos e não tem relação com a tabela de orçamentos.
2-Tenho um formulário orcam_form e um subformulário orcam_det_form, que irão receber os dados para povoar as respectivas tabelas, orcam_tb e orcam_det_tb.
3-Decidi inserir como campos na tabela orcam_det_tb os centro de custos na tabela custos, um a um.
4-Preciso que os valores de cada centro de custo da tabela custos, sejam carregados no formulário orçamentos. Para isso utilizei o parâmetro marca do campo de formulário da tabela orçamentos com o mesmo valor do campo chave primária da tabela custos "cod_par" em cada centro de custos da tabela orçamentos.

Deu para entender? Está muito confuso?

Boa noite Cláudia,

Bem pelo que estou vendo acredito que, minha opinião pessoal, devamos rever a modelo de dados(modelagem).

Assim que finalizar te aviso em breve.

Olá,

Se ainda estiver procurando uma solução, tente o seguinte:

Código:

Private Sub Comando220_Click()
Dim d As Database
Dim tb As Recordset
Dim ctr As control

On Error GoTo erro

Set d = CurrentDb
Set tb = d.OpenRecordset("custos")

For Each ctr In Me.Controls
If ctr.Tag <> "" Then
        tb.MoveFirst
        Do Until tb.EOF
            If CStr(tb!cod_par) = ctr.Tag Then
                ctr.Value = tb!custo_t
                Exit Do
            Else
                ctr.Value = 0
            End If
            tb.MoveNext
        Loop
End If
Next ctr
        
erro:
Resume Next
GoTo sair

sair:
d.Close
tb.Close
Exit Sub


End Sub

Oi, muito obrigada .... ainda não consegui fazer funcionar.... Vou tentar...

Funcionou perfeitamente obrigadissimo Claudio!!!!!!!!!!!!!!

Código:

Private Sub Comando220_Click()
Dim d As Database
Dim tb As Recordset
Dim ctr As control

On Error GoTo erro

Set d = CurrentDb
Set tb = d.OpenRecordset("custos")


For Each ctr In Me.Controls
If ctr.Tag <> "" Then
        tb.MoveFirst
        Do Until tb.EOF
            If CStr(tb!cod_par) = ctr.Tag Then
            ctr.Value = tb!custo_t
            Exit Do
            Else
            ctr.Value = 0
            End If
        tb.MoveNext
        Loop
End If
Next ctr
       
erro:
Resume Next
GoTo sair

sair:
d.Close
tb.Close
Exit Sub

End Sub

De nada, disponha!