To search record

[puT3]

I want to create a search form for a library which contain 2 option group;1 is for searching according to keywords,exact match,first on field and phrase,another is type of searching which have different field table such as title,publication,subject,author,call number,ISBN, and any. and also a text field to enter searching.When the search button is click,the result will appear in another form line by line.Do i need to create a query?I dont know ho to create the coding,I get confuse.I am very new to this.

[NeoPa]

(1) I already ur code, at first it seem to be running eventhough a message box appear
(2) However,the next time I try it,nothing happen when I click the Search button...what is the problem?Is it the code? I do not change anything except I change the name of the button (cmdSearch) and the text box(txtFind) to match the name in the code

I try to make a new form but it still doesnt work...Any detail that u want cuz im not sure what detail it is cuz there is no error message for (2)

I fixed the error but the code do not open the [Printing Media Library] form instead a Find and Replace box appear

What I suggest you do at this point, bearing in mind the other question relating to the code as well, is to post in (copy/paste please) the code you are actually using, then expain as simply and clearly as possible, what is going wrong AT THIS TIME (to match the code posted).

If you can include both of these in a single post I will have something I can refer to and work from in one place.

[puT3]

This is the code

Private Sub cmdSearch_Click()
 
Dim strWhere As String, strField As String
 
'%F ==> Field to search on
'%E ==> Equality operator
'%V ==> Value (to search for)
 
strWhere = "[%F] Like '%V'"
 
Select Case Me.[Search Type]
 
    Case 1
        strField = "Title"
    Case 2
        strField = "Author Name"
    Case 3
        strField = "Publication Name"
    Case 4
        strField = "CallNumber"
    Case 5
        strField = "Topical Headings"
    Case 6
        strField = "ISBN/ISSN"
End Select
 
strWhere = Replace(strWhere, "%F", strField)
 
Select Case Me.[Search By]
 
    Case 1
        strWhere = Replace(strWhere, "%V", "*" & Me.txtFind & "*")
    Case 2
        strWhere = Replace(strWhere, "%V", Me.txtFind)
        strWhere = Replace(strWhere, "Like", "=")
    Case 3
        strWhere = Replace(strWhere, "%V", Me.txtFind & "*")
End Select
 
DoCmd.OpenForm "Printing Media Library", , , strWhere, acFormReadOnly
 
End Sub
 

When I click the button,a Office Find and Replace box appear

[NeoPa]

OK. Nothing obvious there.

1. Does it happen this way for every Option you select, or are there some combinations that work ok?
2. Please add the following line after line #38 of your posted code anyway. Whenever you report on this error after this you can include the results of this line with the report so I know what's been selected :
   

   Debug.Print strWhere

[NeoPa]

While you're about it, can you dump in the SQL of the query you have the form ([Printing Media Library]) bound to (and its name).

I will reformat it for you don't worry. Just dump it in.

[puT3]

While you're about it, can you dump in the SQL of the query you have the form ([Printing Media Library]) bound to (and its name).

I will reformat it for you don't worry. Just dump it in.

Sorry,I dont understand do u mean to discard it, discard it from the RecordSource of the search form or just discard the SQL in the query?

[puT3]

Another thing,why my button doesnt work even if I click it nothing happen...But before this it work

[puT3]

My button still doesnt work...why is this happen?

It work fine before (the Find and Replace box appear when i click it)

When I try to click it today,it doesnt work,nothing happen...I already try but the result still the same

[puT3]

Im sorry I cant give u any update today,cuz the button still has problem,nothing happen when i click it

[Stewart Ross]

puT3, you will have to check the On Click event of your button yourself. Posting three times that your button no longer works is not going to help you or us in this very long thread - only you will be able to check why your button does not do what you expect it to do!!

We can assist you in many ways - but not with working out for you why your button no longer clicks as it did.

Also, please post in words not in phone text; many of our readers will not understand what you write if you use such abbreviations.

-Stewart

[NeoPa]

While you're about it, can you dump in the SQL of the query you have the form ([Printing Media Library]) bound to (and its name).

I will reformat it for you don't worry. Just dump it in.

Sorry if I wasn't clear.

What I meant was to copy the SQL and post it in this thread. This will give me the opportunity to review the SQL you're ACTUALLY using at this point.

