I have a database with several tabs. On each tab is a form in datasheet view. I have a field that when clicked, will open the corresponding form in a dialog. The code used to open the dialog is: =IIf(IsNull([SalesOps_ID]),"(New)","Open") This creates an underlined Open link which, when clicked, opens the dialog.
An embedded macro is attached to this code, telling it which dialog form to open...and a bunch of other stuff I really can't explain (I'm great at stealing shamelessly from other similar projects but don't completely know what the heck I'm doing).
That said, all the other dialog forms work splendidly using this same type of embedded macro, except one very stubborn dialog form that is giving me fits! Interestingly enough, this form has a subform (all the other forms don't). The form opens, I can edit data on the main part of the form, but if I enter data in the subform, when moving to the next record, I get the error message: The identifier [Tasks].[Project ID] could not be found.
Interestingly enough, I don't have any tables, forms, queries, macros or fields that contain anything like [Tasks] or [Project ID]. If I move off the main record, then return to the record, the data in the subform does not display (however, it is in the table - just not displaying). As if that isn't interesting enough, when I open the dialog form on its own, without using the Embedded Macro from the datasheet form, all that data shows just fine and the form works like it's supposed to.I wish there was a way to simply copy all the text from the macro here, but I can't seem to figure out how in Access 2013.
I have a large table with information about different cars, called "Car Metadata". In this, each car has a unique identifier ("Car Code"), the make ("Manufacturer Name") and the model ("Short Model").
What I want to do is create a form with dropdown menus.I have a first combo box with all the makes in the Metadata table.
What I am having trouble with is that I want a second combo box underneath which would only show the models which correspond to the make selected in the first box.E.g. someone could select Ford in the top box and the second box would only show Fiesta, Focus etc.
Once it has done that I want it to be able to write the Car Codes for the records which match up to the make & model selected to a new table. Just to complicate things further, there can be multiple records with the same make and model but different Codes, I want all these multiple codes to be written to the final table.
I have created a pop-up search form with the search criteria being one unbound field. When I populate the field and click search I want it to search the records and if there is a matching record, I want it to open the data entry form with the complete record showing and available to view/edit/delete. If there is no matching record, I want a message box to appear stating that a record was not found and when you click 'ok' it opens a blank data entry form to complete a new record. I also want it to automatically close the search pop-up form.The following works great... except that the MsgBox pops up even if the record was found.
Private Sub Search_Click() On Error GoTo Err_Search_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = "MgrData"
I have a continuous form that I would like to filter with a combo-box in the forms header. The combo box is populated with the table's primary field [ID] which is an Autonumber. When I click the caret on the combo box, it provides a list of ID's but when I select one, I get this error message "Run-time error 3709, the search key was not found in any record". The code is:
Private Sub Combo 31_AfterUpdate() If Me.Combo31 & ""<> "" Then Me.Filter = "[ID]= '"& Me.Combo31 & "'" Else Me.Filter = "" End If Me.FilterOn = True End Sub
The code is a mix of someone else's and mine. Essentially the form is like a document library, based on the parameters in the form, it takes the original document that is selected by the user, then copies the file over to a central repository. When I don't pass a value over from another form using the following:
Me!AssociatedFeedback = Me.OpenArgs
Then everything works fine. Doesn't matter where I put this line of code (form open, after update, etc.) I get an MS Access error that says "Path Not Found" when you execute the "cmdSave" button.
Code: Option Compare Database Option Explicit Dim strFilePathFrom As String Dim strFileFrom As String Dim strFilePathTo As String Dim strFileTo As String Dim strFileDeskTop As String
I'm new to Access VBA and I am having a bit of trouble. I want to find the dates between 2 dates(both inputted into textboxes), when I press a button I want them dates found to be displayed in a listbox.
I am receiving the Method or data member not found error message when I attempt to add a new record in form view. I have been working in an old 2002-2003 version of Access until last week when it was converted to 2007. The old version allowed for additions just fine but now after the conversion something is wrong. The code is below. I underlined the line throwing the error message (FindFirst). Code is not my strong suit.
'Open form to new record gstrCallingForm = Me.Name strDocName = "frmNewApplicant"
I want to show/hide a button on my form.The button is for entering a new record in the table of the database.Now when i Load the form, i want to check if there are already records in the table for a specific lanID. When there are no records, the butten has to be displayed. When there are already records for that lanID the button has to be hidden.
I have found some code to tackle that, but When i use the rs.MoveLast it hides the button when there are records, but when there are no records it gives an error that there are no records found. I almost forgot to say that i use Access 2010..Here is the code that i use:
Code:
Private Sub Form_Load() Dim SQL As String Dim rs As DAO.Recordset Dim landmeterID As String landmeterID = [Forms]![MainForm]![LanIDTxt] SQL = "select * from dbo_Lan_Opleiding where Id_landmeter ='" & landmeterID & "'" Set rs = CurrentDb.OpenRecordset(SQL)
Code: Dim rs As Object Set rs = Me.Recordset.Clone rs.FindFirst "[OwnerID] = '" & Me![lstUsers] & "'" Me.Bookmark = rs.Bookmark <---- error is here for the datatype mismatch or No record found
I am not sure where to start or go about creating message box that would display "No results found" if my queries return no results. My search of the forums hasn't been fruitful.
I have created one form that has a text box and a button that works as a search function to run through the tables and displays the applicable queries. Currently, if no results are returned nothing happens. Preferably I would like a message box to display stating that there were "No results found". I would assume that the code would be associated with the "Find" button. Here is the VBA code as it stands, again, I haven't even attempted to add code for a message box.
Private Sub Find_Click() On Error GoTo Find_Click_Err
If DCount("Heading", "Service Desk Manual Query") > 0 Then DoCmd.OpenQuery "Service Desk Manual Query", acViewNormal, acReadOnly End If
I have a form (frmTimecardsDataEntry3*) that needs to requery combo boxes to narrow down the selections offered in the dropdown of each combo box.
It is a data entry form. I.e. Dataentry is set to yes.
The ClientName combo box has an after update event which requeries the matter combo box, so that the MatterName combo box dropdown only shows the matters relating to that client. This works just fine.
The MatterName combo box has an after update event which requeries the Rate combo box so that in the Rate combo box dropdown only the hourly charge rates relating to that matter are shown. That works too. So far so good.
I then tried adding another after update event to the MatterName combo box, so that another combo box, Application, was requeried too, so with the Private Sub it looked like:
Rate.Requery Application.Requery
But this resulted in the error in the title to this post and the debugger highlighted in red the word Requery in the phrase Application.Requery.
I thought maybe Access does not allow two requeries resulting from one after update event, so instead I took Application.Requery out and placed it as an after update event in another combo box which did not have any other after update events to run.
However, this resulted in the same error.So the error appears to have something to do with trying to requery the Application combo box but I cannot see what is causing the error.
The Application combo box SQL is:
SELECT Applications.ApplicationID, [ApplicationDate] & " " & [ApplicationName] AS ApplicationDisplay, Applications.ApplicationDate, Applications.ApplicationName, Applications.MatterName FROM Applications WHERE (((Applications.MatterName)=[Forms]![frmTimecardsDataEntry3*]![MatterName])) ORDER BY Applications.ApplicationDate, Applications.ApplicationName;
This is the same arrangement of SQL that I am using on the other requeried combo boxes that work. When I take the WHERE statement out of the Application SQL and run it the query returns all of the applications.
I am not sure what the error code is trying to tell me about the attempt to requery the Application combo box.
I have a yes/no box in the form and when the firm is first opened it has a small square dot in it, but as soon as any data is entered in the form the dot clears and leaves the usual empty tick box that you would expect to see.
Also, another possible symptom is that I had another version of this form previously working quite well except that when I did several data entries all at once, so I had several forms filled in with different data (before refreshing and thus entering the data in the table), when I scrolled between the forms I kept losing the MatterName data when I scrolled back, and then when I re-entered the ClientName data the correct MatterName data returned without me having to use the dropdown to select it.
I have had an earlier simpler version of this form working for some time, with ClientName requerying MatterName and MatterName requerying Rate, and I am using the same SQL structures in the new form but getting the error in the title to this post and the other isues just described.
In excel i used the following formula =IF(COUNTIF(U$2:U$900,U3)>1,"Duplicate","")on one field to find duplicate, but I cannot come up with similar formula on column fields in a table.
I am getting method of data member not found for the following code when inserting values to a table. Form has three frames. Add/Insert is on OnClick Event.
I have a database wit the following fields have a database with the following Tables
tblCD/Main: CdID - autonumber, CDName - text ...anything else will be a lookup field that we will get from another table, so we will come back to this table
tblAuthorType - AuthorTypeID - autonumber, AuthorTypeName - text. author type name will have, as I see it, 3 types : Composer, Group, Artist.
tblAuthorName - AuthorNameID - autonumber, AuthorName - text, - the name of all authors, composers and artists that u will pick from later tblecdtrackautonum-trackname track number Each Artist will be the same for Each CD
the tblCDMain add a AuthorName - lookkup to tblAuthorName The lookups I understand fine it's relating the identifier the same in both places. I want to have list boxes that display cd groups and cdname the cdnames related only to those groups
How do I try relating the cd name table to the track listing on the field of cd identifier which is the same in both places. IS the identifier the same for the primary key Should put together a query between the two tables, and relate them on that one field (cd id) then the query will pull the tracks which are listed for that id and the cd names which are listed for that id. I need help with this to figure out the identifier is it cdname and cd tracks? Please someoen help I need a response based on tables for my database NOT ON A DATABASE FROM A BOOK WHERE I CANT SEE A CONNECTION LIKE A PLANTS DATABASE THEN I DONT KNOW IF PLANTS IS THE SAME AS FOR THAT ID. ANY HELP APPREICATED/
I am relatively new to Access and VB. I am trying to create a log-in system that assigns a security clearance to each user and then restricts access to certain forms and reports based on security clearance. Right now, I have set up the log-in system - that seems to work fine. But when I try to lock the form based on security clearance, I get the 2450 - Form Not Found - error.
The code I am using on the form is as follows:
Private Sub Form_Open (Cancel As Integer)
If Forms!frmLogin!cboUser.Column(4) <> 1 Then MsgBox "You do not have access to this form", vbOkOnly DoCmd.Close acForm, "formname" EndIf
I have a pop up window that maximizes and the need to format a Memo Field to users specification.
Unfortunately the Mini Popup Bar that comes up when you select text is very shy and annoying when it doesn't show up. It's Completely Unreliable.
So I thought I'll make the Controls on the form for Bold,Italic... etc but I can't seem to get the code to work.
My TextField is a Memo and I have changed the TextFormat to RichText, but I cannot use any of the commands like .SelBold or .SelColor etc.. It gives me a Compile Error: Member or Data Member Not found.
I don't understand why? Is there a Add In/Reference that I need to include?
hi guys, i am slowly learning access by browsing these forums and using microsoft help and downloading example databases. problem is - i have no formal training in it and am just sort of poking around. how did you guys learn? is there a good book out there to read, or did you take a course in it?
right now i am trying to develop a database of tracking product through a factory. technicians would scan the barcode for a pump before and after every process. i made it a simple table coupled with a form where they input the barcode # and a timestamp was coupled with it. later, youd be able to graph the time stamps so you can see process times, how many are in work in process, etc.
my specific questions are:
when i use the timestamp feature, it updates the time when a new record is brought up, but i want the timestamp to register when they click the add entry button. so far i have the default value =Time() for one, and =Date() for the other ...
next is, i want each workstation with this open to have its own unique identifier. for example, one program in assembly station should automatically input "assembly" for where the record was added in, how is this done?
lastly, i have a barcode scanner that operates like text input, i have an area on the form for the barcode, so when it scans it enters the number. is there a way that once the field gets 8 digits entered into it, it automatically goes to the next field on the form? i would like for users to pull the trigger and not have to hit enter again ...
a big THANK YOU for all you access gurus, i have been browsing these forums learning a lot. i hope i can achieve your level so i can help others as well. Thanks again
I'm looking into create a small unique identifier to put on top of each invoice generated by the database. (.MDB A2010)where '000' its just 3 zeros added for extra badassery, '1' is the actual ID from the database table and -2014 its the current year when the record was added...So maybe I have info from 2 fields (ID, YEAR)... but How do I add the ceros to the ID field... so its 0001 not 1 or 0135 not 135... ???.
Any way on a table that I can have a unique identifier over two fields? E.g.I have a login ID and a Domain field in a table with sample data below.
Login Domain
John Test Jane Test Fred Live John Live
The login names need to be unique to the domain so the integrity cannot be breached. This has to fit into one table (although the domain is actually being pulled from a look up table so is in fact a numerical value) for ease of form creation.
I have a database in Excel that contains farmers who can be identified by a Unique identifier: MZ-01-0001. The registration details for these farmers are not always up to date. Now when I try to append the data for the farmer with MZ-01-0001; with the primary key set on the Unique identifier, Access does not want to do it since there is already a record in the system. When I remove the primary key it doubles the record, which is also not what I want. So I am wondering what I need to do to append the record while keeping the primary key intact.
