This time I'm having some problems finding a way to determine the output of a scroll-down menu (or in my danish version of Access called "combination-box").
In the menu I can choose between a number of names from a table. But when I select the name and press the "OK" button that stores the data, only a number (and not the choosen name) is written in the table. How can I get the output-value of the drop-down to be the choosen name???
Please give me a simple answer and a simple solution... I'm a total newbie!!
// JR
PS. Mike, feel free to reply... I kinda like your style:-)
So I've got a form: - A set of unbound controls filters (using a dynamically-built WHERE statement) a subform in datatable view. - A set of bound controls displays the currently selected subform record; the two reflect one another. - A set of unbound checkboxes at the bottom allows the user to change which fields are displayed in the subform.
Turns out, all of this makes for a pretty big form. Some of the users have screens that will not fit the full form due to resolution settings, physical size, aspect ratio, etc. Whatever the reason, the result is one or both scrollbars appearing on the form.
The issue is this: Whenever the filter controls are changed, the form's Current event runs (because the After Update events for the filter controls all change the main form and subform's Recordsource). But the Current event causes the form to requery (or refresh?), meaning the focus returns to the control with Tab Index 1 (a "Home" button near the top of the form).
Thus, the form tends to "jump around" a lot when users are determining the records they want displayed.Is there a way to avoid this?
- Can I prevent the "Home" button from getting the focus during those times? - Alternatively, can I set the position of the scroll bars so the user doesn't see that jumping around every time a control is updated? I found some interesting ideas that worked for continuous forms, but mine is a single form, so bookmarking methods won't solve my issue.
I have been trying to make forms open scrolled to the top and have had very little success.
I found a function on the following site http://www.lebans.com/SelectRow.htm that works great as demonstrated and when I attach the following code to a text box the form scrolls to the top.
Private Sub Text98_Click() Dim lngret As Long lngret = fSetScrollBarPos(Me, 1) DoEvents End Sub
What I am trying to do is have the form scroll when it opens but by attaching the above code to the form's on_open event there is no effect.
I have a form and in the form is a subform. When I add a record with the following code, the subform detail scrolls in such a way that you can't see the record you just added...only a single blank new record. Can you set the scroll position so that I can see all the previous records including the one I just added?
Private Sub Add_PROJ_RECORD() On Error GoTo Err_Add_Click Me.PROJECT_DATA.Locked = False Me!PROJECT_DATA.SetFocus DoCmd.GoToRecord , , acNewRec Me.PROJECT_DATA.Form.PROJ = PROJ_COMBO Me.PROJECT_DATA.Form.SPEC = SPEC_COMBO Exit Sub
Whenever I export reports to PDF, the output appears zoomed and clipped. No extra pages are generated as they would be if I'm going over margins, it's just the report is clipped.
The report looks perfect in preview mode, and it looks perfect when going to an actual printer. However, when using OutputTo to save it as a PDF, this is when the report content is clipped.
I open the report in preview mode first so events are fired that show/hide various objects based on fields in the recordset.
I've tried reinstalling, and I've tried this on two different machines, one running Windows 7 and one running Windows Server 2008...both with the same results.
Hi everyone, I was trying out the options on the startup item of the tools item on the menu bar and my access window has gone except the following menu items: File,Window and Help. Can someone kindly show me how to bring back these seemingly lost items? Thank you for your willingness to help me out!
I have a form. In it is a status field that can be:
NEW SENT CREDIT COLLECT CLOSED
When the item is created, it is given a "NEW" Status. And there is a command button on the form that can change the status to "SENT". However, based on external factors (email received or system report examined) the user can manually change the status to the CREDIT, COLLECT or CLOSED. Now, I want to make sure that then can't change the status manually to "SENT", only the system is allowed to do that via the command button.
How can I allow them to use some of the allowed values, but not others?
Dont understand what is controlling these decimals. I dont need any decimals for this database. The currency is talking bout money in 1000's and the probability is whole numbers.
The subform is based on a query. The two are linked on the 'week' value.
Now, this is what I want to do:
The user must not be able to edit data in the subform (so should I use a report instead... but then will I be able to do 2...). Selecting a row in the subform should cause the whole form to go to that record so that the user can then modify info in the fields of the main form.
I don't know VB - the only code I've used is gleened from searching these forums (a great resource, so I'm learning slowly), so I'll need a bit more than 'Do a wrzmitchigob on the bleedlethrop'!
My report has the Section's Footer. Each time the section runs, it will take up a different amount of space. I have already run all the code, to move all the different controls to the top (and be invisible) when they are not needed. So to the best of my knowledge, I have no controls sitting in the lower part of the section. The last thing I run is: Code: Me.S123.Height = Me.S123.Height - 300 s123 is the name of the Footer SEctions. The idea is that it gets progressively smaller. This is all running in: Code:Private Sub S123_Format(Cancel As Integer, FormatCount As Integer)
All the other things work. Here is a sample of it all.. Code:If Me.txt2 = 0 Then Me.a2.Visible = False Me.b2.Visible = False Me.a2.Top = 0 Me.b2.Top = 0 Me.box.Height = Me.box.Height - 300 Me.S123.Height = Me.S123.Height - 300End IfIf Me.txt2 <> 0 Then Me.a2.Visible = True Me.b2.Visible = TrueEnd IfIf Me.txt3 = 0 Then Me.a3.Visible = False Me.b3.Visible = False Me.a3.Top = 0 Me.b3.Top = 0 Me.box.Height = Me.box.Height - 300 Me.S123.Height = Me.S123.Height - 300End If
This runs through 8 different numbers. as I said, all the other things operate properly. They get hidden and move.
Is it possible to control a lighting system from Access using a combination of VBA code or Active X add ons with some specialist hardware and cabling attached to the PC, etc ?
To be more specific, I've designed a Snooker Hall Management program and want to be able to turn the lights on over the Snooker table when you start a game in an Access form...My application has 8 tables but could be expanded obviously.
I'm happy with the Access side of things (first attempt at a real world solution, etc) but to be totally polished a hardware interface to control the lights would really create a 'wow' factor...
Any help or direction would be greatly appreciated :)
I'm v.new to Access so do excuse my ignorance. I have a form with a combo-box with the following values: Trust, Course, Overseas, GP When Trusts is selected I'ld like frmtrust_sub to appear. When anything else is selected I'ld like frmnontrust_sub to appear Once the data has been entered in the subform the user would continue back to the main form. I'ld like the subforms to remain hidden until needed, if possible so as not to confuse users.
I’ve copied this piece of code and have tried pasting it into the “after update” event procedure but I get this error message
“the link masterfields property section has produced this error “Ambiguous name detected: Type_afterupdate”
Private Sub Type_AfterUpdate()
Option Compare Database
Sub ShowSubform()
'Save unsaved changes to currently open subform DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
'Display appropriate subform based on Type chosen If Type = "Trust" Then frmtrust_sub.Visible = True frmnontrust_sub.Visible = False
ElseIf Type = "GP" Then frmnontrust_sub.Visible = True frmtrust_sub.Visible = False
ElseIf Type = "Course" Then frmnontrust_sub.Visible = True frmtrust_sub.Visible = False
ElseIf Type = "Overseas" Then frmnontrust_sub.Visible = True frmtrust_sub.Visible = False
ElseIf Type = "Other" Then frmnontrust_sub.Visible = True frmtrust_sub.Visible = False
End If
End Sub
Private Sub cmdClose_Click()
'Close form DoCmd.Close
End Sub
Private Sub Form_Current()
'Call subroutine to display appropriate subform based on template type ShowSubform
End Sub
Private Sub Type_AfterUpdate()
'Call subroutine to display appropriate subform based on template type ShowSubform
Developing in Access 2000. The mouse roller button moves to the next record in a form. Does anybody know how to trap the roller button? Setting me.cycle to 1 prevents the same happening when you tab from the last field but does not stop the mouse roller ball.
Can i set the physical dimensions of the MS Access main window from code, like when I open my first form?
My main development computer has a massive big screen, but I mainly program for 1024x768 screen. When the database appears on my screen I'd like to resize it bigger as I see fit, but have my code open it to a 1024x768 sized screen when it opens on someone else's computer.
I have one form "Products" that I have a button on which opens up another form. The second form lists a different number of lines depending on how many items are in a group.
The problem I am having is that I can not make the second form shrink or grow depending on how many line items I have in each group. Currently, I have to make the form as large as the most possible lines I could have (which is 19) but sometimes I might only have 5 lines in a form.
I have spent the better half of the afternoon researching how to accomplish controlling a bold font in a string I am building and sending to Excel.
Code: ' set text for safety hazards and controls Concretetxt = "Concrete Demolition & vbCrLf & Hazards - dust, flying debris and skin Irritation. & vbCrLf & Control - Respirator, goggles, gloves, inspect equipment prior to use." Excavationtxt = "Excavations & vbCrLf & Hazards - Damage to underground wires, collapse, falling materials/equipment. & vbCrLf & Control - Ensure utilities have been marked and hand dig when in close proximity, shore properly, Keep clear when lowering materials."
This is a sample of how the strings will build. I will select a task like Concrete Demolition and string it together with other tasks I would like "Concrete Demolition" in bold with the blurb following it then the next task would follow with a bold heading.
My thought is now that it may be easier to control by putting this data into a table instead of building the strings.
I am trying to figure out how to control a navigation tab with a checkbox. I have a database for my fire dept and the check box is called "deceased". When a member passes away, the active box gets unchecked and deceased gets checked. Under the member subform, there is a tab, navigationbutton19, that is called deceased also and under this tab all their burial information is stored. What I am trying to do is, if the checkbox is not checked, I want the tab to be enabled = false.
I have several forms that are set to open on a new record. I'm finding that while I'm working on the design of these forms I'm creating alot of blank records. This makes me think that when users start opening these forms, they may end up creating a lot of blank records as well. I think this is happening because there are controls on these forms that have default values set in them.
Is there a way that I can control how and when an actual new record is created from a form? I was considering using a particular field as a trigger, once it has a value, the record is created. If it is null, then the record is discarded. If I make a certain field a required field in the table, will that prevent a record from being created without an error message?
I am running Access 2010 on a Windows 7 platform and attempting to write a simple database for a local charity, and whilst I have basic skills in Access I would not put my level higher that enthusiastic amateur.I have a couple of fields, one called 'Income' which is a simple currency field. The second field is called Frequency and is a combo field where the user can choose from Weekly; Monthly; Quarterly; or Annual.
The database user enters data taken from a survey sheet which captures the income of an individual along with the frequency of the payment.The requirement.I would like to create a calculated field which gives the annual income.
Example: Income = $5,000 Frequency = Monthly the calculated field would return (5,000 x 12) = 60,000
Equally Income = $1,000 Frequency = Weekly would return (1,000 x 52) = 52,000
I have developed a Kiosk interface for an insurance database application. I have turned off the Ribbon and most controls. I would like to be able to turn on document tabs when I generate a report in view mode. If there were document tabs at the top the user could just get rid of the window.
If I turn on the document tabs each windows that is present is under a different tab until they navigate backwards.
The other option is to always print the report but would like to view it first.
I want to have a MS Access 2000 database open, load a Form with various option buttons on and get Windows Media Player to play a MP3 music file. However, when I click a option button on the Form I want the music to stop.
I have a nice chart that hasd done what I wanted it too.
Now I want to make the amount of X-AXIS data variable. Typically this would be 64 points. If you look at the datasheet, I can manually set the number of points by making sure the row selector is "raised".
Now that's say there is only 16 points of data to control. I can plot that those points but the chart is still 64 points wide with no data for points 17-64.
How can I, through code, prevent points 17-64 from plotting and thereby expand the graph horizontally larger and not display those null points?
I have tried a number of things including: objDataSheet.Row(17).Delete Graph_Data.Range("A1:A16:) etc...
Nothing I have tried has worked. Is what I need to do possible?
I'm currently making a form to display employee info in a nice fashion..
Anyway I have the employee photo displayed in an image control.
I want to be able to apply some tricks to the borders to make it look better. To do that, I need to make the width property equal to the width of the actual image while the height is restrained
