Undo Changes In Subform(in Datasheet View) From A Cick Event Of A Button In Main Form
Aug 5, 2005
Hi everyone!!
This is my first thread in this forum..Hope to get best from this site ..well i m facing a problem..i have a main form and a subform (which is in datasheet view) . Now i have a button called "close_form" in main form on whose click event i have writen this code :
Private Sub close_form_Click()
On Error Resume Next
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
Me.Controls.Item("fees sub").SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70
DoCmd.Close
End Sub
1. If i run this form directly from Access and there are no changes i do in the form and click this button then it gets hang after showing error "run time error 2046 ; the command or action undo is not available now " "press End or Debug or help"
2. As i have created a Custom menu, if i run this form from that menu then it does not show any error. But it runs fine for the first time but nothing happens on clicking this button the second time i open the same form ( in same session).
What to do ?? Please help ..
shikha
View Replies
ADVERTISEMENT
Jul 9, 2013
When I had a subform (continous form) I had a code which check, that record was used in other form, if yes, then code not allowed to delete this record, if not, record was deleted. But now I have a datasheet form, and the question is, What should I do, to have the same results what I had in continous form.
Now it doesn't matter that I past this code in "Before Del Confirm", "On delete", "After Del Confirm", this code doesn't work in this view of form. Always if I click (right button) on record, then i choose "delete record" MS Access delete my record without checking that was used in other form or not.
Code:
If Not IsNull(DLookup("Id_Gora_Zlecenia.Value", "TblDolZlecenia", "Id_Gora_Zlecenia.Value=" & ID_gora_zlecenia)) Then
MsgBox "You can't delete this record because it is used in another form"
Exit Sub
End If
DeleteRecord Me
End Sub
DeleteRecord:
Code:
Public Function DeleteRecord(ByRef f As Form) As Boolean
DeleteRecord = False
On Error Resume Next
DoCmd.SetWarnings False
If Not f.NewRecord Then
DoCmd.RunCommand acCmdDeleteRecord
[Code] .....
View 14 Replies
View Related
Jul 19, 2007
See title :)
I have seen that in some sample db's rightclicking the mouse showed the menu with an option to check or uncheck the dataview option, unchecked the formview was applied, but when i 'just' import the subform, i cannot find somewhere the possibility to change from dataview to formview.
Maybe someone can help me with this, probably very simple(?), question?
View 4 Replies
View Related
Dec 1, 2005
I have a subform which makes a change to a field on the main form. When focus is returned to the main form, the BeforeUpdate and AfterUpdate events fire. Why? I thought from the form's perspective, the subform is just another control.
BTW, I get the same behavior if I modify the field from within the Exit event of the subform control.
In either case, the main form's Dirty event is NOT triggered.
View 2 Replies
View Related
Oct 21, 2006
Well, I couldn't find this using the search, so here it goes:I have a form in which I enter data to create a new client. Within that form I have a subform in datasheetview which is based on a query which holds/retrieves certain (important) fields from a table that holds case info. So in that one view the client data is displayed on the form and all cases and the most important data from those cases is displayed nicely in one screen.Now, when a client calls I navigate to that client and see all previous and all current cases that are open and/or closed for this customer. So the customer says case this and that number is the case I need to discuss with you. Now, what I would like is to be able to click or double click anywhere on the line that, for instance, says case nr 55, so that the form(s) belonging to case nr 55 pop up and all info concerning that case is displayed and can be edited as needed. My problem is: I'm still a newbie and if it was a simple thing like using the on_click event to open the form that's needed, I would not have to post this question. But that can't be done (as far as I know) since the subform is based on a query which is displayed in dataview.Am I overlooking a very simple solution to this problem or is it really going to be as difficult as I think it's going to be?For clarification of the idea I have included a screenshot of the form in question. I assume there are tons of databases out there which use such a layout or idea as this one. Please, never mind the buttons etc. It is still a work in progress. ;)
View 12 Replies
View Related
Sep 27, 2006
I have a main form with a subform. I need to update values in the subform when a field on the main form is updated using afterupdate on that control.
Example:
main form name: mainform
control name: gst (on main form)
subform name: subform
records displayed as datasheet.
records field to update: retail
In main form gst control afterupdate event:
Me.[subform].[Form].retail_afterUpdate
Hoping to call the afterUpdate procedure on the retail field.
Error message:
Method or data member not found.
View 2 Replies
View Related
Dec 21, 2006
Hi, I have a problem I don't know how to solve it. I have a subform in datasheet view, linked to the main form. There is a running total on the main form based on a dsum on a field of the subform.
When I delete a row on the subform datasheet, the main form calculation is not automatically updated. I had to create a "update" button to do the refresh.
Is there a "on record delete" event available for a datasheet sub form?
Thank you for any help.
View 1 Replies
View Related
Jun 23, 2015
I have a navigation tab with 6 sections, of the 6, 5 of them are self-made split view with a form view on top and datasheet on bottom and upon adding records through a command button on form view I would like the datasheets to update.
On other forms it would (I believe) update to the bottom of the datasheet, now on the ones I've been banging my head against it either replaces the top record or doesn't show up unless I switch tabs and switch back. From my searches I assume this is in need of a requery...
View 14 Replies
View Related
Oct 24, 2004
This may be a really simple problem but it has me stumped. Working in Access 2002, I have a form with a subform (continuous). When the user clicks on a textbox in the subform, I need to capture the value and pass it to the main form so that it can be used to create a filter for yet another subform (not nested) on the main form. How could I accomplish this? Thank you in advance!
View 3 Replies
View Related
Sep 30, 2013
The situation is i have two forms, looking at the same table, but the main table shows more records, I would like to select a record in the datasheet subform and have the main form flick through to the corresponding record.
View 5 Replies
View Related
Apr 3, 2014
I have a Project form, which holds StockArtProduction_Subform in datasheet view. I need for them to be able to click on the ID in the StockArtProduction_Subform datasheet and it open a single view form (StockArtProduction) with the correlating ID.
Ideally, it would also work for new entries in the StockArtProduction_Subform, but the StockArtProduction form would have to "auto populate" (did I use it right?) with the ID of the currently open Project form.
View 14 Replies
View Related
Aug 24, 2012
I've got a main form with two lists boxes. I want to show the visible columns in my subform (which is a datasheet) in one listbox and show the hidden columns in the other. Also I want to allow the user to hide / show columns using right or left arrow buttons between the list boxes. My subform is bound to a stored procedure using ADO.
View 5 Replies
View Related
Jul 22, 2014
I have a modal form which has a single record which is then linked to a sub-form on the same modal form. This all works fine and shows the relevant record and sub records but I want the modal form main record to change dependant on the record selected in the subform (which is basically order item history.
I found some code on another site which seemed to work for others but for me I am getting Run-time error 2465 and it doesn't like my reference to 'Me' - is this because it is a modal form?The code I am using is:
Public Function GotoRecord(RecordID As Long)
Dim rst As DAO.Recordset
Dim strCriteria As String
Set rst = Me.RecordsetClone
strCriteria = "ID = " & RecordID
rst.FindFirst strCriteria
If rst.NoMatch = False Then
Me.Bookmark = rst.Bookmark
[code]....
View 1 Replies
View Related
Jun 23, 2005
My subform when i click the New record button on the subform i want it to disable a text box that is on the main form.
Me.Pensioners.Form!quicksearch.Enabled = False
where Pensioners is the name of the Parent Form. Thhis isnt working for one reason or another. Please advise.
View 3 Replies
View Related
Sep 10, 2006
I seen this awhile ago. And I was interested i knowing does anyone know where I can get an example of this. I saw what looked like a datasheet but on the right side of the datasheet there was an edit button. So every field on the datasheet had an edit button which opened up the specific row in a form layout. Can someone
View 3 Replies
View Related
Jan 12, 2014
Is it possible to clear filters set on a subform using a button on the main form?
View 1 Replies
View Related
Jul 17, 2006
Hi. I am trying to create subform in datasheet view with one column (total 3)as drop down list. Is this doable? Thanks.
View 3 Replies
View Related
Jan 5, 2006
I have a subform that is in databsheet view. When the user logs in to the db it sets the global variable with the group level they have.
I would like a column to be hidden for a certain group of users and have tried the following.
On the subform opening event i have
if vlevel = "engineer" then
me.Hours.columnhidden = True
Else
me.Hours.columnhidden = False
End If
And i have done the same on the Main Form open event identifying the subform by Form!Subform![Hours].columnhidden = True
But neither worked.
Can any suggest something.
View 4 Replies
View Related
Jul 25, 2006
Can anyone tell me how to manipulate a single cell in a datasheet view, or if it is even possible?
View 3 Replies
View Related
Jul 19, 2006
I have a small issue with the before update event, it is triggered for every record of my subform in datasheet view rather than just once when the user leaves the subform.
I have a module which is called from my form and all the subforms. It tells the user that changes have been made to the record and gives them the option to undo. This is to prevent accidental editing when viewing records. This works fine, but sometimes the user must enter a number of records in a subform and so they must answer the message box every time.
Is there any relatively straightforward way to accomplish the warning and undo when the user leaves the subform rather than the individual record in it?
A quick attempt at lost focus and before exit demonstrated that these were not the way to go.
For reference, here is the before update code and the module
Option Compare Database
Option Explicit
Private Sub Form_Before Update(Cancel As Integer)
On Error GoTo Err_Handler
Call Confirm_Change
Exit_Here:
Exit Sub
Err_Handler:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_Here
End Sub
Option Compare Database
Option Explicit
Public Sub Confirm_Change()
On Error GoTo Err_Handler
Dim Msg, Style, Title, Response
Beep
'Define message box
Msg = "You have made changes to this record. " & Chr(13) _
& Chr(13) & "Click 'Yes' to save changes " & Chr(13) _
& Chr(13) & "Click 'No' to undo changes "
Style = vbYesNo + vbExclamation + vbDefaultButton1
Title = "Record changed - Confirm save" '
'Check which button pressed
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then
MsgBox "Record has been updated with your changes", vbOKOnly, "Record saved"
Else
DoCmd.RunCommand acCmdUndo
End If
Exit_Here:
Exit Sub
Err_Handler:
MsgBox Err.Number & " - " & Err.Description
Resume Exit_Here
End Sub
View 2 Replies
View Related
Oct 31, 2014
I have recently added a subform to a form and wish to display the subform in Datasheet view. Whilst I can get the proper data and headings to display, I cannot figure out how to get the column widths to persist. I can adjust the column widths while in (main) form view right on the subfirm columns themselves but after I save and reload the main & subform form, the widths revert to some sort of default value.
I have also tried adjusting the columns in the subform's associated data table itself as well as adjusting the text box widths when the subform is displayed in Form view but it does not affect the column widths when the subform displays Datasheet view.
What is more annoying is that I have another subform in which I was able to make the Datasheet view column widths persist but I don't seem to be able to properly recall how I did it.
View 2 Replies
View Related
May 19, 2014
I have a subform that is essentially a blank table which users can create rows depending on how many they require and fill the table in.
I then want to be able to append a main table with the records that have just been created in the subform's table... but here is where an issue lies.
Main Table has 6 columns... subform table has 5.
I already have the value to put into the 6th column but Im just not sure how to do it... the value is obtained from the original form.
For each record, copy that record into the main table + adding another value into the extra column.
Is this possible? or doable?
View 4 Replies
View Related
Oct 8, 2006
Hi,
I have a query (SelectedData_Query) , on which a form (SelectedDataQuery_SubForm) in datasheetview is based, which is placed on a form (NAWInvoerForm) where customer adress data is put in. When someone clicks new case button on the NAWInvoer_Form, another form (CaseDateTimeInfo_Form) is opened, data is entered, but when the "CaseDateTimeInfo_Form" form is closed, the data in the subform in datasheetview on the NAWInvoerForm is not yet refreshed. So I tried the following:
Private Sub Form_Close()
'------------------------------------------------------------
' RefreshNAWInvoerForm
'
'------------------------------------------------------------
On Error GoTo RefreshNAWInvoerForm_Err
DoCmd.OpenForm "KlantNAW_InvoerForm", acNormal, "", "", , acNormal
DoCmd.RunCommand acCmdRefresh
RefreshNAWInvoerForm_Exit:
Exit Sub
RefreshNAWInvoerForm_Err:
MsgBox Error$
Resume RefreshNAWInvoerForm_Exit
End Sub
Which works just fine. After the form is closed, the name, adress and cases overview form is reopened and refreshed, thus the case that has just been created is shown nicely in the subform which is based on a query.
But it is starting to become bothersome, sometimes when I close the form in which I create a new case, I don't want to have the other form (NAWInvoerForm) reopening again.
So how can i make it so that when I close the form only the data in the "NAWInvoer_Form" is refreshed, without having to reopen the form again. I mean, in the background, the form is still open anyway. It just shouldn't keep popping up everytime.
It can't be hard, but I can't see it. I'm new at this. I have found some similar topics on this forum, but none which helps me out enough.
It should be something like:
On "thisandthatevent" do a "thisandthatcommand" on "thisandthatsubform" in "thisandthatform"
If I know how the syntax of that is done, it would help me out with some other problems I see coming in the near future. I've looked at, and tried some things based on this link: http://www.mvps.org/access/forms/frm0031.htm
But without success.
Can anyone help?
View 4 Replies
View Related
May 22, 2014
Is it possible to have a multiselect listbox on a subform with a datasheet view or do I need a combobox in this situation?
View 4 Replies
View Related
Mar 29, 2005
Hello, all.
I need to use a datasheet view for a subform, but I can't seem to find how to keep users from editing the column widths within the view. Help?
THANKS!
Tom
View 2 Replies
View Related
May 1, 2014
I m having a subform in datasheet view. whn i use a join query as the record source for the sub form, i am not able to add or update any record in the datasheet. Is there anyway to use a linked query as record source of the datasheet with editable property.
View 2 Replies
View Related
