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 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
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
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
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?
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.
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.
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!
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've read and gone though quite a few of the scrips and examples for creating logins and security and i'm getting to the stage when i need to have good understanding of the different methods.
Some of the examples whilst create a user login do not really allow for security within the database whilst the build in security wizard would appear to offer that functionality.
I am thinking that I will use the Workgroup file and that method. My question is am i able to utilise the fact that if a person 'AdamA' logs onto the database which is built into the workgroup security file. am I then able to take 'AdamA' to populate a table which records actions by a user? (I can't seem to find any thread or book reference to doing this)
VBA Code to go in the on double_click event of a name field in a Subform bound to a table. The subform is just a copy of a data table and within the subform view, When the field "employee name" which contains e.g. John is double clicked, I would like access to Lookup and get John's email in the employee table under field "Email" and launch outlook application and insert it into the To field.
I assume hyperlinking the field can also achieve this similar to what excel does but I am fast learning that what is standard functionality in excel is a whole another story in Access..
I have a query (Access 2007) that contains a field named "email" (which contains email addresses, of course). I want to email everyone in the query and they are all going to receive the same message. My email to them doesn't have to be personalized and I don't need to collect data from the recipients. I don't even need a reply to the email I send.
I have a form which has a button to email the data out in a standard email message.
Private Sub Command60_Click() Dim MyDb As dao.Database Dim rsEmail As dao.Recordset Dim sToName As String Dim sSubject As String Dim sMessageBody As String
[code]...
This works well enough, however, FIELDS 11 through to 16 contain the venue address. This is all we ll and good if every field of the venue address is populated. here are times when not all of the fields are populated, for instance, the address might only be 5 lines.I know I can do this using IIf statements on a report, but how can i achieve the same thing for the email.
I have a database that I can use to create a query, grouping companies by city. I then want to send a specific email I have created in outlook to all of the email addresses in the query.I do not need to include names.
I have made a query with the name "Confirmation" and it is setup like this:
Name trainee Email Training John John@mail.com Tr one Mary Mary@mail.com Tr two
I also made a button in a report with the title "Send Mail" now is my goal that if i press that button automatically multiple e-mail message's will be generated with data from people in that query. So if click on that "Send Email" button i want two different mails messages generated that will be send to John@mail.com and Mary@mail.com with in the mail body their data.
I recently upgraded a DB from 2003 to 2013 and ran into the following problem.
I have a button that opens a file dialog box and allows the user to upload a file to a predetermined location (and store the address as a hyperlink). I borrowed this code from someone else on here and modified it slightly.
In any case, the button still works, but now when it opens it doesn't have an option for "All files" under file types. So I can upload MS Office files, text files, etc., but not PDF files which are by far the most common types my users upload.
Private Sub Command35_Click() Dim dd As Integer Dim fileDump As FileDialog Set fileDump = Application.FileDialog(msoFileDialogOpen) dd = fileDump.Show Dim Yourroute As String Dim yourrouteName Yourroute = fileDump.SelectedItems(1) yourrouteName = StrReverse(Yourroute) yourrouteName = StrReverse(Mid(yourrouteName, 1, InStr(yourrouteName, "") - 1)) FileCopy Yourroute, "us170fp00dataWBO_Tool_RoomDrawings" & yourrouteName Me.Drawing_Link = yourrouteName & " # us170fp00dataWBO_Tool_RoomDrawings" & yourrouteName End Sub
