[Resolvido]Valor padrão em registros anteriores

A paz de Deus para todos.

Pesquisei nos tópicos relacionados a formulários e não encontrei solução, por isso, apelo mais ao Maximo. Se alguém puder me ajudar, fico muito feliz e agradecido.

Tenho em um formulário vários campos (V_R_1 a V_R_10) a serem preenchidos com valores pagos pelos clientes.

Outro campo (Recebido) deve receber esses valores somados, conforme os pagamentos são efetuados.

Coloquei "0" como valor padrão para os campos V_R)_1 a V_R_10.

Isso vai funcionar para os novos registros, mas, como fazer valer também para os registros já existentes??

Não segue o BD (320 Kb), pois ao tentar enviá-lo, deu a mensagem: "Não é possível enviar o arquivo : o espaço total de armazenamento foi ultrapassado. (Espaço restante : 5 Kb)".

Deus abençoe a todos.

posta pelo OnDrive ou Dropox.

A paz de Deus para todos.

Hoje foi por aqui.

Deus nos abençoe.

Olá Pedro

Copie e cole esse código na propriedade  No Atual do Formulário:

Código:


Dim i As Double

If Me.NewRecord = False Then ' se não for um registro novo
   For i = 0 To Me.Count - 1 'irá varrer todos os controles do formulário
           If Me(i).Tag = "t" Then ' se a propriedade marca é = t
              If IsNull(Me(i)) Then Me(i).Value = 0
           End If
   Next i
End If


Então coloque na propriedade Marca (a última na folha de propriedades) a letra "t" sem aspas.

Você pode segurar a tecla Shift e ir selecionando todos os controles ( de V_R_1 a 10) e então digitar a letra t .

[ ]'s

Noob

A paz de Deus para todos.

Funcionou perfeitamente, valeu a pena esperar.

Obrigado por disponibilizar seu tempo e conhecimento com nós, os que nada sabem.

Deus nos abençoe.

Sempre digo ninguém nasce sabendo de tudo.

Hoje você está aprendendo, amanhã estará ensinando.

Valeu o retorno

Boa sorte!

Noob