Prezados (as),
Possuo um formulário (Credenciamento - OS) com dois botões. Um 'Selecionar Penalidade' e outro 'Emitir Penalidade'. No evento do 'Emitir Penalidade' ele abre um relatório constando as cláusulas que ativei em caixa de seleção previamente através do evento 'Selecionar Penalidade'.
O que busco é: ao emitir a penalidade, o evento apre o form que contém as cláusulas para selecionar e desmarca todas as que foram marcadas. Estou tentando fazer isso da seguinte forma:
(Estou trabalhando o laço apenas após o Else por hora)
Só que, somente está desmarcando o primeiro registro. Como faço para o laço percorrer todos os registros do form? Já grato pela atenção de todos!
Private Sub Emitir_Penalidade_Click()
'abre relatório para emitir penalidade para esta OS
Dim F As String
F = Me.OS
DoCmd.RunCommand (acCmdSaveRecord)
DoCmd.OpenReport "Clausula Oitava Report", acViewReport, , "[OS]= '" & F & "'"
If MsgBox("Emitir Penalidade?", vbYesNo + vbInformation, "Atenção") = vbYes Then
DoCmd.PrintOut , , , , 1, 1
DoCmd.Close acReport, "Clausula Oitava Report"
'Call MsgBox("Limpar as penalidades selecionadas.")
DoCmd.OpenForm "Clausula Oitava", acNormal
[Forms]![Clausula Oitava]!Selecionar.SetFocus
Else
DoCmd.Close acReport, "Clausula Oitava Report"
'Call MsgBox("Limpar as penalidades selecionadas.")
DoCmd.OpenForm "Clausula Oitava", acNormal
Dim X As Integer
X = [Forms]![Clausula Oitava]!Código
For X = 1 To 31 Step 1
If [Forms]![Clausula Oitava]!Selecionar = True Then
[Forms]![Clausula Oitava]!Selecionar = False
End If
Next X
End If
End Sub
Possuo um formulário (Credenciamento - OS) com dois botões. Um 'Selecionar Penalidade' e outro 'Emitir Penalidade'. No evento do 'Emitir Penalidade' ele abre um relatório constando as cláusulas que ativei em caixa de seleção previamente através do evento 'Selecionar Penalidade'.
O que busco é: ao emitir a penalidade, o evento apre o form que contém as cláusulas para selecionar e desmarca todas as que foram marcadas. Estou tentando fazer isso da seguinte forma:
(Estou trabalhando o laço apenas após o Else por hora)
Só que, somente está desmarcando o primeiro registro. Como faço para o laço percorrer todos os registros do form? Já grato pela atenção de todos!
Private Sub Emitir_Penalidade_Click()
'abre relatório para emitir penalidade para esta OS
Dim F As String
F = Me.OS
DoCmd.RunCommand (acCmdSaveRecord)
DoCmd.OpenReport "Clausula Oitava Report", acViewReport, , "[OS]= '" & F & "'"
If MsgBox("Emitir Penalidade?", vbYesNo + vbInformation, "Atenção") = vbYes Then
DoCmd.PrintOut , , , , 1, 1
DoCmd.Close acReport, "Clausula Oitava Report"
'Call MsgBox("Limpar as penalidades selecionadas.")
DoCmd.OpenForm "Clausula Oitava", acNormal
[Forms]![Clausula Oitava]!Selecionar.SetFocus
Else
DoCmd.Close acReport, "Clausula Oitava Report"
'Call MsgBox("Limpar as penalidades selecionadas.")
DoCmd.OpenForm "Clausula Oitava", acNormal
Dim X As Integer
X = [Forms]![Clausula Oitava]!Código
For X = 1 To 31 Step 1
If [Forms]![Clausula Oitava]!Selecionar = True Then
[Forms]![Clausula Oitava]!Selecionar = False
End If
Next X
End If
End Sub