I am calling a continous form from a combo box on another form. The code below used to warn me that there were no records and shut the form down to avoid showing a blank form.
Private Sub Form_Load()
If IsNull(Me.TxtUnit) Then
MsgBox "There are no operations recorded for this Unit", vbOKOnly, "No Recorded Operations"
DoCmd.Close
End If
End Sub
All was working fine until I changed the properties of the continous form to "Allow Additions = No" to remove the spare blank line at the bottom of the records (just for neatness really).
Now, if there are no records to display, the Me.TxtUnit is not Null anymore. It does not seem to exist. If I hover the mouse over it (in VBA) I get no response at all.
I made some minor changes in my data entry form, the table and the query form. I believe they are all consistent. But now my query comes up empty no matter which parameters I choose. How do I figure out what went wrong?
I have a burron to run a query that auto populates 'start time' with NOW(). It has worked for 3 years and now I get an error message see attached. The only thing I did was change the program fromm 2000 to 2002.
I have the following to code to let the user select a file.. It worked before but suddenly stopped working...I remember adding some reference but I dont remember exactly the name of the reference..
After I did this, I converted the database from 2000 - 2002/2003 ..back and forth...I did not change/remove any references.
I have access 2003 but my database is in 2000 format because my teammates have 2000.
Thanks in advance for the help.
------------------------------------------- Dim fDialog As Office.FileDialog Dim varFile As Variant
' Set up the File Dialog. Set fDialog = Application.FileDialog(msoFileDialogFilePicker)
With fDialog
' Allow user to make multiple selections in dialog box .AllowMultiSelect = False
' Set the title of the dialog box. .Title = "Please select a file"
' Clear out the current filters, and add our own. '.Filters.Clear ' .Filters.Add "All Files", "*.*" '.Filters.Add "Access Projects", "*.HTM" '.Filters.Add "Access Projects", "*.HTML" '.Filters.Add "Access Projects", "*.DOC" '.Filters.Add "Access Databases", "*.VST" '.Filters.Add "Access Databases", "*.VSD" '.Filters.Add "Access Databases", "*.TXT" '.Filters.Add "Access Databases", "*.MDB" '.Filters.Add "Access Projects", "*.XLS"
' Show the dialog box. If the .Show method returns True, the ' user picked at least one file. If the .Show method returns ' False, the user clicked Cancel. If .Show = True Then
'Loop through each file selected and add it to our list box. For Each varFile In .SelectedItems DocsPath_TB.Value = varFile Next
Auto complete was working with a combo box. After adding much functionality to a database I find that auto complete does not work on any combobox in any form. So I create a blank database and a simple test shows that auto complete works. When a form from the faulty database is imported in the test database, auto complete stops working on the test form. Even if the imported faulty form is removed, auto complete still does not work.
I tried creating a new database and importing the faulty form after removing all controls and events from the form except for the combo box. Auto complete still stops working. Not only on the imported form but also on the existing form which works prior to the import.
I checked auto expand and it is 'Yes' in all conditions.
What ever is causing the problem on the faulty form seems to cause some property of the database to change.
Is there some database option or property setting that controls auto complete?
Is is possible that importing a form will cause a database property to change?
Access 2013 stops working when I open any table in design mode, and select any field with the type "Number". I can edit Text, Date or Yes/No fields, but not Number ones.
I have a form I use to search for clients when I hit a command button, using surname etc. I'd like a yes no button to pop up rather than the clunky ok button route I currently have. I'm a beginner with VBA and most this I've gleaned from internet.
If there are matching results, everything is fine. If there are no matching results, I've managed to get my desired messagebox come up by using the code below in the onload event of the resulting search results form, however the yes no buttons do nothing and the results form loads blank as though no records were found.
I'd like Yes to send users to the client input form, and No to return them to the search form.
Private Sub Form_Open(Cancel As Integer) If Me.Recordset.RecordCount = 0 Then MsgBox "Do you want to add a new Client?", vbQuestion + vbYesNo, "No clients found" Select Case intanswer Case vbYes
Okay, I have a unbound form with three combo boxes the selection of these three & then clicking of a filter button opens the relevant form showing records based on the selection. Great that bit working, no major feat.
Trouble is when I select three criterea in the combo boxes that no record(s)exist for and hit the filter button. A blank form appears not very friendly or appealing.
what I'm after is a simple, thats me all over by the way, of a message box appearing to tell the user no records where found.
So I have a form for addresses that checks against a table of US zip codes, and throws up a warning if the City/State/Zip entered isn't found on the table. This works great. But I was wondering if there was a way to list the available combinations based on the zip code entered. I want the program to tell the user that the city is wrong, but here is a list of what it could be.Is it possible for a msgbox to list all records where a field = value?
I am thinking about creating a DB using Access for a business. However, my wife mentioned to me that her company is looking at software for database work and has some Access DB's they are trying to convert because, according to a technical support person, Microsoft intends on getting rid of Access as a DB! I am posting here to ask anyone, professional or otherwise, if anyone has heard that Microsoft intends to stop supporting or implementing Access. Is Access 2003 the last version? I haven't been able to find out anything along this line. I thought, maybe Microsoft is thinking about supplanting Access with SQL Server. Before I go to the toil of building a DB system in Access, I want to know I am not wasting my time doing it. If anyone on this forum has heard a thing about Microsoft dumping Access, please let me know. Thank you. :o
Dear All, I prepared times ago a database that contains important data that will be frequently updated. Since yesterday I cannot load the database anymore. I get a pop-up with following statement: Quote The Microsoft Jet database engine stopped the process because you and another user are attempting to change the same data at the same time Unquote If I click ok, the loading process will be aborted. I'm the only user of this database, neither the database nor the directory containing the database is sharable. It is located on the harddisk of my computer which nobody from outside can access. What can I do to recover the access to my database?
I use MS Office 2003 but tried to open the database also on MS Office 2000 with the same result. The Help function of MS-Access does not really help. Who knows how to solve the probleem???? With regards Siegfried
I've been using code similar to that below to send an alert from a pc triggering the event from my database. I used to get the pop up warning giving the user the choice to cancel the email in case it was a hoax but now get an error message stating. "Microsoft Access can't send a message for the reason stated in the preceding alert"
There is no preceding alert and the email no longer sends. has anyone managed to solve this problem?
What the hell is MS doing?
Private Sub cmdFindPrint_Click() On Error GoTo Err_cmdFindPrint_Click
DoCmd.RunCommand acCmdSaveRecord
DoCmd.OpenReport "rptFinder", acPreview, "", "[StrayRef]=[Forms]![frmOwnerDetsFinder]![txtStrayRef]" Dim strEmail As String Dim strBody As String, strSubject As String strEmail = "me@here.co.uk" strSubject = "Owner collecting from finder" strBody = "Finder's details have been given to a claiming owner. Seizure Sheet Number " & Me!txtStrayRef & " " & Me!txtColour & " " & Me!txtBreedType & " " DoCmd.SendObject , , , strEmail, , , strSubject, strBody, True Exit_cmdFindPrint_Click: Exit Sub
I am using an update query comparing 2 tables to add new records from table 2 to table 1. This worked fine until we upgraded to Office 2007. Is this a function of 2007?
I am not getting any prompts to OK, "You are about to update 1500 records"
I have a SQL view linked into a ms access application. That view is used in a subform and in datasheet view. I want to select multiple records and click on a button that will delete those selected rows. I need the button because the view has 1 table and a subquery joined in the view and will not allow me to delete from the main table in that view. So, I figured I can select the rows I want to delete and then create a button that will send a passthru command to delete those records from the main table.
Im v new to VBA and been having trouble getting the following code to loop through the records in my subform:
Private Sub cmdComplete_Call_Click() Dim rs As dao.Recordset Set rs = Me.fsub_Call_Off_Quantities.Form.RecordsetClone rs.MoveFirst
[code]....
It only seems to update the first records txtQuantity_Called_Off value. I have tried all the 'looping' code variations i can find and they all seem to only update the first .
Hello, I've searched MSFT, this forum and Googled it with no success. My first post, I hope this is correct section.
Sometime in past few days Access Documenter will only display object name regardless of what properties are selected in the Options menu. Selections always default to back to "Nothing" after trying viewing. It is not related to any specific.MDB file. Have tried with more than 12.
Uninstalled and reinstalled Access and Office. Did not correct the problem.
When using Documenter (located on another computer on the network) for the same database(s) it works fine. So it is machine specific. Running XP with all current updates and Office 2003 with SP2.
Any help or suggestions willl be greatly appreciated.
My department has customer database using microsoft access with the main table being a linked table to SQL-Server database down in IT department.
I've only been recently made aware that the staffs have been having problem when trying to change or delete old data. It keeps on bringing up the error message
The Microsoft Jet database engine stopped the process because you and another user are attempting to change the same data at the same time. which is hardly the case since each staff are assigned only one customer to work on.
While it is technically possible to have many people working on the same data, business wise, it is impossible to do that.
I still come up with the same error even when the IT department confirms that no one accessing the SQL-Server table and I was the only one logged in.
This leads me to believe that there is something in the code that somehow preventing the table being edited or deleted. The problem is the database is so huge and was designed by my predecessor so I do not have any knowledge of the complete working of the codes behind it.
If it's the problem with the code, can anyone tell me what sort of codes caused this? If not, can anyone tell me what happened?
I am working on a database that uses a table from another access database. I am not sure but I think the problem started after this line was added to the code:
Set dbk = OpenDatabase("D:My documentsJapiOritaColorBazeKnjigovodstvo1.1.md b")
The database still works fine on one machine. When I copy it to another machine, that is when I receive 3197 error.
When I copy database to another machine without the code that contains the line from above, and copy the same code in the same form after opening copied databse, the problem is solved.
Does anybody know why is this happening? How can I fix this?
I have created a db that is used strictly for data entry. I have one main form with about 6 embedded subforms and the db is broken down into a FE/BE. I currently only have one user in the database and sometimes when the user tabs into one of the subforms the will receive error 3197. I have searched the forum and have read that this error may be caused by a OLE or memo field but I have neither. There is no pattern to the error it seems to happen sporadically. Any ideas?
I am facing an issue The Custom Macro Stopped report from rendering. I have report which is having two sub reports inside. The report is opening in the report view properly but when the ExportWithFormating macro runs, it throws this error.
I am using Access 2003 and there is a from with barcode scanner to update the shipping data. This form has a sub-form which is working perfectly fine and updating data but the barcode scanner assigned with main form stopped working today. I tried different scanner too and different system too but its not working.
trying to enable database users to filter records based on column names which i have in a combobox. They enter the required value in a textbox and click the "Find" button.The code (linked to button click event) is not throwing any errors but the records are not being filtered.
I attempted to add new queries, reports, and a form to a shared database. It bombed out and I found that a user was changing data in the tables at the same time.
Now I cannot access the database at all (front or backend) and receive the error message: “The Microsoft Jet database engine stopped the process because you and another user are attempting to change the same data at the same time”. (I have verified that no users are currently logged in.)
Access to the data is critical to my department and I’m scrambling to fix this. Can anyone assist me? Thanks!