Ola galera eu mais uma vez espero q os amigos possam me ajudar queria executar este código porem queria verificar no subformulário se o campo tipo sim/não este como sim se estive executar este código tentei varias formas mais não sou tão bom em vba nem sql.
O Subformulaário e Formulario continuo.
Dim rs As DAO.Recordset
If MsgBox("Deseja Realmente dar Desconto Para Todos Parcelas?", vbYesNo, "SI-V") = vbYes Then
Dim rs4 As Recordset
Set rs4 = Me!PG_Parcela_Venda_Sub.Form.RecordsetClone
Do While Not rs4.EOF
rs4.Edit
rs4![DescontoR] = Me!Texto26
rs4.Update
rs4.MoveNext
Loop
rs4.Close
Set rs4 = Nothing
PG_Parcela_Venda_Sub.Requery
MsgBox "Alteração Efetuada com Sucesso!!! ", vbOKOnly, "SI-V"
Else
Cancel = True
Me.Undo
End If
se puderem me ajuda agradeço.
O Subformulaário e Formulario continuo.
Dim rs As DAO.Recordset
If MsgBox("Deseja Realmente dar Desconto Para Todos Parcelas?", vbYesNo, "SI-V") = vbYes Then
Dim rs4 As Recordset
Set rs4 = Me!PG_Parcela_Venda_Sub.Form.RecordsetClone
Do While Not rs4.EOF
rs4.Edit
rs4![DescontoR] = Me!Texto26
rs4.Update
rs4.MoveNext
Loop
rs4.Close
Set rs4 = Nothing
PG_Parcela_Venda_Sub.Requery
MsgBox "Alteração Efetuada com Sucesso!!! ", vbOKOnly, "SI-V"
Else
Cancel = True
Me.Undo
End If
se puderem me ajuda agradeço.