Solved IF condition not Print current record (1 Viewer)

[smtazulislam]

Hello, Any help will appreciate.
this is my form

I tried to print SN-2 into 72 Record Numbers, But its printing SN-1 Record numbers 32 with Cancellation Report.
Here is code :

Private Sub cmdPrint_Click()
On Error GoTo cmdPrint_Click_Err
Me.Requery
If IsNull(Me.txtEffectiveDate) Then
    MsgBox "Please select a valid record", vbOKOnly, "Data Required"
End If

If IsNull(Me.txtCancelDate) Then
    DoCmd.OpenReport "rptAllowanceCancelation", acViewPreview, "", "[AllowanceID] = " & Me!txtAllowanceID, acWindowNormal
    DoCmd.RunCommand acCmdPrint
    Debug.Print

ElseIf Not IsNull(Me.txtCancelDate ) Then
    DoCmd.OpenReport "rptAllowance", acViewPreview, "", "[AllowanceID] = " & Me!txtAllowanceID, acWindowNormal
    DoCmd.RunCommand acCmdPrint
    Debug.Print
End If

'Tried it also    
'If IsNull(Me.txtCancelDate ) And Me.Active = 1 Then
'    DoCmd.OpenReport "rptAllowance", acViewPreview, "", "[AllowanceID] = " & Me!txtAllowanceID, acWindowNormal
'    DoCmd.RunCommand acCmdPrint
'    Debug.Print
'
'ElseIf Not IsNull(Me.txtCancelDate) And Me.Active = -1 Then
'    DoCmd.OpenReport "rptAllowanceCancelation", acViewPreview, "", "[AllowanceID] = " & Me!txtAllowanceID, acWindowNormal
'    DoCmd.RunCommand acCmdPrint
'    Debug.Print
'
'End If
    
cmdPrint_Click_Exit:
    Exit Sub

cmdPrint_Click_Err:
    MsgBox Error$
    Resume cmdPrint_Click_Exit
End Sub

 

[bob fitz]

Why do you have Me.Requery

 

[smtazulislam]

Why do you have Me.Requery

for : sometime report page is blank...

 

[bob fitz]

I believe that after you requery, the focus is set to the first record.

 

[smtazulislam]

I believe that after you requery, the focus is set to the first record.

I c, for that my data requery and began first record.
It's true. Now its work.
Thank you very much.