Hi.
I have two tables, both with load of info. I need to run a query, that checks data in table1 against data in table2. If it is in table two, then moves on. If it is NOT, then shows the results to me. So that i can see which ones were not there.
how do i go about that.
thanks
Alex
I've created a function to search for a string in SQL definitions:
Public Sub SearchInQueryDefs(strSearch As String)
Dim qdf As QueryDef
Dim qdfs As QueryDefs
Dim blnFound As Boolean
Set qdfs = CurrentDb.QueryDefs
For Each qdf In qdfs
blnFound = InStr(1, qdf.SQL, strSearch) > 0
If blnFound Then
Debug.Print "Searching : " & qdf.Name & "...";
Debug.Print " - found"
If vbNo = MsgBox("Found!" & vbCrLf & vbCrLf & "" & strSearch & " found in "
& qdf.Name & vbCrLf & vbCrLf & qdf.SQL & "" & vbCrLf & vbCrLf & "Click 'Yeah' to
continue search, 'Duh' to stop", vbExclamation + vbYesNo, "SearchInQueryDefs") Then
Exit Sub
End If
End If
Next qdf
MsgBox "Done searching.", vbInformation, GetAppTitle()
End Sub
Using the following statement (in the immediate window) i get the following result:
SearchInQueryDefs "Queries"
Searching : ~sq_cfrmReports~sq_clstQueries... - found
However query "~sq_cfrmReports~sq_clstQueries" doesn't exist.
It is probably a query which populates the listbox "lstQueries" in the "frmReports"
form. But that form doesn't exist in my database. I have deleted it some time ago. I
thought that Compact and Repair got rid of stuff like this.
I found the definition in the MsysObjects and with this Id also in the MsysQueries.
So my question is obvious: what is this, why is this and what can i do about it?
Thx!
I want to stop/skip appending of those records who match in main data table "MCIGMMS" on the basis [PORTCD] [IGMNO] fields in "PCIGMMS2". When Match found Msg Box appear and appending skip or stop of those records.
Can any one help me or give me code.
Regards.
SQL CODE:
INSERT INTO MCIGMMS ( PORTCD, IGMNO, IGMYY, IGMDAT, SHPANO, VSLFLT, VOYAGE, ARVDAT, SLOCCD, CNTCOD, LSTPRT, CAPTAN, SHPCMP, TOTIDX, BOTTOM, BEGIDX )
SELECT PCIGMMS2.PORTCD, PCIGMMS2.IGMNO, PCIGMMS2.IGMCY, PCIGMMS2.IGMDAT, PCIGMMS2.SHPANO, PCIGMMS2.VSLFLT, PCIGMMS2.VOYAGE, PCIGMMS2.ARVDAT, PCIGMMS2.SLOCCD, PCIGMMS2.CNTCOD, PCIGMMS2.LSTPRT, PCIGMMS2.CAPTAN, PCIGMMS2.SHPCMP, PCIGMMS2.TOTIDX, PCIGMMS2.SBOTTOM, PCIGMMS2.BEGIDX
FROM MCIGMMS RIGHT JOIN PCIGMMS2 ON MCIGMMS.IGMNO = PCIGMMS2.IGMNO;
I have a search query that searches for different results based on 3 criterior. I have set up a form so that the user can input the text into the form and then once the Submit button (that i created) is clicked the query table will be shown.
My question is:
Is it possible to have an error message box appear when i click submit and no data is returned by the search query?
I'm hoping for the message box to say "No corresponding records to your search criteria. Do you want to try again?"
Then the options given in the message box are Yes (where they should be taken back to the search form) and No (Where they are taken to another form).
How to create a message when no records are found from a form to a query in the report.
Example; Donations From Great Britain have no records
I am setting up a database to hold staff details, and would like a query to show each member of staff's total hours and FTE.
Staff name etc is in tblStaff
Staff shift details are in tblShifts linked via staffID
tblShifts will contain details of the shift worked on each day of the week, but the majority of our staff work a standard shift - e.g 8-4, 9-5. Therefore what I wanted to do was in tblStaff set a field named shiftPattern to 1 2 3 or 4. 1 indicating a custom shift, and any other number indicating a set shift defined in a separate table.
The problem I have is that my query only returns people who have details in tblShifts - regardless of their shiftPattern value. If I enter a blank record in tblShifts it will do the above as intended.
Hi there...
mY Access database short cut is giving error...like
Access datbase fiel could not be find on specified location.
When i open the database rather than from shortcut giving the same error.
But when i go into server and open there it works fine.
Please suggest
Thanks
hello ,
I want to use a wait or timer action like in my attachment file.
could someone see this and show me what I got to do?
thanks aloT!!
Hi
I am trying to import a table from a notepad doc and i get an error message " The search key was not found" Please can someone explain to me what this is about and if there is a solution for it. Does this have anything to do with size of the database beign too large?
Thanks
Avi
Hi,
I have a simple one table database which I made a few weeks ago to print letters. All was working ok until I hit record #14, I enter the client details and when I quit the database an error message appears saying 'The search key was not found in any record.' with an option to hit OK or Help buttons. If I hit OK another message box appears saying 'You can't save this record at this time.' and stating that Access has encountered an error & if I close the database I will loose any changes etc...
If I do close it, most of the data I have entered turns to chinese characters & the rest doesn't even ressemble anything close to what I have inputted.
Strangely enough records #15 & 16 work ok and the error only seems to be when I alter the data in the postcode field on record #14
Any assistance would be gratefully received
Ben
Hi!
I'm in the midst of a database where a subform 'producttotal' textbox 'txttotal' would be automatically filled with a value from the mainform combobox 'product'. my code is
Private Sub Level_AfterUpdate()
Forms!sbfproducttotal![txttotal] = Me![product].Column(1)
End Sub
However, on testing it, I get a runtime error 2450. MS Access can't find the 'sbfproducttotal' referred to.
Do you have any idea what the problem is? Any words of advice would be welcome. Thanks!
Hi,
Basically, I have a query which brings up a customers details when they enter the Name and DOB.
However, lets say they get it wrong, or don’t even type anything in…….the form just opens with a blank section.
Is there any way to make it give an alert say “No Record Found”.
Thanks
I have copied a copy of my system onto a user's computer to start using the system. However, when the user tries to open the system, all of my forms that use Date() come up with some error. Then it goes on to show me an error message saying "VeenLR3.hlp can't be found". That's actually a help file. I have copied all the files in this drive, "C:Program FilesCommon FilesMicrosoft SharedVBA" from my computer onto hers but the error still shows up.
Does anyone know what this error is all about?
Hi Folks,
This is a Combo box, which I have changed to Text Box to search records based on the PRO Number entered. This works fine but if its not find a record, the form displays the first record in the table. How can I prevent this and just show a message that this record is not found and enter again.. "
****************
Private Sub Combo143_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[PRO] = " & Str(Nz(Me![Combo143], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
****************
I have tried with the following but not working...
If Not rs.EOF Then
Me.Bookmark = rs.Bookmark
Else
msgbox("Record not found")
end if
I also want to hold control back on the box after displaying the message..
Could anyone please help..
Thanks,
binjos
We are running Access 2002 on Win2k. The database has been split into front and back ends, and synchronization occurs directly over LAN with 7 replicas. During synchronization I received a failure message "The search key was not found in any record. (Error 3709)."
I have tried several things found on Microsoft KB and other forums-- Compact and repair, removing indexes from memo fields, updated Jet and Microsoft Data Access Components-- but nothing has worked. Does anyone have any ideas on this one?
Thanks,
James
I was doing a compact and repair when I got this error message.
Now when I try to open my database all I get is this message:
"Module not found"
:eek:
Am I screwed or is there maybe possible silver bullet??
Thanks for any help
I have been using the below code for several months to export to excel. Lately I get a run-time error 53 - File not Found. I have not changed anything, so what could be causing this issue. The debugger stops on the line "FileCopy sTemplate, sOutput"
Public Function ExportRequest() As String
On Error GoTo err_Handler
Dim dbs As Database
Dim qdf As QueryDef
Dim frm As Form
' Set database variable to current database.
Set dbs = CurrentDb()
Set frm = Forms!AOSummaryReportForm
' Open QueryDef object.
Set qdf = dbs.QueryDefs("AOSummary")
' Set parameters for query based on values entered
' in AOSummaryReportForm.
qdf.Parameters(0) = Forms!AOSummaryReportForm!StartDate
qdf.Parameters(1) = Forms!AOSummaryReportForm!EndDate
' Excel object variables
Dim appExcel As Excel.Application
Dim wbk As Excel.Workbook
Dim wks As Excel.Worksheet
Dim sTemplate As String
Dim sTempFile As String
Dim sOutput As String
Dim rst As DAO.Recordset
Dim strSQL As String
Dim lRecords As Long
Dim iRow As Integer
Dim iCol As Integer
Dim iFld As Integer
Const cTabOne As Byte = 1
Const cStartRow As Byte = 2
Const cStartColumn As Byte = 1
DoCmd.Hourglass True
' set to break on all errors.....
Can't figure out why I can't create a one to many relationship between two tables:
TableA uses a composite key as its primery key (field1, field2).
The table has a unique index comprised of these keys. The index even has a name. The table also doesn't contain any duplicate information, so the fields comprising my Primary Key are unique. The table I'm joining tableA is unpopulated at this time.
TableA
FIELD1 FIELD2
99999 ABCDEFG
99999 HIJKLMNO
Any help will be greatly appreciated.
Hi,
Anyone can tell me what cause the message "The search key was not found in any record" when I try to delete a record from my table?
Appreciate your help.
Dny
Hey everyone,
Even though I'm going to feel like a moron for not knowing this I'm hoping there is a simple answer. I'm far from a master at access, and seem to be having a little trouble when it come to formatting the output of my query. I have a database made the keeps track of about 200 hundred crime reports. I want to be able to do a query that will output the 15 possible crimes as rows, and then have 4 columns which are the locations of where the crimes happened. And then for the results have how many of crime where commited there. Pretty much in an excel format (see below example). However there are some crimes that have never happened. So there are no records of them. Unfortunatly when i do my query since there are no records, they are not even listed. I need them to list the crime, and place zeros if there are none. Since this probably isn't to clear I'll put a little example below.
Data:
Robbery: 4 on campus, 5 off campus, 6 in city, 0 in apartments
Rape: 0 on cmpus, 3 off campus, 4 in city, 0 in apartments
murder: 0 on campus 0 off campus, o in city, 0 in apartments
When i do my query it looks like this
*********On Campus****Off Campus****In City
Robbery******4***********5***********6
Rape********************3 ***********4
*Notice it doesn't even list the apartments since there are no records that match, the same with murder.
I need the output to look like this:
*****On Campus *****Off Campus ***In City****apartments
Robbery****4 ************ 5********6 ********0
Rape*******0*************3********4********0
murder *****0*************0 *******0********0
Any ideas? Thanks!
I have a form / subform. The form has a memo field. I have 10,000 plus records in the Form table. Each time I make a correction in two or more of the fields, I get the error: The Search Key was not found in any record error.
For instance, I can even manually tie a many to many relationship in a join table without an error by adding a new record at the table level but I can't do this in the form. In neither place can I change the memo field more than once without this error. What resets it so I can make one more change is to Compact & Repair Database. A hassle and then some. :(
I have a database that holds hardware data. It's working fine, but there's a slight itch I'd like to scratch and I'm not sure how.
Very simply, I have a table listing printers. I have a search form with combo boxes called 'cboRoom' and 'cboDepartment'. The room and department fields in the printers table are lookups to a room table and a departments table respectivley.
The search form works fine by using the combo boxes to select a room and/or department, click search, and a query is run using the combo box selections as parameters. The query is also made to show all records if the combo boxes contain null. A form is then displayed with the query results.
Say for example, we have a room called B24. If B24 is selected in the combo box and the query run, I want a popup to appear that says 'No data with these search parameters' if there are no records containing 'B24'.
The search button (which is actually a label for design reasons) on the search form currently does nothing more than this;
Private Sub lblSearch_Click()
DoCmd.OpenForm "frmPrinters", acNormal
DoCmd.Close acForm, "frmPrinterSearch"
End Sub
'frmPrinters' is obviously using the query (qryPrinterSearch) as its recordsource. Obviously, the popup needs to appear as soon as the query has been run, but I'm not sure what code to use or where to put it...
I know I need some sort of (pseudo)
If frmPrinters.cboRooms Is Null
MsgBox "No Data"
Close frmPrinters
Open frmPrinterSearch
End If
Something like that. But obviously I need to do it for both cboRooms and cboDepartments, after the form has attempted to populate itself with data from the query (otherwise it return null values anyway I guess).
Any help with the code and where to put it much appreciated.
Regards,
Steve Swallow
A form i have gains its records from a query. I know that the number of records found is displayed down the bottom, but is it possible to have a text box displaying this, so i can choose where on the form i have it?
TIA
Dusp
I am using a query to search for records and I'd like there to be a message box that pops up on the search page if there are no records found (so the query is empty).
I'm guessing there is a simple solution since I think I just need an "If" statement checking to see if a field in the query is null or not. However, I'm not familiar with Access code and what I've tried so far does not work. Any help is greatly appreciated!
p.s. I am using Microsoft Access 1997...old school...
Hi Folks,
Apologies if this has already been covered, but I couldn't find anything...I've got a form in Access that checks a table for a combo boxes values. If the user adds a value to combo box that isn't in the table I want that record to be added to the table. The code that I've written is:
Private Sub cmbClient_NotInList(NewData As String, Response As Integer)
Dim ctl As Control
Dim db As Database
Dim ssql As String
Set ctrl = Me!cmbClient
If MsgBox("This isn't a recognised client. Do you want to add it?", vbOKCancel) = vbOK Then
Response = acDataErrAdded
ctrl.RowSource = ctrl.RowSource & ";" & NewData
ssql = "Insert into tblclient (Client) Values ('" & NewData & "');"
Set db = CurrentDb()
db.Execute (ssql)
Else
Response = acDataErrContinue
ctrl.Undo
End If
End Sub
When I test the code it appears to work, but I get an error message saying that "Characters found after end of SQL statement"
Can anyone shed any light? I can't see anything obviously wrong with the code, but I must be missing something.
Cheers.
Whilst running the code below, I get an error message that Field Underlying can not be found though it is part of the Form Test.
What is wrong?
Many thanks.
Function Command25_Click()
On Error GoTo Err_Command25_Click
Dim stDocName
stDocName = [Forms]![Test]!Underlying
DoCmd.OpenQuery stDocName
Exit_Command25_Click:
Exit Function
Err_Command25_Click:
MsgBox Err.Description
Resume Exit_Command25_Click
End Function