I created a database which was working well. I then added my data and it still seemed to be working well. Since then I have made quite a few other changes, but only to queries realting to the subform.
When I cycle through my main records the subform shows and displays all the info. But when I get to the end to add a new record, the subform disappears.
Whenever I come to a record that does not have any data in my subforms, then (as you can expect) my subform controls disappear.
My subforms have "Allow Additions" set to YES.
The subform tables are linked through a LEFT JOIN.
I would like the controls to stay visible even when there are no records in the subforms.
I tried to set the subforms ID to the main forms ID thinking that this will at least generate an autonumber to make the subforms controls visible, but it did not work
I've created a form and when i create a user it goes through without a problem. However when i try to create another user, my code somehow deletes the last record. Where am i going wrong?
Code:Option Compare DatabaseOption ExplicitPublic s As StringPublic Check1 As StringPrivate Sub cmboSC_ID_AfterUpdate()Me.txtSC_ID = cmboSC_ID.Column(0)Me.txtSC_NAME = cmboSC_ID.Column(1)Me.txtSC_PASSWORD = cmboSC_ID.Column(2)Me.txtSC_LEVEL = cmboSC_ID.Column(3)Me.txtSC_PROGRAM = cmboSC_ID.Column(4)If Check1 = "DEL" ThenElseCheck1 = "MOD"End IfMe.txtSC_ID.Visible = TrueMe.txtSC_ID.SetFocusMe.cmboSC_ID.Visible = FalseMe.cmboSC_ID = "" Me.cmdUpdateADO.Enabled = TrueEnd SubPrivate Sub cmboSC_ID_GotFocus()cmboSC_ID.RequerycmboSC_ID.DropdownEnd Sub Private Sub cmdClear_Click()Check1 = ""Me.txtSC_ID = ""Me.txtSC_NAME = ""Me.txtSC_PASSWORD = ""Me.txtSC_LEVEL = ""Me.txtSC_PROGRAM = ""Me.txtSC_ID.Visible = TrueMe.txtSC_ID.SetFocusMe.cmboSC_ID.Visible = FalseMe.cmdDel.Enabled = TrueMe.cmdUpdateADO.Enabled = FalseEnd SubPrivate Sub cmdClose_Click()DoCmd.CloseEnd SubPrivate Sub cmdUpdateADO_Click()On Error GoTo ADOErrhandlerDim ADOrs As ADODB.RecordsetDim sSQL As String 'sSQL = "Select * from tblSecurity;" 'Set rsADO = New ADODB.Recordset'rsADO.Open sSQL, CurrentProject.Connection, adOpenKeyset, adLockBatchOptimisticIf Check1 = "ADD" ThensSQL = "tblSecurity"Set ADOrs = New ADODB.RecordsetADOrs.Open sSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimisticWith ADOrs .Fields("SC_ID") = Me.txtSC_ID.Fields("SC_Name") = Me.txtSC_NAME.Fields("SC_Password") = Me.txtSC_PASSWORD.Fields("SC_Level") = Me.txtSC_LEVEL.Fields("SC_Program") = Me.txtSC_PROGRAM.UpdateEnd WithSet ADOrs = NothingMsgBox Me.txtSC_NAME & " Added" ElseIf Check1 = "MOD" ThensSQL = "Select * from tblSecurity where tblSecurity.SC_ID = '" & txtSC_ID & "';"Set ADOrs = New ADODB.RecordsetADOrs.Open sSQL, CurrentProject.Connection, adOpenDynamic, adLockOptimisticWith ADOrs .Fields("SC_ID") = Me.txtSC_ID.Fields("SC_Name") = Me.txtSC_NAME.Fields("SC_Password") = Me.txtSC_PASSWORD.Fields("SC_Level") = Me.txtSC_LEVEL.Fields("SC_Program") = Me.txtSC_PROGRAM.UpdateEnd WithSet ADOrs = NothingMsgBox Me.txtSC_NAME & " Edited" ElseIf Check1 = "DEL" Then sSQL = "Select * from tblSecurity where tblSecurity.SC_ID = '" & txtSC_ID & "';"Set ADOrs = New ADODB.RecordsetADOrs.Open sSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic ADOrs.DeleteSet ADOrs = NothingMsgBox Me.txtSC_NAME & " Deleted"ElseMsgBox "An Error Occurred. The system doesn't know which action to take"End IfSet ADOrs = NothingCall cmdClear_ClickExit SubADOErrhandler:Select Case Err.Number Case ElseMsgBox Err.Number & vbCrLf & Err.DescriptionEnd Select End SubPrivate Sub txtSC_ID_AfterUpdate()Dim DAOdb As DatabaseDim DAOrs As DAO.RecordsetDim sSQL As StringDim s As StringSet DAOdb = CurrentDb()s = "Select * from tblSecurity where tblSecurity.SC_ID = '" & txtSC_ID & "';"Set DAOrs = DAOdb.OpenRecordset(s)If DAOrs.EOF Then'New recordCheck1 = "ADD"txtSC_ID.SetFocusElse'Exisitng RecordMe.txtSC_ID = DAOrs("SC_ID")Me.txtSC_NAME = DAOrs("Sc_Name")Me.txtSC_PASSWORD = DAOrs("SC_Password")Me.txtSC_LEVEL = DAOrs("SC_Level")Me.txtSC_PROGRAM = DAOrs("SC_Program")Check1 = "MOD"End IfDAOrs.CloseDAOdb.CloseMe.cmdUpdateADO.Enabled = TrueEnd SubPrivate Sub txtSC_ID_DblClick(Cancel As Integer)Call cmdClear_ClickMe.cmboSC_ID.Visible = TrueMe.cmboSC_ID.SetFocusMe.txtSC_ID.Visible = False End SubPrivate Sub cmdDel_Click()Call cmdClear_ClickMe.cmboSC_ID.Visible = TrueMe.cmboSC_ID.SetFocusMe.txtSC_ID.Visible = FalseCheck1 = "DEL"End Sub
I inherited this database and I can't figure this out so I'm looking for some causes.
the database is in one .mdb file, the interface in another and links to the database via the linked table manager.
The tables aren't normalized, nor was there any attempt at relational integrity (Strike 1). Thats obvious
But what isn't so obvious is that data in fields just disappears, it'll get entered, verified and a couple weeks/months later, its just gone and no one claims responsibility for taking it out (and in 99% of cases, we wouldn't)
It is a multi user database but there are only 10 people in the office and I doubt more than 3 are ever connected at once. And most of the time is only one of us at a time based on our schedules.
Anyone have any ideas? I'm going to advise the bosses that we take the time to start over with sql server, normalize the tables and take better care of developing the forms (in .net)
In the form view of the db I have a bound box for an embedded ole object I use it to embed Word documents for each db entry (The database is for works of art and the Word document is the description of each work of art which often contains Chinese Characters, hence the Word Document)
The box is set to show an icon (The Word Icon) Upon entering the data and moving off the record, subsequent return to to the record sometimes shows that the icon is gone from the box, it is blank. Clicking the blank box brings up the Word Document but then closing the Word Document and re-clicking the blank box dos not bring up the Word Document. The standard message saying that the ole object is empty appears and all the data from the Word Document is lost.
this has only happened since moving to Office 2007. I upgraded the db to 2007 format and we are using Word 2007.
A Google of the symptoms doesn't bring any meaningful results, does anyone have any ideas?
I tried to keep this as short as possible (which wasn't easy) if you need more info just ask
I have a calculated field in a form that calculates the amount due. When I open the form or the record and the record has an amount due of 0, then the field says "$0.00" for a second and then disappears. Any idea why this is so? This becomes a problem because $0.00 doesn't appear on any reports either. Any help would be appreciated!
In Access 2010, I can't get a form to show up in Pop Up mode without it disappearing. Tried several solutions (most from this message board) with no luck, including:
Set Modal = no Set Auto Resize = no Set Auto Center = no Set Border Style = dialog
There isn't any VBA set to run when the form opens, only on button clicks.I'm able to call out the form to open as acDialog in vba, but this blocks additional code I need to prepopulate the form.So far this happens on all forms I try to set as Pop Up.
Hello, MS Access 2000 sp3 When adding a new record to an order file, I have a default value on the ordnum field. It also has a format = "9999-999". The default value is "0603-". When the user clicks on the new rec nav button, the form has the correct default in the ordnum field "0603-". However, when the user trys to key in the remaining 3 digit sequence number (.i.e. result 0603-123), the default value disappears as soon as the use startes to type the first character. The table source is a query that links the order table to the customer table via cust num. When i use only the order table as the form source, this works ok, no issues but i see this issue when i am using a query joining two tables. Does anyone have any ideas why or how I can correct this? Thanks!! zip file attached with test database
I am making up how to create a database as I go along so I am sure some of the techniques I have used are a bit unconventional! However, I wanted to use data from 2 different tables as control sources, so changed the record source to a query that combined the two tables. I thought this was correct as I could then apply control sources from both tables to fields.
However, now when I click out of design view and into form view, the form/database dissapears. Does anyone know why & how I could resolve this?
I have a calculated control on a form that is summing other controls and then a subtotal on a subform. This is access 2007
The calculated control does not display the value until I enter a value other then the default in all of the source controls. If I hit the "refresh" button, the value appears in the calculated control for a moment, then disappears.
I have set the default of the source controls to be 0, so none are null.
the calc control value does not stay until I put a value in the subform and its subtotal thus has a value
I have two related issues with reports. That is the data shows in report view and then disappears. The first is the simplest. I have a report that has a query recordsource and I calculate totals and populate the report in the OnLoad event using VBA code. This displays perfectly in "report view" and prints or exports fine. My issue is that after the print or export, the report has no data in my fields in "report view". It is like it is reloading the report without invoking the OnLoad event. When I close the report and re-open in report view, everything is fine again until I print.
The second issue is related. I have another report that is a bit more complicated. Due to the number of controls (I use many text boxes to display my calculations), I am using 3 subreports to get around the limitations in the number of controls. In report view, the report looks fine, but when I scroll down to the bottom and then back up, the text boxes in the subreport sections are empty. The parts of the report not in subreports is fine. By using "Msgboxes" in events, I discovered that when I scroll down, the subreports close, then re-open when I scroll back up. Again, due to an Access limitation of 22 inches per section, the I placed the subreports in the "report Header" section. It appears that my problem occurs when I scroll down to the "detail" section of the main report.
I have a simple SQL query that is e-mailed when there are >0 records. Fairly consistently, the SQL code in the query is wiped out and the query fails. It happens consistently to this query, even though I have many similar queries. I am running Access 2013 in Windows 7
SELECT AR.[Inv#], [History Header].[PO#], AR.[Customer Name], AR.Date, AR.Mdse, AR.Freight, AR.Amount, AR.[Due Date] FROM (AR INNER JOIN [History Header] ON AR.[Inv#] = [History Header].[Inv#(number)]) LEFT JOIN [Advanced Engineering Payment Reminder Sic]
For example if I open up the Access database on my left monitor, then move it to my right - whenever I switch from design to form mode the form disappears. Moving Access back over to the left monitor will not show the form. Minimizing all windows except Access won't show it either. If I switch to layout view, then form view it will show on the monitor I have Access up on - but if I go back to Design and then form it will disappear again.
If I move Access to the left monitor (in this example). open the form in design and then form view it pops up visible. Seems clear that it ties the opening position of the popup to the monitor Access was opened on.
I have a footer in my Report that contains subtotals. I'd like to add a textbox that says "Total" to my report, and although this label shows up when I view the report, it disappears if I export to Excel. How to prevent the label from disappearing when I export? (Attached a screenshot of my report's design.)
Is there an efficient way to have default text in a textbox on my form (like a search box), but have it so that when a user focuses on the textbox (to type in a search term), the word should disappear.
Just like the search box on windows 7 start menu.
Then, is there a way to have the default text not be the actual text in the box? Otherwise, my search box will search the default text.
My database is replicated. When new fields are added to a table that is tagged as replicable, the field is there but not visible. (there are other fields that are visible) This affects queries based on the new fields as they do not show up in the query.
However, when I make the table non-replicable, I see all my previously hidden fields and of course my queries, query-based reports work fine.
Any suggestions? I've already run the compact & repair utility with no improvements.
I am designing an application in Access 2003 and it's pretty much working now.
I have a main form set to automatically open (through database startup).
sometimes, access disappears before even showing the form. The ldb file remains in the folder and access does not show up in Tasks (so it's really terminated).
I do have On_Load event code in the form, but nothing drastic and I went through and made sure that all subs have Error Handlers.
It doesn't give me any error messages, just disappears. This also happens when I try opening the main form from the open Access app, but not as often.
Usually, if I open by holding Shift, enter the form in Design view and close it, it then opens no problem.
Any ideas? I searched and googled, but to no avail.
I have a form, a couple of comboboxes and text boxes on it. When these are filled out, the SQL of a query is changed using these parameters.
There are three subforms on the form, all pivot charts, all based on the query being changed.
The goal would be to update all three according to the user-given parameters.
Right now the subforms only update if I close and open the form, which is probably not the best solution, since it's too slow.
I've also tried to requery and refresh them, with no result.
Then I tried to overwrite the recordsource of the subforms with the same text that was originally there. This got them to refresh their data, but then all of the charts disappeared and had to be built again, so this is a no go too.
I have two subforms on a main form. Both use similar queries and nearly the same set of records and PK. The first subform is for data entry and the 2nd subform is a continuous form that lists the entries in order that are made from the 1st Subform. (for entering in vacation days and appointments)
The continuous form cannot be edited, it is to be a list for viewing the information only.
I have an edit button next to each record on the continuous form. When the button is clicked, I want it to take the 1st subform to that specific record as well (same PK), so the information can be edited there.
I cannot figure out how to get the 1st subform to go to the record on the continuous form when the button next to that record is clicked on the continuous form.
I tried the DoCmdSearch for record and just keep getting object is not open errors.
I have a data entry subform that is only supposed to show an empty record ready to be populated, and a display records subform that is supposed to show all the records. The subforms are both on the same tab of a tab control on my main form.
Problem 1: The data entry subform shows all the records rather than a blank record. Something on my main form is causing it to show the records when it should not. Any ideas? The Data Entry is set to Yes.
To try to isolate the problem, I created a new form and added the subform to it where it behaves properly:confused:
I then added Me.DataEntry = True to the form open to see if that would solve my problem but it still sets the data entry to no.
If I have the properties box open when in form view of my main form, I can set the data entry to Yes and it works fine until I move to the next record of the main form when it resets to no. Teraing my hair out here.:mad:
My final attempt was to search the entire project to see if there is a "DataEntry = False" somewhere but there isn't. What is setting this property? Any ideas where I should look?
Problem 2:
After entering data in the first subform (data entry form), I want to re-query the second subform but I just can't get the syntax right. I have wrestled with the "Syntax for subs" document downloaded from http://www.mvps.org/access/forms/frm0031.htm (Microsoft MVP site) but to no avail.
My main form is called fdlgPrjDetails, the data entry is via fsubPrjCommentsUsersDataEntry and the subform I wish to requery is fsubPrjCommentsUsers.
None of the attempts below worked giving a cannot find control error.
Private Sub Form_AfterUpdate() On Error GoTo ErrHandler
im having problems getting a subform to calculate another subform's total and display it as it keeps coming up with the #NAME?.Basically my database is like this
tblCustomer - tblOrders - tblItems
and this is displayed on a form. so you can flick through clients, then flick through the orders and its broken down into the items inside each order.i have seen many answers that are only about calculating something on a subform and displaying on a form but this does not work when displaying on a 'parent' subform. the form structure looks like this
i have a calculated control textbox in the footer of sFrmCustomerOrders with sums up all the prices using =sum([Price])and in my sFrmCustomerItems, i have a field called Amount (the total amount of all the items) and the Control Source formula i was using was =[Forms]![sFrmCustomerOrders]![sFrmCustomerItems]![txtTotalPrice] but i get a #NAME? error.
I didn't know that Access is supposed to only have 2 subform deep. On my form, I have three subform deep. However, the master form is unbound, not linked to subforms, and nothing more than a container for tab pages which contains their own subforms and has no code directly associated with data. There is a code to move subform to new record when tabs changes, but that's all.
Does that mean there is really only two subforms deep from the topmost form on the tab page or the subform depth has been exceeded whether the master form has no role in data transaction?
I have a form with a combo box, and 2 subforms from it. When you select in the combo box (Group), it brings up the choices (Sections) for that group in a subform. Then there is another subform, that is supposed to bring up a series of questions that are related to the section that has been selected. The question field has a drop down to a list table, that has all the questions. Once the question has been selected, it stores in a Master table. The relationship is there. If you try to select any questions that do not pertain to the section, it gives you an error message.
What I need it to do, is when the section is selected, filter out the questions that pertain to that section, and have those questions be the only ones available in the drop-down list to choose.
I know that I need to have an After Update code once the section has been selected, but not sure how the coding should be.
I have a form with a combo box, and 2 subforms from it. When you select in the combo box (Group), it brings up the choices (Sections) for that group in a subform. Then there is another subform, that is supposed to bring up a series of questions that are related to the section that has been selected. The question field has a drop down to a list table, that has all the questions. Once the question has been selected, it stores in a Master table. The relationship is there. If you try to select any questions that do not pertain to the section, it gives you an error message.
What I need it to do, is when the section is selected, filter out the questions that pertain to that section, and have those questions be the only ones available in the drop-down list to choose.
I know that I need to have an After Update code once the section has been selected, but not sure how the coding should be.
i have a form with 2 subforms. when the user selects a record in subform one. the date of that record filters subform 2. in the source query of subform 2 i have this under criteria