?
Solved

3021:no current record

Posted on 2008-10-07
12
Medium Priority
?
281 Views
Last Modified: 2013-11-28
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 !!

0
Comment
Question by:jaisonshereen
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 8
  • 4
12 Comments
 
LVL 120

Expert Comment

by:Rey Obrero (Capricorn1)
ID: 22661184
post the codes in the click event of the button
0
 

Author Comment

by:jaisonshereen
ID: 22661198
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
 

Author Comment

by:jaisonshereen
ID: 22661235

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
VIDEO: THE CONCERTO CLOUD FOR HEALTHCARE

Modern healthcare requires a modern cloud. View this brief video to understand how the Concerto Cloud for Healthcare can help your organization.

 

Author Comment

by:jaisonshereen
ID: 22661240

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
 

Author Comment

by:jaisonshereen
ID: 22661243
let me know any other code u want of any functions above!
0
 

Author Comment

by:jaisonshereen
ID: 22661252
u want the query "  DoCmd.OpenQuery "T_SearchFixSearchCriteriaFix""?
0
 
LVL 120

Expert Comment

by:Rey Obrero (Capricorn1)
ID: 22661257

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
 

Author Comment

by:jaisonshereen
ID: 22661325
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
 
LVL 120

Expert Comment

by:Rey Obrero (Capricorn1)
ID: 22661393
not yet we commented two lines.

now uncomment the first one and try again

   Call Project1.Form_T_GeneralSearch.CheckForNullSearch
0
 

Author Comment

by:jaisonshereen
ID: 22661417
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
 
LVL 120

Accepted Solution

by:
Rey Obrero (Capricorn1) earned 2000 total points
ID: 22661480
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
 

Author Comment

by:jaisonshereen
ID: 22661599
Thanks dude ... thanks a million ton !!

Cheers !!
0

Featured Post

The Eight Noble Truths of Backup and Recovery

How can IT departments tackle the challenges of a Big Data world? This white paper provides a roadmap to success and helps companies ensure that all their data is safe and secure, no matter if it resides on-premise with physical or virtual machines or in the cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

As tax season makes its return, so does the increase in cyber crime and tax refund phishing that comes with it
You need to know the location of the Office templates folder, so that when you create new templates, they are saved to that location, and thus are available for selection when creating new documents.  The steps to find the Templates folder path are …
What’s inside an Access Desktop Database. Will look at the basic interface, Navigation Pane (Database Container), Tables, Queries, Forms, Report, Macro’s, and VBA code.
Do you want to know how to make a graph with Microsoft Access? First, create a query with the data for the chart. Then make a blank form and add a chart control. This video also shows how to change what data is displayed on the graph as well as form…
Suggested Courses
Course of the Month9 days, 13 hours left to enroll

762 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question