Hello,
I would like to use the FindRecord Method, but something does not work. I would like to find a record which contains the data I entered in an unbound textbox in the form. The action should be started by a command button. As 'Find what'-object I used '=[text61].[text].
Thanks for your help.
When trying to use FindRecord I get a "Runtime error 2406 - the command or action 'FindRecord" isn't available now". The script up to that point is as follows:
Sub Test()
Dim Connection As New ADODB.Connection
Dim Catalog As New ADOX.Catalog
Dim rstRain As New ADODB.Recordset
Dim ppn_0900 As Field
Set Connection = CurrentProject.Connection
Call rstRain.Open("0800Rain", Connection, adOpenForwardOnly)
DoCmd.FindRecord "10", , False, acDown, , acAll
Can anyone point me in the right direction?
Hello all!
Help m' help m'.....I'd like to create a form that allows the end user to fill in a field to search a table. Can't use the standard drop down box option. Needs to be open so it will search a few letters or a complete word. It needs to search the whole table.
:confused: noob :rolleyes:
I'm kind of banging my head against this one. I've searched the forums and outside, and think I have the idea, but Access say it can't find the forms.
I added an "Notepad" for end user to make notes of each clients if they wanted to. It is a pop up form, has its own table, with ClientID FK to the primary table's PK of same name.
The code I tried is
DoCmd.OpenForm "Notepad", , , Forms![Notepad]![ClientID] = ClientID Or acNewRec
It wouldn't accept an If... Else statement which makes it problematic, because I only want one note per client, so need to make sure Access check whether there is already a record that corresponds to the client, pull that one up. If there isn't any, then create a new record.
The other code I used allowed me to run and can get the ClientID, but does not create a new record when there should be a new one for a new client. It was
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenForm "Notepad"
Let Forms![notepad]![ClientID] = ClientID
End Sub
If I add an Do.cmd.Gotorecord, , acNewRec, it returns a error message that there would be a duplicate record, which is expected.
So how do I get Access to simply
1) Check if there is a note already written for so and so client then pull it up
2) if there isn't any for that client, create a new record
Hi, I am currently doing an A2 level Coursework on Information Systems and part of this embodies a database and I am have a few issues with a certain aspect of the database that I am currently building.
The three forms that concern this answer are: "Frm_Main", "Frm_Customer" and "Frm_Projects".
"Frm_Main" is the main database form with a subform ("Sub_Main") displaying the content and buttons to the right for navigation etc.
Basically, within the "Frm_Customer" form that is viewed within the subform on the "Frm_Main" form there is another subform, this time showing projects specifically for that Customer.
I want to be able to select a record from the table, click a button and the "Frm_Projects" will open within the main subform on "Frm_Main" and use FindRecord to navigate to the record that was selected.
At the moment, I have it working properly, however instead of the "Frm_Projects" openning within the subform it opens as a new form.
This is the code that I am currently using for the button on the "Frm_Customer":
Code:Private Sub openrecord_Click()On Error GoTo Err_openrecord_Click If Forms![Frm_Main]![Sub_Main]![project_subform].Form.RecordsetClone.RecordCount = 0 Then MsgBox "There are no proposed projects entered for this Client." Else DoCmd.OpenForm "project_form" DoCmd.FindRecord Forms![Frm_Main]![Sub_Main]![project_subform].Form![Project ID] End IfExit_openrecord_Click: Exit SubErr_openrecord_Click: MsgBox Err.Description Resume Exit_openrecord_ClickEnd Sub
As you can see, I have also implemented an error message to generate if there are no records entered within the table subform.
If it's any use, here is the code I am using for the buttons on the "Frm_Main" to change the source of the subform ("Sub_Main")
Code:Sub_Main.SourceObject = "Frm_Customers"
Thankyou, ever so much for your time and it will be muchly appreciated.
Scott
I've got a lady in San Francisco who has a MicroSoft Access database. She wrote some basic code to pull data from a SQL Server database into her Access database and then generate a bunch of reports.... She uses ODBC to communicate to the SQL Server database. All was working fine until this week and suddenly now when she runs the reporting job she gets a pop-up for each individual report asking her to log in fresh each time...
Has anyone experienced a similar problem or might have any idea how to fix this? Thanks in advance!
I have a form that we've been using for a while now. I want to add a multi-select box to find records on the form.
While this works great on other forms in our database, when I use the wizard on this particular form it doens't give me the "find a record on my form based on my selection option" but gives me...
"Look up values in a table or query"
and
"I will type in the values that I want"
instead. Why is the wizard not giving me the other option?
Also, my auto correct feature isn't working to stop all caps on data entry on one of my forms? How do I troubleshoot that?
Thanks,
Dianne
I 'm having trouble with a DB. One of the forms is a schuduler which the user clicks on a calendar control and a form opens up showing orders schuduled for that date and unschudule order. The user then can assign the order. Just recently whichout any DB changes the user gets kicked out of the db when they scroll down thru the records. This is happening on Multiple workstations and rebooting doesn't help. Tried deleting the record but its not a problem with a specific record scrolling thru other records with the same fields filled in works. The Detect and Repair did not work (believe it or not) The same happens on the query that the form get it data from and I tried to copy the table to make a backup but it kicks me out. I'm thinking the tbl might have to many fields (55) but the DB is only 39 MB.
View 1 Replies View RelatedI am using Access 2000
I have set some fields in a table to required
However it still allows the cell to be blank
But if I type a space into the cell, then the rule kicks in
Any help please
Hello,
I would like to insert a DCount function in an unbound textbox in a form to count all records in a query. My current code in the textbox is: '=DCount("*","Query1")'. The Query 'Query1' depends on two parameters, which has to be entered before opening the query. The result is '#Error', if 'Query1' is open or not.
Thanks for your help.
Hi,
I have a database / form with a hidden timestamp field [LastEdit]
that is filled automatically with the current time Now() when updated.
The purpose is that each time the form is opened I want it to "Goto" the last edited record.
I *think* I get around the find edit quotes because the smaller snippets below do work.
findit = DMax("[LastEdit]", "esn")
MsgBox DMax("[LastEdit]", "esn")
But the whole thing fails when I put it into one command as either one of these
DoCmd.FindRecord DMax("[LastEdit]", "esn"), , , acSearchAll
or DoCmd.FindRecord findit, , , acSearchAll
perhaps because of the quotes around the variable.
Any ideas?
Thank you,
I created a database which had to be split to allow multiple people to access it with three 'front-ends' so that different people had different levels of access. Due to security problems this database had to be moved to another location on the network. Now I have used the linked table manager to update all of the frontends so they can locate the data. Previously users would just copy their own version, appropriate to them, and use this to update; now though only one person can open the database at a time with the backend database being opened and hence locked (if that makes sense).
Any suggestions as to why this has happened, or solutions would be appreciated.
mjc65
--------------------------------------------------------------------------------
I maintain the Access databases at the hospital that I work at. Last weekend, our server went down. Computer Services got a new server and reworked the networking permissions. However, Access will no longer allow more than one user to open the database at a time. This is a problem because we always have multiple users that need simultaneous access. The default is still "Open Shared" and I checked to ensure that the databases are not being opened exclusively. However, the message that I do get when a second user tries to open the database is:
The table 'MSysAccessObjects' is already opened exclusively by another user, or it is already open through the user interface and cannot be manipulated programmatically. (Error 3008) -
I understand that this message usually comes up when I try to open a table that is already being edited elsewhere. I have the record locks set to "edited record". However, this is a system file, so I am hesitant to make changes in it unless I know exactly what I am doing. This is a problem that we have never had before but for some reason was created after our server went down. I don't know why something changed or if this table is absolutely necessary. I am unsure where to start to solve the problem.
I have a split form with many of a combobox (date, text,numbers and both).
How can displayed only the records in the datasheet based on a combo box selection?
How to build this mechanism and write a sample code?
Hi,
I have a form which has a subform. For each record, I have to assign a user, which comes from a user table. Due to the large number of users I have created a user selection form, which is designed as a popup. This form has an option group to select department, which then filters a combo box for selection of a user. On clicking a user, the window closes and that username is inserted into the form.
Since this particular user form will be used in multiple locations, I was thinking of having a global variable, which is set when a field is clicked. i.e. a variable called nameSelect. When a user is being assigned in form A, the user field is clicked, nameSelect = 3.
I was then thinking of having within the user selection form coding a Select Case function which depending on the value of nameSelect assigned the selected user to the correct location.
Is this the best method to tackle this?
I am writing an event procedure to check to see if a particular Project number exist in a recordset. I am trying to use the findfirst method and are having some problems. Here is my code.
Private Sub Command3_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset, ProjectNo As String, SqlStr As String, StrProjectNo As String
Set db = CurrentDb()
Set rs = db.OpenRecordset("tblTrackingSheetFrm", dbOpenTable)
StrProjectNo = Me![ProjectNumber]
rs.FindFirst StrProjectNo
If rs.NoMatch Then
Forms![frmProjectCriteria].Visible = False
DoCmd.SetWarnings WarningsOff
DoCmd.OpenQuery "(1)qryDeletetblTrackingSheetFrm"
DoCmd.OpenQuery "(1A)qryDeletetblTrackingSheetTMP"
DoCmd.OpenQuery "(2)qryAppendProjectTasks"
DoCmd.OpenQuery "(3)qryMaketblLaborActuals"
DoCmd.OpenQuery "(3A)qryUpdatetblTrackingSheetTMP"
DoCmd.OpenQuery "(4)qryDeletetblMaterialActualsTMP"
DoCmd.OpenQuery "(5)qryAppendEquipment"
DoCmd.OpenQuery "(6)qryAppendInventory"
DoCmd.OpenQuery "(7)qryAppendPayables"
DoCmd.OpenQuery "(8)qryAppendPurchaseOrder"
DoCmd.OpenQuery "(9)qryUpdateMaterialActuals"
DoCmd.OpenQuery "(A)qryAppendtblTrackingSheetFrm"
DoCmd.SetWarnings WarningsOn
DoCmd.OpenForm "frmTrackingSheet", acNormal
Else
MsgBox " Project worksheet already opened by another user."
rs.Close
End If
End Sub
What this does is check to see if another user has a project open and if so doesnt allow that user to access that project. I am getting the following error when I execute the procedure on the findfirst Code line.
Runtime error 3251 Operation is not supported by this object type.
Can someone take a look and see what I am doing wrong.
Any help is greatly appreciated.
Hi
I just want to ask what is the best method to deliver an application to the user. The reason of asking is that it needs user to have access software installed which is not cheap Any other method that can help, some sort of exe file that can run without access software or atleast something free...
R
Hi everyone,
I've recently begun building a database to keep track of stock at work. Nothing particularly special or difficult. I have a little bit of prior experience with Access and VB, but not heaps.
Basically, I've created a tables for parts, companies etc, and am relating all the data together.
At the moment I've made a form that allows you to enter a new part, with Part Number, Description, Category, Supplier, etc.
The complication comes when I want to create an ASSEMBLY of parts. I'd like to create an assembly (which has a lot of similarities to a part, in that it has a part number, description etc), and that assembly needs to store a list of parts that it includes. A simple assembly might include a few items, ie, a bowl of meatballs includes the bowl, a fork, the spaghetti, and 5 meatballs. A more complex assembly (a complete dinner for 5) might include 5 bowls of meatballs (a sub assembly), pepper and salt, 5 glasses and two bottles of coke.
I'm not sure how to best store this assembly data...
I can't really have a table with a finite number of "part" spots because the assemblies get quite large. I'd rather not use an ugly VB macro that stores the PartID's with quantities either, as that could get thoroughly out of hand pretty quickly.
I'm sure there must be a simple method for doing this, but without having a clue as to what it might be called I can't really look for it in help!
Any clues you guys could give me would be great.
Thanks
Col.
i have set the dropdown method of a combobox in the onfocus event
if then on the click event or exit event for the combobox i validate the entry and find error and move the focus back to the combobox the dropdown method does not appear to work.The focus has clearly been moved away from the combobox but when it returns the dropdown list does not appear
yet it always works the first time you enter the combobox within a form
has anybody else come across this problem!
any solutions
I want to have my records in my form show the latest entry, not a completely new form. The user will click on the new record button to create a new record but I want the user to be able to see the last record. Anybody know how to do this?
View 14 Replies View RelatedHello. I am quite new to Access and even newer to this forum. So please be gentle...
My question is quite simple i think. I want to display one particular record.
I have a keyboard wedge barcode scanner.. so basically a quicker and easier way to input digits or letters into a field. I also have lots and lots of CD's DVD's which i want to track and list the contents of, by simply entering the cd/dvd's barcode number istead of having to insert into my pc and browse manually.. if possible searching within results would be good too.~
think of it as a supermarket style.. input number - output entire contents... there could be hundreds or even thousands of programs or music titles,images, videos or documents.. along with any associated data, (where it is stored, who borrowed it last etc)
Can anbody outline the basics for me to implement this? remember i am quite new to Access and databases in general.
Thanks in advance, and keep up the good work on/in this forum. :)
Rob
Hi,
I want to be able to make an exact copy of an existing record in a table and then change the value of a couple of the fields before writing it to the table as a new record.
What is the best way to go about this? I guess it is possible with select, update and append queries but I'd rather do it in code.
It sounds like it should be a simple and commonly performed exercise but I can't find anything on it.
Thanks in advance!
John
quickie -- i am away from my project at the moment - but does the TransferSpreadsheet overwrite existing data ??
i have the transfer set up in to a xls ( this works) but if i change the source will it over write the transfered data (I want it to do this )??
regards
Hi guys,
I’m working on a report that I want to show on the web as a Snapshot file. I created a Macro using OutputTo method to export the report. If I type the file name and location on the Output File it works perfectly, but the problem is that I want Macros to read the file name from a combo box since the file name will change every day. Here is the code I got so far.
C:Test””&FORMS!frm_FORM2!cbo_Name&”.snp”
Every time I run this Macro I got the following message:
“The report snapshot was not created because you don’t have enough free disk space for temporary work files.”
Now!, when I type the file name to that specific location Macro does the job perfectly.
Is there any way I can get the File name from a combo box located in FORM2.
Thank you so very much in advanced. Your help is always a blessing.
Mosquetero
Getting an error on the rst.Open statement of
"Method 'Open' of object '_Recordset' failed"
I am using the same code that I have used before, just tweaked some. Earlier I had an error because the ActiveX control was not checked off for the ADODB connection.
Below is the code...any ideas? THANKS!
Dim Conn As ADODB.Connection
Dim rst As New ADODB.Recordset
Dim lg As String
Dim frmOffset As String
Dim tagnm As String
Dim sql1 As String
Set Conn = CurrentProject.Connection
frmOffset = "3. Offset Printing"
lg = "PT"
tagnm = "Label22"
sql1 = "select translation from translation where lang=" & "'" & lg & "'" & "and formname=" & "'" & frmOffset & "'" & " and tagname=" & "'" & tagnm & "'"
rst.Open sql1, Conn, adOpenKeyset, adLockOptimistic
Me.Label22.Caption = rst!translation
Hi, I want that when a value from combo box is selected, based on it the values in the text box should appear. These are all bound columns.
I have written the following code and getting as error "Run time Error 3075" syntax error "missing operator" in query operation at line - >Set rs = db.OpenRecordset(strSQL) in the following code appears. Please help.
Private Sub Assigned_To_LostFocus()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Assigned_To.SetFocus
If Assigned_To.Value > 0 Then
strSQL = "SELECT * FROM Department WHERE Assigned To = " & Assigned_To.Value
Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
If Not rs.BOF Then
Me.Text65 = rs.Fields(1) / Me.Text65 = rs("code")
Me.Department = rs.Fields(2) / Me.Department = rs("Department")
End If
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End If
End Sub