3021:no current record

when i select some data in drop down box for creating a report and click the create report button . I am getting the error "3021:no current record"

but some time not... please help me !!

jaisonshereenAsked:
Who is Participating?

Improve company productivity with a Business Account.Sign Up

x
 
Rey Obrero (Capricorn1)Connect With a Mentor Commented:
no need, the problem is coming from CheckForNullSearch
modify this part of the codes






 
    'No current record
    If Err.Number = 3021 Then 
       err.clear
       Resume Next
    else                    
    ApplicationError Err.Number, Err.Description, "T_F900_GeneralSearch\CheckForNullSearch"
    Resume Exit_CheckForNullSearch
 
    end if

Open in new window

0
 
Rey Obrero (Capricorn1)Commented:
post the codes in the click event of the button
0
 
jaisonshereenAuthor Commented:
This is the code for click button :


Private Sub Cmd_rief_Click()
On Error GoTo Err_Cmd_rief_Click
 
    Call Project1.Form_T_GeneralSearch.CheckForNullSearch
    
    FixSearchCriteria
    
    DoCmd.OpenReport "T_riefReport", acViewPreview
 
Exit_Cmd_rief_Click:
    Exit Sub
 
Err_Cmd_rief_Click:
    ApplicationError Err.Number, Err.Description, "Form_T_ViewRollupPromotions\Cmd_rief_Click"
    Resume Exit_Cmd_rief_Click
 
End Sub

Open in new window

0
Get 10% Off Your First Squarespace Website

Ready to showcase your work, publish content or promote your business online? With Squarespace’s award-winning templates and 24/7 customer service, getting started is simple. Head to Squarespace.com and use offer code ‘EXPERTS’ to get 10% off your first purchase.

 
jaisonshereenAuthor Commented:

Public Sub FixSearchCriteria()
On Error GoTo Err_FixSearchCriteria
 
    CurrentProject.Connection.Execute "DELETE * FROM T_TempSearch"
    
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE * FROM T_TempSearch"
    DoCmd.OpenQuery "T_SearchFixSearchCriteriaFix"
       
Exit_FixSearchCriteria:
    Exit Sub
 
Err_FixSearchCriteria:
    ApplicationError Err.Number, Err.Description, "Module1\FixSearchCriteria"
    Resume Exit_FixSearchCriteria
    
End Sub

Open in new window

0
 
jaisonshereenAuthor Commented:

Public Sub CheckForNullSearch()
On Error GoTo Err_CheckForNullSearch
    
    'Checks general search form for any nulls
    'Dirty = False
    
    If IsNull(Me.Combo_Year) Or Me.Combo_Year = "0" Or Me.Combo_Year = "" Then Me.Combo_Year = "Year"
    If IsNull(Me.Combo_TempPromoID) Or Me.Combo_TempPromoID = "" Then Me.Combo_TempPromoID = "0"
    If IsNull(Me.Combo_EnteredBy) Or Me.Combo_EnteredBy = "0" Or Me.Combo_EnteredBy = "" Then Me.Combo_EnteredBy = "Log on"
    If IsNull(Me.Combo_PromoPeriod) Or Me.Combo_PromoPeriod = "0" Or Me.Combo_PromoPeriod = "" Then Me.Combo_PromoPeriod = "Period"
    If IsNull(Me.Combo_Location) Or Me.Combo_Location = "" Or Me.Combo_Location = "" Then Me.Combo_Location = "Location"
    If IsNull(Me.Combo_CategoryMan) Or Me.Combo_CategoryMan = "0" Or Me.Combo_CategoryMan = "" Then Me.Combo_CategoryMan = "Category Manager"
    If IsNull(Me.Combo_CatID) Or Me.Combo_CatID = "" Then Me.Combo_CatID = "0"
    If IsNull(Me.Combo_StartDate) Or Me.Combo_StartDate = "" Or Me.Combo_StartDate = "0" Then Me.Combo_StartDate = "Start Date"
    If IsNull(Me.Combo_Status) Or Me.Combo_Status = "" Or Me.Combo_Status = "0" Then Me.Combo_Status = "Status"
    If IsNull(Me.Combo_article) Or Me.Combo_article = "" Or Me.Combo_article = "0" Then Me.Combo_article = "0"
    
    'Dirty = False
    
Exit_CheckForNullSearch:
    Exit Sub
 
Err_CheckForNullSearch:
    
    'Entered an item not in the list
    If Err.Number = 2237 Then Resume Next
    
    'If a Null value after the dirty=false then error will occur
    If Err.Number = 3058 Then Resume Next
                        
    'No current record
    If Err.Number = 3021 Then Resume Next
                        
    ApplicationError Err.Number, Err.Description, "T_F900_GeneralSearch\CheckForNullSearch"
    Resume Exit_CheckForNullSearch
    
End Sub

Open in new window

0
 
jaisonshereenAuthor Commented:
let me know any other code u want of any functions above!
0
 
jaisonshereenAuthor Commented:
u want the query "  DoCmd.OpenQuery "T_SearchFixSearchCriteriaFix""?
0
 
Rey Obrero (Capricorn1)Commented:

comment the same lines like the one posted below

now select the same value from the combo that gives error and click the button

see if you will still get the error. post here the result
Private Sub Cmd_rief_Click()
On Error GoTo Err_Cmd_rief_Click
 
 '   Call Project1.Form_T_GeneralSearch.CheckForNullSearch
    
 '   FixSearchCriteria
    
    DoCmd.OpenReport "T_riefReport", acViewPreview
 
Exit_Cmd_rief_Click:
    Exit Sub
 
Err_Cmd_rief_Click:
    ApplicationError Err.Number, Err.Description, "Form_T_ViewRollupPromotions\Cmd_rief_Click"
    Resume Exit_Cmd_rief_Click
 
End Sub

Open in new window

0
 
jaisonshereenAuthor Commented:
yes its worked !!! thanks a lot

can u tell what was wrong inside the "CheckForNullSearch"

so that i can debug inside the function  and un comment it to work ?
0
 
Rey Obrero (Capricorn1)Commented:
not yet we commented two lines.

now uncomment the first one and try again

   Call Project1.Form_T_GeneralSearch.CheckForNullSearch
0
 
jaisonshereenAuthor Commented:
oops ..last time i did the same

i commented only "Call Project1.Form_T_GeneralSearch.CheckForNullSearch"

it was working fine ... !!

do i need to comment "'   FixSearchCriteria" and check again?
0
 
jaisonshereenAuthor Commented:
Thanks dude ... thanks a million ton !!

Cheers !!
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.