[NeoPa]

Another thing,why my button doesnt work even if I click it nothing happen...But before this it work

There's no way I can know this.

Clearly you have made some change that I'm completely unaware of.

This is why I have tried so hard to impress upon you the importance of clear and accurate communication. Without it I can't help you.

[tkip]

You seems to have the similar problem that I had before I found a solution. All the suggestions you've received so far is very good.

This is my suggestion:

(1) Create a query based on your table ('Printing Table or whatever you call it")
(2) Create a form based on your query
(3) Edit the query
- Select the query you created and click on "View" from toolbar and select "SQL View"

Then edit the SQL as follow (make sure to change the variables to suite your need. This is just an example)

PARAMETERS [Forms]![frmLibrary]![txtISBN] Long, [Forms]![frmLibrary]![txtAuthor] Long,[Forms]![frmLibrary]![txtTitle] Long;
SELECT [Your Table Name Here].*
FROM [Your Table Name]
WHERE IIf(Forms![frmLibrary]!txtISBN="",(Not [Your Table Name].[ISBN]),True)
 Or ([Your Table Name].[ISBN]=Forms![frmLibrary]!txtISBN) 
And ((Forms![frmLibrary]!txtAuthor Is Null) 
Or ([Your Table Name].Author Like "*" & Forms![frmLibrary]!txtAuthor & "*"))
And ((Forms![frmLibrary]!txtTitle Is Null) 
Or ([Your Table Name].Title Like "*" & Forms![frmLibrary]!txtTitle & "*"));
 
 

Save the SQL statements.

Then in the form you created, make some combo boxes and/or text box (whatever is appropriate for your need) in the form header. Just make sure that they are not bound to anything (unbound).

Then on the "Search" command code (VBA), add this:

Public cmdSearch_Click()
  Dim strSQL As String                  'The criteria string set in Query
    Dim lngLen As Long      
 
'Use the value from text field and match it with ISBN column from your table
    If Not IsNull(Me.txtISBN) Then
        strSQL = strSQL & "([ISBN] = """ & Me.txtISBN & """) AND "
    End If
 
'Use key word "Like" to find text anywhere in the field.
    If Not IsNull(Me.txtAuthor) Then
        strSQL = strSQL & "([Author] Like ""*" & Me.txtAuthor & "*"") AND "
    End If
 
'Use key word "Like" to find text anywhere in the field.
    If Not IsNull(Me.txtTitle) Then
        strSQL = strSQL & "([Title] Like ""*" & Me.txtTitle & "*"") AND "
    End If
 
'See if the string has more than 5 characters (a trailng " AND ") to remove.
    lngLen = Len(strSQL) - 5
    If lngLen <= 0 Then     'Nah: there was nothing in the string.
        MsgBox "No parameter(s). Please set parameter(s) and try again.", vbInformation, "No Parameter(s)!"
    Else                    'Yep: there is something there, so remove the " AND " at the end.
        strSQL = Left$(strSQL, lngLen)
    'Print Debug Info to Immediate Window (Ctrl+G).
        Debug.Print strSQL
 
    'Finally, apply the string as the form's Filter.
        Me.Filter = strSQL
        Me.FilterOn = True
    End If
 

The above will allow user to provide as many parameters as they wish to provide. You can search by key word or exact match for both the "Title" and "Author". If user type in "ISBN" number, it will return the matching record from the table in the current form. I think it is much simpler and cleaner to just display the results in the same form.

That's what I did for my database and it works just fine. I hope that helps.

[puT3]

puT3, you will have to check the On Click event of your button yourself. Posting three times that your button no longer works is not going to help you or us in this very long thread - only you will be able to check why your button does not do what you expect it to do!!

We can assist you in many ways - but not with working out for you why your button no longer clicks as it did.

Also, please post in words not in phone text; many of our readers will not understand what you write if you use such abbreviations.

-Stewart

OK...SORRY about that...

[puT3]

Sorry if I wasn't clear.

What I meant was to copy the SQL and post it in this thread. This will give me the opportunity to review the SQL you're ACTUALLY using at this point.

This is the SQL i used right at this point.

SELECT tPML.CallNumber,
       tPML.AccessionNumber,
       tPML.[ISBN/ISSN],
       tA.[Author Name],
       tPML.Title,
       tPML.[Issue/Edition],
       tS.[Topical Headings],
       tPu.[Publication Name],
       tPML.[Physical Description Area],
       tPML.[Bibliography Notes],
       tPML.CopyrightYear,
       tPr.ProviderName,
       tC.[Category Name],
       tPML.Description
 
FROM (((([Printing Media Library] AS tPML LEFT JOIN 
         Publication AS tPu
  ON     tPML.PublisherID=tPu.[Publication ID]) LEFT JOIN
         Author AS tA
  ON tPML.AuthorID=tA.AuthorID) LEFT JOIN
         Category AS tC
  ON tPML.CategoryID=tC.CategoryID) LEFT JOIN
         Provider AS tPr
  ON tPML.ProviderID=tPr.ProviderID) LEFT JOIN
         Subject AS tS 
  ON tPML.SubjectID=tS.SubjectID;

[puT3]

There's no way I can know this.

Clearly you have made some change that I'm completely unaware of.

This is why I have tried so hard to impress upon you the importance of clear and accurate communication. Without it I can't help you.

I didnt change anything from before..but never mind I try to look again what is wrong

[NeoPa]

Try one thing for me :
From Access hit Alt-F11 (to go to VBA editor window).
Hit Ctrl-G (to open and go to the Immediate Pane).
Type in the following, and explain what happens (copy / paste the displayed line if it works).

? Replace("ABCDE", "C", "*")

[puT3]

Try one thing for me :
From Access hit Alt-F11 (to go to VBA editor window).
Hit Ctrl-G (to open and go to the Immediate Pane).
Type in the following, and explain what happens (copy / paste the displayed line if it works).

? Replace("ABCDE", "C", "*")

For this,when I try a message box appear with message "The macros in this project in this are disabled.Please refer to the online help or documentation to determine how to enable macros".

I already found the solution -the problem is the macro is disabled thats why the button do not work....Everytime I open the database there is a Security Warning saying some content are disabled,I have to click option to change the settings,so I want to know how do I make it automatically enable and I do not have to change the settings whenever I open the database.

Your posted code actually work and do not have problem,if not of the disabled macro...
The [Printing Media Library] appear to show every data,so how to make it appear line by line?

TQ and Sorry to everyone....

[puT3]

You seems to have the similar problem that I had before I found a solution. All the suggestions you've received so far is very good.

This is my suggestion:

(1) Create a query based on your table ('Printing Table or whatever you call it")
(2) Create a form based on your query
(3) Edit the query
- Select the query you created and click on "View" from toolbar and select "SQL View"

Then edit the SQL as follow (make sure to change the variables to suite your need. This is just an example)

PARAMETERS [Forms]![frmLibrary]![txtISBN] Long, [Forms]![frmLibrary]![txtAuthor] Long,[Forms]![frmLibrary]![txtTitle] Long;
SELECT [Your Table Name Here].*
FROM [Your Table Name]
WHERE IIf(Forms![frmLibrary]!txtISBN="",(Not [Your Table Name].[ISBN]),True)
 Or ([Your Table Name].[ISBN]=Forms![frmLibrary]!txtISBN) 
And ((Forms![frmLibrary]!txtAuthor Is Null) 
Or ([Your Table Name].Author Like "*" & Forms![frmLibrary]!txtAuthor & "*"))
And ((Forms![frmLibrary]!txtTitle Is Null) 
Or ([Your Table Name].Title Like "*" & Forms![frmLibrary]!txtTitle & "*"));
 
 

Save the SQL statements.

Then in the form you created, make some combo boxes and/or text box (whatever is appropriate for your need) in the form header. Just make sure that they are not bound to anything (unbound).

Then on the "Search" command code (VBA), add this:

Public cmdSearch_Click()
  Dim strSQL As String                  'The criteria string set in Query
    Dim lngLen As Long      
 
'Use the value from text field and match it with ISBN column from your table
    If Not IsNull(Me.txtISBN) Then
        strSQL = strSQL & "([ISBN] = """ & Me.txtISBN & """) AND "
    End If
 
'Use key word "Like" to find text anywhere in the field.
    If Not IsNull(Me.txtAuthor) Then
        strSQL = strSQL & "([Author] Like ""*" & Me.txtAuthor & "*"") AND "
    End If
 
'Use key word "Like" to find text anywhere in the field.
    If Not IsNull(Me.txtTitle) Then
        strSQL = strSQL & "([Title] Like ""*" & Me.txtTitle & "*"") AND "
    End If
 
'See if the string has more than 5 characters (a trailng " AND ") to remove.
    lngLen = Len(strSQL) - 5
    If lngLen <= 0 Then     'Nah: there was nothing in the string.
        MsgBox "No parameter(s). Please set parameter(s) and try again.", vbInformation, "No Parameter(s)!"
    Else                    'Yep: there is something there, so remove the " AND " at the end.
        strSQL = Left$(strSQL, lngLen)
    'Print Debug Info to Immediate Window (Ctrl+G).
        Debug.Print strSQL
 
    'Finally, apply the string as the form's Filter.
        Me.Filter = strSQL
        Me.FilterOn = True
    End If
 

The above will allow user to provide as many parameters as they wish to provide. You can search by key word or exact match for both the "Title" and "Author". If user type in "ISBN" number, it will return the matching record from the table in the current form. I think it is much simpler and cleaner to just display the results in the same form.

That's what I did for my database and it works just fine. I hope that helps.

Thank You very much for your help tkip

[puT3]

However,if I search for something that do not have related data,the [Printing Media Library] will appear blank,I understand how..do u have idea to overcome this?

And in [Printing Media Library] for my [Author Name],[Category Name],[Publisher Name] and [Provider Name] is a combo box,when I search its empty,may I know why? do I need to change the control type?

[puT3]

And in [Printing Media Library] for my [Author Name],[Category Name],[Publisher Name] and [Provider Name] is a combo box,when I search its empty,may I know why? do I need to change the control type?

For this question please ignore it,I already found it.

[NeoPa]

...
Your posted code actually work and do not have problem,if not of the disabled macro...
The [Printing Media Library] appear to show every data,so how to make it appear line by line?

TQ and Sorry to everyone....

Well, that gave us all a laugh anyway :D so no problem.

If you want a way of signing your database project so that Access recognises it as safe without prompting the operator, then post a question on that. It is a completely separate question, but would be worthwhile I expect.

As to your last question, I suspect you need to set the Default View of your form to Continuous Forms, although I don't really recognise the problem from your description. Try it out, and if it doesn't solve your problem then post back explaining exactly what the symptoms of the problem are.

[puT3]

Well, that gave us all a laugh anyway :D so no problem.

If you want a way of signing your database project so that Access recognises it as safe without prompting the operator, then post a question on that. It is a completely separate question, but would be worthwhile I expect.

As to your last question, I suspect you need to set the Default View of your form to Continuous Forms, although I don't really recognise the problem from your description. Try it out, and if it doesn't solve your problem then post back explaining exactly what the symptoms of the problem are.

I already change it to Continuous Form....

I have a problem where there is multiple of same name data in the table,when I search for it,the result form [Printing Media Library] appear empty...For example,if I try to find an author with keywords 'micheal',it should appear all the data related to it and the name which have the name 'micheal' but instead, the form appear empty...It happen to several data too for Author Name (Author option button)

[puT3]

Alright...So how to make the [Printing Media Form] have a checkbox at each result and then the complete result appear on other form?

[NeoPa]

I already change it to Continuous Form....

I have a problem where there is multiple of same name data in the table,when I search for it,the result form [Printing Media Library] appear empty...For example,if I try to find an author with keywords 'micheal',it should appear all the data related to it and the name which have the name 'micheal' but instead, the form appear empty...It happen to several data too for Author Name (Author option button)

The most obvious thing that springs to mind here is your mis-spelling of 'Michael'. However, you say this is not only happening with this data but others too.

Unfortunately, yet again, you leave us with very little information to work with.

Does this problem only occur when using the "search by author" option?

[NeoPa]

Alright...So how to make the [Printing Media Form] have a checkbox at each result and then the complete result appear on other form?

Let's leave this until you have [Printing Media Form] working properly shall we.

When we are ready to get on to this, we will need an understanding of what you mean by "the complete result".

[puT3]

The most obvious thing that springs to mind here is your mis-spelling of 'Michael'. However, you say this is not only happening with this data but others too.

Unfortunately, yet again, you leave us with very little information to work with.

Does this problem only occur when using the "search by author" option?

Ooooh ok.....Thats Ok,I re-check everything again it is ok,I just mis-spell "Michael"...Sorry...and...TQ...

I want to ask another thing,if the search is not found,how to let the user know there is no data found instead of letting the [Printing Media Library] appear empty...

[puT3]

Let's leave this until you have [Printing Media Form] working properly shall we.

When we are ready to get on to this, we will need an understanding of what you mean by "the complete result".

what I mean is that in [Printing Media Library] form,only partial info of the book appear and all other details will appear on another form...

For example,if the user search for an author in [Printing Media Library] form will list the name of the author,title of the book,year published and ISBN/ISSN number,when the user click on the check box,only then the full details (the Call Number,Description,Bibliography,Publisher Name,....) of the selected check box will be display....Is this possible?

[puT3]

The reason is I want to print the result...or is there any any other way so that I can print the search result?

[NeoPa]

Ooooh ok.....Thats Ok,I re-check everything again it is ok,I just mis-spell "Michael"...Sorry...and...TQ...

I want to ask another thing,if the search is not found,how to let the user know there is no data found instead of letting the [Printing Media Library] appear empty...

When it's empty, send a message using MsgBox() then either clear the filter or revert it to another setting you may prefer (or maybe even close it if it's not required at that point). This can be done from within the Form_Open() event of [Printing Media Library] quite conveniently.

[NeoPa]

what I mean is that in [Printing Media Library] form,only partial info of the book appear and all other details will appear on another form...

For example,if the user search for an author in [Printing Media Library] form will list the name of the author,title of the book,year published and ISBN/ISSN number,when the user click on the check box,only then the full details (the Call Number,Description,Bibliography,Publisher Name,....) of the selected check box will be display....Is this possible?

Indeed it is.

You would simply open the new form (based on a table or query displaying all the info you want), passing the required record by setting and using another filter string.

[NeoPa]

The reason is I want to print the result...or is there any any other way so that I can print the search result?

A form or report can both be printed easily enough.

They are both opened in similar ways too, so nothing too complicated there.

[puT3]

Indeed it is.

You would simply open the new form (based on a table or query displaying all the info you want), passing the required record by setting and using another filter string.

Ok...But how do I do this?I dont really understand about this part "passing the required record by setting" and "using another filter string." Sorry Im on weekend break,i didnt open this for sometimes

[NeoPa]

No worries about the posting delay. We always have enough to keep us busy.

As far as showing and printing a detailed item on a form or in a report is concerned, you should be able to repeat what we did in this thread.

If you remember, the [Printing Media Library] was designed and opened in a very similar way.

If you're still confused, start off by deciding whether a form or report is what you want, then we'll go through the steps to get this done. The first step after that decision will be to design the form/report in the way similar to the instructions for [Printing Media Library].

[puT3]

Im a bit confuse,I think I would like to make a report...So,I create the report and make the record source to a query that I made for the [Printing Media Library] right? Is it ok I put the checkbox at the [Printing Media Library] now? Next,is the coding right?

[NeoPa]

Im a bit confuse,I think I would like to make a report...So,I create the report and make the record source to a query that I made for the [Printing Media Library] right?
...

This is only right if the query has all the data available that you want to display. If so, then that's good. We have saved some time.

...
Is it ok I put the checkbox at the [Printing Media Library] now? Next,is the coding right?

I would consider adding a Command Button instead. A CheckBox indicates intention to do something at some time, whereas a Command Button says "Do This Now!".

We have no coding as yet (I haven't put any in and you haven't told me about any).

[puT3]

This is only right if the query has all the data available that you want to display. If so, then that's good. We have saved some time.

I would consider adding a Command Button instead. A CheckBox indicates intention to do something at some time, whereas a Command Button says "Do This Now!".

We have no coding as yet (I haven't put any in and you haven't told me about any).

the query has all the data that I want to display....

so,is every line of result will have the command button or only one command button to indicate the chosen line?

for the coding,what is it do u need?
the reports name is [Printing Search Result],the record source is form query [QueryDef]
all data control are text box and the form is [Printing Media Library] where th report will have data from...

[NeoPa]

the query has all the data that I want to display....

Sounds good. The report simply needs to be designed in a similar way to [Printing Media Library]. It will also be opened in a similar way.

so,is every line of result will have the command button or only one command button to indicate the chosen line?

This can be done either way. If the Command Button is put in the Header or Footer section of the form, then there will only be the one. If it is put in the detail section it will duplicate for every record.

for the coding,what is it do u need?
the reports name is [Printing Search Result],the record source is form query [QueryDef]
all data control are text box and the form is [Printing Media Library] where th report will have data from...

I think maybe we need to look again at the design somewhat. Do we want a report to come from the filtered form ([Printing Media Library])? Or do we want both the filtered form and the filtered report to come from the original form ([Search Form])?

[puT3]

I think maybe we need to look again at the design somewhat. Do we want a report to come from the filtered form ([Printing Media Library])? Or do we want both the filtered form and the filtered report to come from the original form ([Search Form])?

Ok,the command button name is cmdDetail and I think I would like the report come from the filtered form...

[puT3]

Back to your post #129,I dont really know how to make the "when it's empty"...sorry i have to go back the post..

[NeoPa]

When it's empty, send a message using MsgBox() then either clear the filter or revert it to another setting you may prefer (or maybe even close it if it's not required at that point). This can be done from within the Form_Open() event of [Printing Media Library] quite conveniently.

This code simply illustrates how you would determine, on opening the form, whether or not there is any data. THIS code closes the form if there is nothing to display. Your code can be more flexible if required.

Private Sub Form_Open(Cancel As Integer)
    If Me.Recordset.EOF Then
        Call MsgBox("Uh Oh!")
        Cancel = True
    End If
End Sub

[NeoPa]

Ok,the command button name is cmdDetail and I think I would like the report come from the filtered form...

What I suggest you do at this point is put together some code that you think is right for opening the report. Remember this is triggered by your new Command Button [cmdDetail].

When you've done that, I will go over it with you. We really need to move on from my just doing all the code for you. You will never make any progress this way. You're ready to start fledging ;)

[puT3]

What I suggest you do at this point is put together some code that you think is right for opening the report. Remember this is triggered by your new Command Button [cmdDetail].

When you've done that, I will go over it with you. We really need to move on from my just doing all the code for you. You will never make any progress this way. You're ready to start fledging ;)

Ok I will try to do that...

[puT3]

the recordsource is from the query right?

the code

Private Sub cmdDetails_Click()
 
Dim strReportName As String
Dim strCriteria As String
 
strReportName = "Printing Search Result"
strCriteria = "[Title] = '" & Me![Title] & "'"
        strCriteria = "[Author Name] = '" & Me![Author Name] & "'"
        strCriteria = "[Publication Name] = '" & Me![Publication Name] & "'"
        strCriteria = "[CallNumber] = '" & Me![CallNumber] & "'"
        strCriteria = "[ISBN/ISSN] = '" & Me![ISBN/ISSN] & "'"
 
DoCmd.OpenReport strReportName, acViewPreview, strCriteria
 

[NeoPa]

This isn't too far off. Let's look at what we want to do with it.

Lines #1 to #6 and #13 are fine. We need to look at settting up the strCriteria in more detail though.

Firstly, notice that each line (#7 through #11) sets up strCriteria from scratch, effectively replacing the data on every subsequent line. This is the same as simply running line #11.

What we want to do here is to set up a long filter string with ALL of the items specified. For that we need to append (using &) one string after the other with "AND"s between them. Normally I use the Replace() function to fill out data in strings, but for this example I'll go with what you have used already.

strCriteria = "(([Title] = '" & Me![Title] & "')"
strCriteria = strCriteria & " AND ([Author Name] = '" & Me![Author Name] & "')"
strCriteria = strCriteria & " AND ([Publication Name] = '" & Me![Publication Name] & "')"
strCriteria = strCriteria & " AND ([CallNumber] = '" & Me![CallNumber] & "')"
strCriteria = strCriteria & " AND ([ISBN/ISSN] = '" & Me![ISBN/ISSN] & "'))"

Of course, the easier way to do it, assuming all you've said so far is accurate, would be to say :

strCriteria = Me.Filter

This code will be running from a form that is already set to filter by the same criteria as you need for the report. Hey Presto!

[puT3]

strCriteria = "(([Title] = '" & Me![Title] & "')"

why this code do not need to be like this code

strCriteria = strCriteria & " AND ([Author Name] = '" & Me![Author Name] & "')"

Another thing,if I want to update things,for example I want to update the date of book return...

[NeoPa]

strCriteria = "(([Title] = '" & Me![Title] & "')"

why this code do not need to be like this code

strCriteria = strCriteria & " AND ([Author Name] = '" & Me![Author Name] & "')"

Consider a typical WHERE string. It has the format :
(A) AND (B) AND (C) AND ... AND (Z)
There is always one fewer "AND" than there are criteria. Each SUBSEQUENT line (NOT the first), needs an "AND" to continue on from what is already there. Does that make sense?

Another thing,if I want to update things,for example I want to update the date of book return...

I don't understand what you're trying to say/ask here. Sorry.

[puT3]

What Im trying to ask is I want to update the table using form because now I need to add 2 new field(was asked by supervisor) which are borrowDate and returnDate in [Printing Media Library] table (which i already add to the table)....So, I want to used a form to update the date whenever the user return the book/media...Does it involve any coding?

[puT3]

Please ignore the previous question, I already find the solution...

However, Im having a problem with the previous coding.When i run it, a message box appear with this error

Run-time error '3011'
 
The Microsoft Office Access database engine could not find the object '(([Title] = 'Design for six sigma. Innovation for Enhanced Competitiveness') 
AND ([Author Name] = 'Greogry H.Watson') 
AND ([Publication Name] = 'GOAL/QPC') 
AND ([CallNumber] = '1') 
AND ([ISBN/ISSN] = '1-56781-078-x'))'. 
Make sure the object exits and that you spell its name and the path name correctly.
 

what is wrong?

the report name is [Printing Search Result] with recordsource of [QueryDef]....I want the report to have its data from filtered form [Printing Media Library]
In [Printing Media Library] it has a button name [cmdDetails] which will linked to the report when click

the coding i use is

Private Sub cmdPrintingReport_Click()
 
    Dim strReportName As String
    Dim strCriteria As String
 
    strReportName = "Printing Search Result"
    strCriteria = "(([Title] = '" & Me![Title] & "')"
    strCriteria = strCriteria & " AND ([Author Name] = '" & Me![Author Name] & "')"
    strCriteria = strCriteria & " AND ([Publication Name] = '" & Me![Publication Name] & "')"
    strCriteria = strCriteria & " AND ([CallNumber] = '" & Me![CallNumber] & "')"
    strCriteria = strCriteria & " AND ([ISBN/ISSN] = '" & Me![ISBN/ISSN] & "'))"
 
    DoCmd.OpenReport strReportName, acViewPreview, strCriteria
 

[puT3]

Another question I want to asked,is it possible to keep the old data after being update?
For example, someone lend a book at a certain e.q.23/09/08 and return it 25/09/08 then someone else lend the same book on 27/09/08...I want to keep the previous date as a history,maybe in table or report..how can i do this?

[NeoPa]

However, Im having a problem with the previous coding.When i run it, a message box appear with this error

Run-time error '3011'
 
The Microsoft Office Access database engine could not find the object '(([Title] = 'Design for six sigma. Innovation for Enhanced Competitiveness') 
AND ([Author Name] = 'Greogry H.Watson') 
AND ([Publication Name] = 'GOAL/QPC') 
AND ([CallNumber] = '1') 
AND ([ISBN/ISSN] = '1-56781-078-x'))'. 
Make sure the object exits and that you spell its name and the path name correctly.

what is wrong?
...
the coding i use is

...
    DoCmd.OpenReport strReportName, acViewPreview, strCriteria

You are missing a parenthesis. The parameters are positional. You have called it passing strCriteria as a FilterName instead of a WhereCondition.