Solved

3021:no current record

Posted on 2008-10-07
12
272 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
  • 8
  • 4
12 Comments
 
LVL 119

Expert Comment

by:Rey Obrero
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
 

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
How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

 
LVL 119

Expert Comment

by:Rey Obrero
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 119

Expert Comment

by:Rey Obrero
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 119

Accepted Solution

by:
Rey Obrero earned 500 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

How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

Join & Write a Comment

Have you ever wanted to restrict the users input in a textbox to numbers, and while doing that make sure that they can't 'cheat' by pasting in non-numeric text? Of course you can do that with code you write yourself but it's tedious and error-prone …
I was working on a PowerPoint add-in the other day and a client asked me "can you implement a feature which processes a chart when it's pasted into a slide from another deck?". It got me wondering how to hook into built-in ribbon events in Office.
Familiarize people with the process of utilizing SQL Server stored procedures from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Micr…
With Microsoft Access, learn how to start a database in different ways and produce different start-up actions allowing you to use a single database to perform multiple tasks. Specify a start-up form through options: Specify an Autoexec macro: Us…

744 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

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now