AcCmdSaveRecord Not Working
Jun 26, 2006
I have docmd.runcommand AcCmdSaveRecord in the "on exit" event of a subform. If I change data, it doesn't save the record, if I don't change data, it complains that saverecord isn't available right now. I can understand the second scenario, but why does it refuse to save the data when I do change it?
If I move this code to some other control's ongotfocus event, it does perform the record save when I click on that control.
Thanks for reading. Any help is greatly appreciated.
View Replies
ADVERTISEMENT
Dec 27, 2014
I have a program that runs under access 2007 that I use at my work. We will soon be updating to MS office 2010 and the program will not work now because a calender file .ocx was removed from access 2010. Is there a way to get the 2007 .ocx file to work in access 2010?The program I am using is a relatively simple stand-alone and unsupported app that we use to request patient arrival and departure from various radiology tests inside a hospital. No reports are made from the app other than the number of patient transports for the day.
The app is placed on a common drive accessed from any pc in the hospital. No special permissions are required. But our app does use the calendar, time and date functions in access 2007. When I tried the app on a pc with access 2010, it basically says it (access) cannot open the app because a .ocx file is not present.Is there a way to make the access 2010 calendar file work in access 2007?
View 1 Replies
View Related
Jan 15, 2015
I have an Access 2010 database with two tables and two forms. The tables are Organizations and People. Similarly, the forms are Organizations Entry Form and PeopleEntryForm. The People are linked to the Organizations table. Several people can be linked to the same organization.On my Organizations EntryForm, I created a command button to duplicate a record using the wizard. It works fine.
I did exactly the same thing on the PeopleEntryForm, but instead of copying the record, it creates a new blank record. I don't get any error messages. Is my problem due to the fact that the People table is linked to the Organizations table?
View 13 Replies
View Related
May 10, 2005
Hi all,
I'm making a simple query to tell me how old a list of members are in a database.
I figure as I have their birthday, armed with todays date access should be able to tell me (in years only) how old they are.
Any help is appreciated
View 14 Replies
View Related
Jul 19, 2005
Hi,
I have 2 computers (computer 1 with Office XP and computer 2 with Office XP SP1). An MDE file created from an MDB file on computer 1 will not work on computer 2 (run time error), but an MDE file created on computer 2 also does not work on computer 1 (error message was "database corrupted").
Does anyone know why and what I can do to make the MDE work on both machines?
View 6 Replies
View Related
Jul 21, 2006
Hi. I have got a small database, I have split it into front and back end. I then try to make an MDE out of the front end and after going to tools>db utilities>make MDE file, i got the save as box open up and i pressd save to my desktop,the box disappears and the screen is just blank(like there is no database file has been open,at the bottom of Access it says Make MDE/ADE.
And it just crashes.. it doesnt come up with any errors.
If anyone has any information pleeeeeaaaseee help.......
View 8 Replies
View Related
Aug 2, 2005
My Combo Box works and displays new entries in text boxes in my form. The selection appears in every record. I would like the selection to be stored only in the displayed record and not for each and every record. Any ideas?
My combo box works on an existing query( Qry1). I would like the data from my query (Qry1) to be displayed in the record (in Form1) which I am viewing. When I go onto a new record (IN Form1) I would like to make a new selection from my query (Qry1) and then store these details in the new record in Form1.
I am a little frustrated - please help.
View 3 Replies
View Related
Sep 20, 2006
This seems so simple, but, being a novice, I'm scratching my head.
I'm using an unbound text box in the form footer to sum the value of a column in the form ( =Sum([LineTotal]) ). [LineTotal] evaluates correctly, yet the sum is always #ERROR. Is there something I am missing, or am I correct in thinking that this should work?
Thanks to anyone who can shed some light.
-Don
View 7 Replies
View Related
Nov 8, 2004
I open a form that is bound to a linked SQL table. On that form a have a list box that shows a series of records based on a query. The listbox DOES contain the PK field "Record_date" in its query.
I am expecting that if I click on a given record in the list box the form would change to that matching record. What am I doing wrong ?
List box code:
Private Sub List212_AfterUpdate()
' Find the record that matches the control.
Dim rst As Object
Set rst = Me.Recordset.Clone
rst.FindFirst "[Record_date] = #" & Format(Me![List212], "mm/dd/yyyy") & "#"
If Not rst.EOF Then Me.Bookmark = rst.Bookmark
End Sub
If I change the form record and click the list box, its always takes me back to the 1st record - not the matching record selected in the form.
Help ?
View 3 Replies
View Related
May 8, 2005
Hy,i've got three tables:
products:
product_id,product_name
months:
month_id,name_of_month
calculations:
calculations_id,month_id,amount
Also have this query:
SELECT DISTINCTROW products.product_name, Sum(calculations.amount) AS [Sum Of amount]
FROM products INNER JOIN calculations ON products.product_id=calculations.product_id
WHERE calculations.month_id in (forms!frmMyForm!txtMyTextbox.value)
GROUP BY products.product_name;
My problem lies in this part of query :
WHERE calculations.month_id in (forms!frmMyForm!txtMyTextbox.value).
I've got problem when i want to get values from my textbox on my form.
If i instead (forms!frmMyForm!txtMyTextbox.value) put (1,2) my query works fine,but when i wanna get this same values from textbox on my form it returns me an error.
I have also noticed one more thing:If i put in my textbox just value 1 it works fine,but if i use more values separeted by comma instead of result it returns me an error.
Why is this,and how to avoide this problem?
Thanks!
View 8 Replies
View Related
Jul 29, 2005
Private Sub propertypass_Click()
If [Forms]![UpdatedFullInventory]![PAM_ID] = [Tables]![UpdatedPropPassInventory]![PAM_ID] Then
MsgBox "A property pass for PAM ID " & PAM_ID & " has already been created. Please search the property pass database for more information!", vbOKOnly, "Error!"
End If
My debug message says
Microsoft can not find the field 'l' referred to in your expression.
View 1 Replies
View Related
May 13, 2005
Hello,
For osme reason this MS Access database I'm working on will not let me debug it. First off, even if I mistype a variable name it is not breaking and giving me an error message. I checked and I do have 'Option Explicit' set as well as "Error Trapping - Break on All Errors" in the Tools - Options - General.
Also, when I set a breakpoint in my code, it doesn't work either.
Any ideas as to what is going on??
Thanks,
Brian
View 1 Replies
View Related
Jun 23, 2005
Our database is 1.6gb in size.
It has stopped working, is there a way to delete old records?
We are told it will crash the computer, because access needs the same space as the data its self.
Any ideas?
Thank you for your time in reading this post
View 2 Replies
View Related
Jun 29, 2005
Can anyone tell me whats wrong with this code, its not working for me!!
If ((txtpassword = "") Or (combusername = "")) Then
MsgBox "Please Enter A Valid Access", vbOKOnly, "Error"
End If
View 4 Replies
View Related
Aug 5, 2005
Hi,
I've the following code but the cancel doesn't seem to be working, when upon click cancel, it should still remain on the form but it closed the form. Can someone please advise.
Dim strMsg As String
Dim strMsg2 As String
Dim strTitle As String
Dim strTitle2 As String
Dim intResponse As Integer
strMsg = "Do you wish to save changes?"
strMsg2 = "The changes you made were not saved."
strTitle = "Save Entry"
strTitle2 = "Entry Canceled"
If Me.Dirty Then
intResponse = MsgBox(strMsg, vbYesNoCancel, strTitle)
If intResponse = vbNo Then
Me.Undo
MsgBox strMsg2, vbOKOnly, strTitle2
ElseIf intResponse = vbCancel Then
DoCmd.CancelEvent
Me.SetFocus
End If
End If
View 1 Replies
View Related
Oct 18, 2005
Dear friends,
I'm working on a dbase now that categories files used for sales. The dbase has 2 functions: searching the texts and saving/editing the texts. I'm not a (Hollywood) star in VBA and a need to build in the search function an option where the user can search in the found documents :( . In the save/edit option the user has to copy/paste the text in access and save the text with his attributes. The texts are saved outside the dbase in the same folder, but when the text is saved i'd like the filepath as an attribute-value. Pls help me!
View 1 Replies
View Related
Nov 28, 2005
I installed Microsoft Office 2003 on my computer. It asks me to register the product otherwise not all functions will work properly. I was curious so I didn't register it and started an Ms Access Application. Interestingly, when I clicked on a checkbox in a form , nothing happened.
After registering the product and going back in to the mdb the checkbox worked just fine.
Any one ever seen this before or know what causes that?
Thanks
View 1 Replies
View Related
Nov 29, 2005
This is what I have:
Private Sub GO_Click()
If [ARyear] = 2006 Then
DoCmd.OpenForm "frm2006AR", acNormal
DoCmd.Close acForm, "frmSelectYear"
Else
End If
If [ARyear] = 2005 Then
DoCmd.OpenForm "frmFilterForm", acNormal
DoCmd.Close acForm, "frmSelectYear"
Else
End If
End Sub
This is on a command button that references an unbound field (ARyear). Naturally when I enter 2005, it pulls up the proper form - however, when I enter 2006 I recieve an error: Run Time '2467'. However, it still opens the form if I click on 'END' on the error box.
My guess is that the code is not finished and thats why the 2005 works (because its at the end).
How do I fix this?
View 14 Replies
View Related
Feb 11, 2006
I'm trying to create a database of Publications (instruction manuals) where one publication is a modification to a parent modification. I'm storing all 'publications' in one table for better maintenance. This means that I have to use a Self-Join if I want to make one the parent, and one the child. Fundamentally this is no different than the Employee/Supervisor example I've found in many places:
http://www.databasedev.co.uk/self-join_query.html
I created a query with two copies of the same table with the 2nd one renamed for easier viewing. The query final comes up, but when I choose "ParentPub", it doesn't give me a drop down showing the other pubs so that I can choose one to be the parent.
What did I do wrong? I should be able to open up the table 'tblPubs', and get a drop down menu showing me all the pubs I can assign as a parent.
Thank you for your help,
Enrique
View 3 Replies
View Related
May 29, 2006
I am trying to recreate (with many changes) a database that I have previously made, but the requery macro is not working. On my previous database, I typed the following in the row source:
SELECT [sub-activity].[Sub-Activity ID], [sub-activity].[Sub-Activity Name], [sub-activity].[Activity ID] FROM [sub-activity] WHERE ((([Combo23])=[sub-activity].[Activity ID]));
Now when I type it in my new database, the WHERE part of the statement is causing nothing to appear in my combo box. Does anyone know why that would be and what I can do to fix it? Thanks so much. :)
View 1 Replies
View Related
Jul 12, 2006
I have a form with a Command button. i have a text box also which is
bound to my
Button. i have created a standard module and created an onclick event
for my button
which is something like this ( if a user clicks on the button it will
give an option
to user to add a file. The Path of that file will be copied to the
textbox which is associated
to my control or button.) i changed the data type also for my textbox
to
Hyperlink so then
when a user clicks on that path which is in the textbox it will
automatically open that document. Well for
some reason it is not working. any
help or suggestions will be really appreciated.
Thanks
View 3 Replies
View Related
Jul 25, 2006
hi. something wierd happen today. i completed my database and was trying to build a switchmanager
i went to tools>database utilities>Switchmanager. i created the switchmanager and set it default.
when i close my database and try to open it again the switchboard manager should pop up
but for some reason it does not. i had to do it manually by clicking on switchboard in the control.
can someone tell me whats going on this is the first time it has happen.
Thanks
View 1 Replies
View Related
Oct 11, 2006
Hi,
I used a before Update procedure to check if the date of a textbox is later than another text box. However, nothing seem to happen when I enter the wrong date.
Here is my code:
Private Sub txtDateOfCompletionForHandover_BeforeUpdate(Cancel As Integer)
Dim anticipatedCompletionDate As Date
Dim dateCompletionHandover As Date
'assign vars values
anticipatedCompletionDate = txtAnticipatedCompletionDate.Value
dateCompletionHandover = txtDateOfCompletionForHandover.Value
'If date1 refers to a later point in time than date2, the DateDiff function returns a negative number
If DateDiff("d", anticipatedCompletionDate, dateCompletionHandover) < 0 Then
MsgBox "You are trying to Handover house before the house is finished!" & vbCrLf & vbLf & _
"Please enter a later date than Anicipated Completion Date above.", , "House Handover"
'empty textbox and keep focus
txtDateOfCompletionForHandover.Text = ""
txtDateOfCompletionForHandover.SetFocus
End If
End Sub
Any help will be very much appreciated.
B
View 10 Replies
View Related
Feb 5, 2007
Hello,
I have a access database here that was made many years ago in access 2000, We have upgraded all our users here to office 2003
But this users database wont export data comes up with the following msg
http://img183.imageshack.us/img183/6825/filenamenz6.png
The database is a frontend screen with a export button
I have been checking out the code but cant seem to work out what the issue is.
Top part of code.
Option Compare Database
Private Declare Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Declare Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOpenfilename As OPENFILENAME) As Long
Private Type OPENFILENAME
lStructSize As Long
hwndOwner As Long
hInstance As Long
lpstrFilter As String
lpstrCustomFilter As String
nMaxCustFilter As Long
nFilterIndex As Long
lpstrFile As String
nMaxFile As Long
lpstrFileTitle As String
nMaxFileTitle As Long
lpstrInitialDir As String
lpstrTitle As String
flags As Long
nFileOffset As Integer
nFileExtension As Integer
lpstrDefExt As String
lCustData As Long
lpfnHook As Long
lpTemplateName As String
End Type
Export part
Private Sub cmdExport_Click()
On Error GoTo cmdExport_ClickErr
Dim strEnrolfile As String
Dim strCompletefile As String
Dim OpenFile As OPENFILENAME
Dim lReturn As Long
Dim sFilter As String
OpenFile.lStructSize = Len(OpenFile)
OpenFile.hwndOwner = Me.Hwnd
OpenFile.hInstance = Me.Hwnd 'Application.hWndAccessApp '.hInstance
sFilter = "Text (*.txt)" & Chr(0) & "*.txt" & Chr(0)
OpenFile.lpstrFilter = sFilter
OpenFile.nFilterIndex = 1
OpenFile.lpstrDefExt = "txt"
OpenFile.lpstrFile = Me.txtUserName & "En.txt" & String(255, 0)
OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
OpenFile.lpstrFileTitle = OpenFile.lpstrFile
OpenFile.nMaxFileTitle = OpenFile.nMaxFile
OpenFile.lpstrInitialDir = "C:"
OpenFile.lpstrTitle = "Save Enrolment Data"
OpenFile.flags = 4
lReturn = GetSaveFileName(OpenFile)
If lReturn = 0 Then
strEnrolfile = "" ' User pressed the Cancel
Else
strEnrolfile = Trim$(OpenFile.lpstrFile)
End If
If strEnrolfile <> "" Then
'MsgBox strEnrolfile
DoCmd.TransferText acExportDelim, "EnrolmentExportSpecification", "EnrolmentExport", strEnrolfile, True
End If
OpenFile.lStructSize = Len(OpenFile)
OpenFile.hwndOwner = Me.Hwnd
OpenFile.hInstance = Me.Hwnd 'Application.hWndAccessApp '.hInstance
sFilter = "Text (*.txt)" & Chr(0) & "*.txt" & Chr(0)
OpenFile.lpstrFilter = sFilter
OpenFile.nFilterIndex = 1
OpenFile.lpstrDefExt = "txt"
OpenFile.lpstrFile = Me.txtUserName & "Completion.txt" & String(257, 0)
OpenFile.nMaxFile = Len(OpenFile.lpstrFile) - 1
OpenFile.lpstrFileTitle = OpenFile.lpstrFile
OpenFile.nMaxFileTitle = OpenFile.nMaxFile
OpenFile.lpstrInitialDir = ""
OpenFile.lpstrTitle = "Save Completion Data"
OpenFile.flags = 4 '256
lReturn = GetSaveFileName(OpenFile)
If lReturn = 0 Then
strCompletefile = "" ' User pressed the Cancel
Else
strCompletefile = Trim$(OpenFile.lpstrFile)
End If
If strCompletefile <> "" Then
'MsgBox strCompletefile
DoCmd.TransferText acExportDelim, "CompletionExportSpecification", "CompletionExport", strCompletefile, True
End If
Exit Sub
cmdExport_ClickErr:
MsgBox Err.Description, , Str$(Err.Number)
End Sub
I think it maybe something to do with the export part but i anything i try and change makes it worse.
Is there a way i can run the access file and when it comes up with error it shows me in code where error might be.
My knowledge of access coding is very limited i not used VB for about 7years or so.
Any help would be great or if you need more info just ask
View 3 Replies
View Related
Aug 28, 2007
Hi everyone,
On a form, I want to fix the tab order of the text boxes. So I go to the tab order property of the form and when it opens, it doesn't let me change the order. Can anyone help me on this?
Thank you very much
View 7 Replies
View Related
Mar 7, 2008
Hi there,
I have long file (1 mil records) downloaded from AS400 as .csv text file.
there 2 feilds - shipping date and receiving date.
I need to calculate the lead time in days as RecievingDate - (minus) ShippingDate.
It would be easy in Excel, but i have too many lines.
So there are 2 problems.
How to make text data from .CSV the date in Access?
How to calculate using date data in Access?
Thanks to everybody interested to help.
View 3 Replies
View Related
