[Resolvido] Preencher campo sim/não automaticamente e percorrer form.

Explicação
Tenho um forms saidas que a unica coisa a fazer neste formulario é confirmar a baixa (Sim/não)Que possui os codigos de verificação.
Este form contem os campos "ingrediente" "total de saida" e o "lote", pelo codigo vai sendo anotado o lote correspondente ao lote mais velho do ingrediente
caso a qnt em estoque deste lote m nao for o suficiente e for nescessario dar mais saidas para completar a qnt solicitada emite um aviso que sera nescessario dar mais uma saido do proximo lote.Salva o lançamento E preenche os campos com os novos valores para completar a saida.
Mas se não tiver mais ingrediente em estoque cancela a saida.

exemplo
qnt de saida 1300

sai 500 do primeiro lote
mais 800 do segundo lote


este formulario é alimentado pelo forms fcodfabricacao

Este form saidas ao abrir so vai mostrar os campo que não estao marcados.

Pergunta

Como fazer um codigo para percorrer o formulario e prencher este campo Baixa(sim/não)automaticamente ao abrir o form ou em um botao

Minha intenção é deichar este formulario oculto.

http://www.esnips.com/doc/797a3e9f-e4d0-4b30-9562-23c882765660/Lotes


Desde ja agradeço pela atenção

Olhe o simples:

Private Sub SeuBotão_Click()
Dim rst As Recordset
Set rst = Me.Recordset
rst.MoveFirst
Do While Not rst.EOF
With rst
.Edit
!Baixa = -1 'sua chekbox
.Update
.MoveNext
End With
Loop
Set rst = Nothing
End Sub

JPaulo
O codigo funcionou, preencheu todas as baixas,mas não executou o codigo de verificação
que havia neste campo.Tentei algumas alterações mas em vão.


Então inseri o meu codigo de verificação dentro desta função,funcionou mas na parte que adiciona mais um lançamento na tabela caso a qnt de saida for maior que a qnt em estoque do lote mais velho não, deu erro
A função ficou assim


Private Sub btConfirmar_Click()
Dim sobra As Long

Dim rst As Recordset
Set rst = Me.Recordset
rst.MoveFirst
Do While Not rst.EOF
With rst
.Edit
!Baixa = -1 'sua chekbox
.Update

'''''''''''''''''''''''''''inicio do codigo inserido

Me.sobra = DLookup("EstoqueLote", "SobraLote", "codIngredientes=" & "codIngrediente")

If IsNull(Me.sobra) Or Me.sobra = 0 Then
MsgBox "Estoque zerado!!!Aperte Esc para cancelar saida", vbInformation, "Aviso Importante"
Cancel = True
Me.Baixa.Undo
Exit Sub
End If

Dim CodIngredientes As Integer
cmbLote = DLookup("Lote", "SobraLote", "codIngredientes=" & "codIngrediente")
With Me
.cmbLote.Requery

End With

sobra = CLng(Me!sobra)
If qntSaida > sobra Then
MsgBox "Será nescessario dar mais uma saida de " & Me.NomeIngrediente & " de (" & Me!qntSaida - Me.sobra & ") do proximo lote para completar à quantidade solicitada de (" & Me!qntSaida & ")!", 64, "Completar qnt de saida"
Me.txtmsg = "De mais uma saida de " & Me.NomeIngrediente & " de (" & Me!qntSaida - Me.sobra & ")para completar à quantidade solicitada de (" & Me!qntSaida & ")!"
Me.txsobra = Me.qntSaida - Me.sobra
Me!qntSaida = sobra
''''''''''''''''''''''''''''se apagar esta parte funciona mas nao inseri o novo lancamento
'''se deichar esta dando erro aqui
Dim Conn As ADODB.Connection
'Dim rst As New ADODB.Recordset 'cancelei esta linha declaração duplicada no escopo atual
Dim strSQL As String
Set Conn = CurrentProject.Connection
Set rst = New ADODB.Recordset
strSQL = "Select * from tbsaida"
rst.Open strSQL, Conn, adOpenKeyset, adLockOptimistic '".open" metodo ou membros de dados não encontrado
rst.AddNew
rst!DataSaida = DataSaida
rst!CodIngrediente = CodIngrediente
rst!NomeIngrediente = NomeIngrediente
rst!qntSaida = txsobra
rst.Update
rst.Close
Set rst = Nothing
'''''''''''''''''''''''''''ate aqui
Else
End If

'''''''''''''''''''''''''''''''fim do codigo inserido

.MoveNext
End With
Loop
Set rst = Nothing

End Sub

tambem não sei se eu inseri minha função de verificação no lugar correto.

Obrigado pela ajuda

Vou tentar uma coisa mais simples
O mesmo raciocinio de percorrer todo o formulario, e preencher o campo baixa.

Me.sobra = DLookup("EstoqueLote", "SobraLote", "codIngredientes=" & "codIngrediente")

se qntsaida menor que sobra
msgbox"sera nescessario dar saida manual"
baixa =false


se qntsaida maior que sobra
baixa = true

nao cosigo fazer percorrer todo o formulario.

veja o simples

Private Sub SeuBotão_Click()
Dim rst As Recordset
Set rst = Me.Recordset
rst.MoveFirst
Do While Not rst.EOF
With rst

Me.sobra = DLookup("EstoqueLote", "SobraLote", "codIngredientes=" & "codIngrediente")
If Me.sobra < Me.qntSaida Then
Me.Baixa = False

Else
If Me.sobra >= Me.qntSaida Then

Me.Baixa = True
End If
End If
.MoveNext
End With
Loop
Set rst = Nothing

End Sub

Perfeito rsrsrsrs

Só um detalhe, que eu gosto mais de utilizar

Me.Baixa = 0 'igual a False
Me.Baixa = -1 'igual a True

É que as chekbox funcionam por defeito no tipo Boolean.

Legal JPaulo
vou fazer as alterações, eu achei que -1 fosse false e 1 fosse true.
Por isso que não funcionava.

Obrigado

Tambem gosto de 0 e -1

Grande Criquio não é uma questão de gosto não, é uma questão de programar corretamente, uma vez que o VBA entende por defeito esse tipo de campo como Boolean.

Isso, grande mestre. E é por isso que disse que gosto dessa forma, por ser a mais correta, rsrsrsrs.