Enable View -->Zoom
Sep 13, 2007Hi there,
The View --> Zoom is in frozen state right now.I am trying to enable the View--> Zoom function but i dont see any option anywhere to set it on.
Please advice.
Thanks
Danny
ADVERTISEMENT
Zoom Function
Feb 27, 2006I have taken great advantage over coding in the "Zoom function" when a user double clicks on a large text box, so data entry is easier (for memo fields and such).
On the double click event, I add the following code:
SendKeys "{+F2}", True
Works great.
Only problem is, one user discovered if they tried to enter a hard return, the enter key activates the "OK" button, which closes the zoom box.
Is there anyway to code around this, or a seperate zoom function that will allow a hard return?
Thank you,
T.J. Bernard
How To Turn The Report Zoom To 100%?
Jul 15, 2007How can I make the default zoom of the Report to 100%. Is there any way?
Thanks,
Embedded Excel OLE - Need To ZOOM!
Sep 29, 2005I have an embedded excel workbook on an Access form (Access 2002)
I would like to change the zoom of the excel "view".
I've tried this:
' xlCharts is an embedded XL workbook
xlCharts.Object.Parent.ActiveWindow.Zoom = 100
I get an error that says:
"Unable to set the Zoom property of the Window class"
However, if I READ the zoom level, it works fine. The zoom property of the window class in excel is read/write, but this may not be the case for embedded OLE objects. Is there another way? Does anyone have any ideas?
Forms :: Zoom In PDF On WebBrowserControl
Jan 6, 2014I am trying to zoom in a PDF document that opens in a webbrowsercontrol on an access form.I currently am trying to use SendKeys for the zoom in. Here is the code I am trying to use for zoom in. The problem I am having is that when I click cmdzoomin, the PDF rotates clockwise, doesn't zoom.
Quote:
Private Sub cmdzoomin_Click()
On Error GoTo ErrorHandler
Me.WebBrowser5.SetFocus
SendKeys ("^{+}")
ProcedureExit:
Exit Sub
[code]...
The odd thing is that my zoom out button works fine. SendKeys ("^{-}"
Zoom Feature In A Form
Jan 1, 2015I would like to add a zoom feature to a form. If I size the window down to the point where it cuts off some of the fields, I enabled the vertical and horizontal scroll bars for the user to navigate throughout the form to see everything they need to. However, is there a way to size the contents in the form down, in other words, zoom out so even if I size the window down, I can see everything in the now smaller window?
View 6 Replies View RelatedLocking Zoom % On Report Preview
Dec 6, 2005Every time a report is opened, it displays the page at 100% - thus allowing you to view a small portion of the document.
Is there a way to lock the zoom at 75% to view the overall page upon opening the report?
Thanks,
John D
Can You Zoom In A Form To Fit Screen As With Excel
Feb 3, 2005I have a form that is too big to view on one screen without scrolling down, is it possible to shrink it so that I can view it all, similar to the facility in Exel? I have tried the Scale & Resize MDE solution that is suggested in the threads but this only resizes your original to fit other screen resolutions - neat idea but it is not what I want as it still shows the original form nut pro-rata to the screen size.
I am not distributing the app so anything I do local to my machine to get it to work is fine.
General :: Code For OnClick Zoom A Image
May 5, 2015I am new to VBA for access. I am working on a form as a user interface. I have added an picture to the form. It looks small, and not clear because of the size, and each image has different size. I would like to know if there is a VBA code that will allow me to click on it, and then it will open in another window so it is bigger with the right sizes. I attempted like this:
Code:
DoCmd.OpenForm "Prova", , , "Campo1=" & Campo1
but don't work
Prova is another form and Campo1 is the field with the picture.
I also need to save about 120,000 images. I wonder if the best solution is to use the attachment for the field type or another. What format should I Whereas in the mask I preview. And if Access internally saves the images or not.
General :: Can Open Print Preview In Zoom With VBA?
Aug 19, 2014Can you force print preview to open in zoom 100% mode with VBA?
View 3 Replies View RelatedTables :: How To Display Large Print In Zoom Box
Mar 22, 2015I use Access 2007 and Windows XP
When I want to display a Zoom box by Shift + F2
The Zoom box appears small print, while the text field has been seized in Arial 12 type.
How to display in large print in the zoom box
As it was entered into the original table?
Forms :: Text Boxes Showing In Design View But Not Display In Form View
Apr 19, 2014I have a Form which I have linked correctly to a subform. The Text boxes are showing in the Design view but are not when one switches to the Form View. Labels for Fields are visible in the Form View. Have even created a new subform and that will also not display the Text Boxes.
View 1 Replies View RelatedForms :: Unable To View Object Properties In Form Design View (Access 2010)
May 16, 2014Why the ability to view the properties of an object within a form is not available when you double click on it in design view?
I was happily working away double clicking on a command button to edit some code when for some reason the next time I tried to edit it did not open up for me.
I was unable to access it even by right clicking on the object & selecting properties as that also appears to be disabled, not greyed out or anything but just does nothing when selected.
Have I inadvertently changed a setting somewhere that prevents the properties from being displayed?
How Do I Show The Subform As Form View Instead Of Datasheet View :confused:
Jul 19, 2007See 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?
!!??? All My Forms Are Blank Under Form View - But Fine Under Design View!!!
Jul 13, 2006Anybody ever heard of this before? I open a form, and it is empty, just a blank window. I open the same form in Design View, all appears well. :mad:
View 2 Replies View RelatedField In Design View Not Showing In Table View
Jul 2, 2007I have a table called NewTransactions_tbl that I have been using for some time. I am trying to add a new field called CustomerProjectNumber. It's not being displayed when I look at the table view. I've attached an image showing the settings for the field. I am probably missing something obvious.
Any ideas why it is not showing?
I am using Access 2000.
Forms :: No Filters - Cannot View All Records In Form View
Aug 27, 2013I have 4 tables and around 440 records but can only view up to 417 in the form I have designed. I have been adding new records via form and it has been added to my main table, but when i try to view it in form view - the record is not available to view. What do I need to do to correct this problem?
I have checked that there are no filters, data entry is set to No, Auto deletions, additions and edits are set to yes.
Also to mention it seems that the problem has arisen since I set up some new queries, there is a one to one relationship between the tables!
Forms :: From Pivot View To Filtered Datasheet View
Nov 14, 2013I want to "zoom" to the underliyng data from pivot view. When in excel someone doubleclicks a field in a pivot table, it automatically creates a table containing all the lines that field were made up from. I want to achieve the same behaviour in Access.I started to think towards a VBA coda, that could be initiated from the form's double click event. It should go to datasheet view with the prpoer filter criterias.
View 1 Replies View RelatedEnable Passwords
Jun 12, 2007I've created users and groups in my access database and assigned the permissions. My security wizard is not working. How do I enable the secuirty-- force the users to logon with a username and password?
View 3 Replies View RelatedEnable Toolbars
Jan 28, 2008Hello Guys,
I need to know how to enable toolbars and edit a text in a report...
the database is locked by previous employee and I can't get to design view so I can change a text... There isn't any tool bar up there.. just EXIT button..
Thank you in advance.
Yes/no Enable Disable
May 23, 2005Here is my problem: When a certain yes/no box is true (checked) other fields on the form are not enabled. That works just find when I am on the record that I click the yes/no field. When I go to another record and then go back to the previous record the fields that should be disabled due to a certain yes/no box being true are now enabled and not disabled. Below is my code. Can anyone tell me what I am doing wrong?
Private Sub Form_Current()
SetCheckBoxes
End Sub
Private Sub SetCheckBoxes()
If Me.StaPrimary = True Then
Me.StaUp.Enabled = False
Me.StaUpTrainerFirstName.Enabled = False
Me.StaUpTrainerLastName.Enabled = False
Me.StaUpVerifyDate.Enabled = False
Me.StaUpReverifyDate.Enabled = False
Me.StaBack.Enabled = False
Me.StaBackTrainerFirstName.Enabled = False
Me.StaBackTrainerLastName.Enabled = False
Me.StaBackVerifyDate.Enabled = False
Me.StaBackReverifyDate.Enabled = False
Me.StaOther.Enabled = False
Me.StaOtherTrainerFirstName.Enabled = False
Me.StaOtherTrainerLastName.Enabled = False
Me.StaOtherVerifyDate.Enabled = False
Me.StaOtherReverifyDate.Enabled = False
End If
If Me.StaPrimary = False Then
Me.StaUp.Enabled = True
Me.StaUpTrainerFirstName.Enabled = True
Me.StaUpTrainerLastName.Enabled = True
Me.StaUpVerifyDate.Enabled = True
Me.StaUpReverifyDate.Enabled = True
Me.StaBack.Enabled = True
Me.StaBackTrainerFirstName.Enabled = True
Me.StaBackTrainerLastName.Enabled = True
Me.StaBackVerifyDate.Enabled = True
Me.StaBackReverifyDate.Enabled = True
Me.StaOther.Enabled = True
Me.StaOtherTrainerFirstName.Enabled = True
Me.StaOtherTrainerLastName.Enabled = True
Me.StaOtherVerifyDate.Enabled = True
Me.StaOtherReverifyDate.Enabled = True
Me.StaPrimaryVerifyDate = ""
Me.StaPrimaryReVerifyDate = ""
End If
If Me.StaUp = True Then
Me.StaPrimary.Enabled = False
Me.StaPrimaryTrainerFirstName.Enabled = False
Me.StaPrimaryTrainerLastName.Enabled = False
Me.StaPrimaryVerifyDate.Enabled = False
Me.StaPrimaryReVerifyDate.Enabled = False
Me.StaBack.Enabled = False
Me.StaBackTrainerFirstName.Enabled = False
Me.StaBackTrainerLastName.Enabled = False
Me.StaBackVerifyDate.Enabled = False
Me.StaBackReverifyDate.Enabled = False
Me.StaOther.Enabled = False
Me.StaOtherTrainerFirstName.Enabled = False
Me.StaOtherTrainerLastName.Enabled = False
Me.StaOtherVerifyDate.Enabled = False
Me.StaOtherReverifyDate.Enabled = False
End If
If Me.StaUp = False Then
Me.StaPrimary.Enabled = True
Me.StaPrimaryTrainerFirstName.Enabled = True
Me.StaPrimaryTrainerLastName.Enabled = True
Me.StaPrimaryVerifyDate.Enabled = True
Me.StaPrimaryReVerifyDate.Enabled = True
Me.StaBack.Enabled = True
Me.StaBackTrainerFirstName.Enabled = True
Me.StaBackTrainerLastName.Enabled = True
Me.StaBackVerifyDate.Enabled = True
Me.StaBackReverifyDate.Enabled = True
Me.StaOther.Enabled = True
Me.StaOtherTrainerFirstName.Enabled = True
Me.StaOtherTrainerLastName.Enabled = True
Me.StaOtherVerifyDate.Enabled = True
Me.StaOtherReverifyDate.Enabled = True
Me.StaUpVerifyDate = ""
Me.StaUpReverifyDate = ""
End If
If Me.StaBack = True Then
Me.StaPrimary.Enabled = False
Me.StaPrimaryTrainerFirstName.Enabled = False
Me.StaPrimaryTrainerLastName.Enabled = False
Me.StaPrimaryVerifyDate.Enabled = False
Me.StaPrimaryReVerifyDate.Enabled = False
Me.StaUp.Enabled = False
Me.StaUpTrainerFirstName.Enabled = False
Me.StaUpTrainerLastName.Enabled = False
Me.StaUpVerifyDate.Enabled = False
Me.StaUpReverifyDate.Enabled = False
Me.StaOther.Enabled = False
Me.StaOtherTrainerFirstName.Enabled = False
Me.StaOtherTrainerLastName.Enabled = False
Me.StaOtherVerifyDate.Enabled = False
Me.StaOtherReverifyDate.Enabled = False
End If
If Me.StaBack = False Then
Me.StaPrimary.Enabled = True
Me.StaPrimaryTrainerFirstName.Enabled = True
Me.StaPrimaryTrainerLastName.Enabled = True
Me.StaPrimaryVerifyDate.Enabled = True
Me.StaPrimaryReVerifyDate.Enabled = True
Me.StaUp.Enabled = True
Me.StaUpTrainerFirstName.Enabled = True
Me.StaUpTrainerLastName.Enabled = True
Me.StaUpVerifyDate.Enabled = True
Me.StaUpReverifyDate.Enabled = True
Me.StaOther.Enabled = True
Me.StaOtherTrainerFirstName.Enabled = True
Me.StaOtherTrainerLastName.Enabled = True
Me.StaOtherVerifyDate.Enabled = True
Me.StaOtherReverifyDate.Enabled = True
Me.StaBackVerifyDate = ""
Me.StaBackReverifyDate = ""
End If
If Me.StaOther = True Then
Me.StaPrimary.Enabled = False
Me.StaPrimaryTrainerFirstName.Enabled = False
Me.StaPrimaryTrainerLastName.Enabled = False
Me.StaPrimaryVerifyDate.Enabled = False
Me.StaPrimaryReVerifyDate.Enabled = False
Me.StaUp.Enabled = False
Me.StaUpTrainerFirstName.Enabled = False
Me.StaUpTrainerLastName.Enabled = False
Me.StaUpVerifyDate.Enabled = False
Me.StaUpReverifyDate.Enabled = False
Me.StaBack.Enabled = False
Me.StaBackTrainerFirstName.Enabled = False
Me.StaBackTrainerLastName.Enabled = False
Me.StaBackVerifyDate.Enabled = False
Me.StaBackReverifyDate.Enabled = False
End If
If Me.StaOther = False Then
Me.StaPrimary.Enabled = True
Me.StaPrimaryTrainerFirstName.Enabled = True
Me.StaPrimaryTrainerLastName.Enabled = True
Me.StaPrimaryVerifyDate.Enabled = True
Me.StaPrimaryReVerifyDate.Enabled = True
Me.StaUp.Enabled = True
Me.StaUpTrainerFirstName.Enabled = True
Me.StaUpTrainerLastName.Enabled = True
Me.StaUpVerifyDate.Enabled = True
Me.StaUpReverifyDate.Enabled = True
Me.StaBack.Enabled = True
Me.StaBackTrainerFirstName.Enabled = True
Me.StaBackTrainerLastName.Enabled = True
Me.StaBackVerifyDate.Enabled = True
Me.StaBackReverifyDate.Enabled = True
Me.StaOtherVerifyDate = ""
Me.StaOtherReverifyDate = ""
End If
End Sub
How Do I Enable Right Clicking?
Dec 20, 2004Hello everyone. Over the summer i made a database. i think i may have done some locking on it so that i couldnt change it (and only use it), but now i would like to correct some errors. First off, i cant get the database toolbar to show up, and i cant use right-clicking. How do i enable right clicking and get this database to work so i can edit it.
View 1 Replies View RelatedI Want Datasheet View... Why Does It Keep Showing Form View?
Apr 6, 2006I have a form which is opened with a filter from another form. For some reason it views the form in form view, although it was set up as datasheet view. I even went to the form properties and the default was datasheet and i made it not to allow other views. This still didnt solve it. I want it to be in datasheet view because i want to show multiple records at the same time.
If u kno how i could resolve this please offer ur help
thanks
Enable/Disable BypassKey
May 1, 2007On searching the forum, I found the following post for enabling/disabling BypassKey. I did as instructed but on clicking the label, it gives 'syntax error with 'On Error Goto' in red color and highlighted.
Hello af1112 welcome to the Forum...
I use this code that ghudson supplied at the beginning of this post.
First of all create a copy of your db (Just incase.. )
Now......
Create a label on a form somewhere and make it invisible to other users
(I have mine hidden in my main Switchboard)
The idea is that by clicking on the label you can activate/de activate the code without anyone else knowing about what you are doing..
Name the label "bDisableBypassKey" & hide it somewhere in the corner of your screen or something.
Copy & Paste the code inbetween the bold text to the onclick event of the label you have just created
Private Sub bDisableBypassKey_Click()
On Error GoTo
Err_bDisableBypassKey_Click
'This ensures the user is the programmer needing to disable the Bypass Key
Dim strInput As String
Dim strMsg As String
Beep
strMsg = "Do you want to enable the Bypass Key?" & vbCrLf & vbLf & "Please key the programmer's password to enable the Bypass Key."
strInput = InputBox(Prompt:=strMsg, Title:="Disable Bypass Key Password")
If strInput = "MY PASSWORD" Then 'Change password to your own
ChangeProperty "AllowBypassKey", DB_BOOLEAN, True
Beep
MsgBox "The Bypass Key has been enabled." & vbCrLf & vbLf & "The Shift key will allow the users to bypass the startup options the next time the database is opened.", vbInformation, "Set Startup Properties"
Else
Beep
ChangeProperty "AllowBypassKey", DB_BOOLEAN, False
MsgBox "Incorrect ''AllowBypassKey'' Password!" & vbCrLf & vbLf & "The Bypass Key was disabled." & vbCrLf & vbLf & "The Shift key will NOT allow the users to bypass the startup options the next time the database is opened.", vbCritical, "Invalid Password"
Exit Sub
End If
Exit_bDisableBypassKey_Click:
Exit Sub
Err_bDisableBypassKey_Click:
MsgBox "bDisableBypassKey_Click", Err.Number, Err.Description
Resume Exit_bDisableBypassKey_Click
End Sub
Now paste this code in the Double click event of the same label
Private Sub bDisableBypassKey_DblClick(Cancel As Integer)
Private Sub Disable_Click()
Option Compare Database
Option Explicit
Function ChangeProperty(strPropName As String, varPropType As Variant, varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function
To Test
click on your label to activate the password prompt
and type in the wrong password (that will now disable the bypass key) and you will not be able to open the db by holding down the Shift button
to disable enter the correct password and you will be able to use the Shift button
Would someone help?
Enable/Disable Entries
May 9, 2006Hi there I am new to Access and I am currently modifying an existing DB. Currently this DB has a main table which holds a bunch of Patient info such as:
Name
Age
AssignedStaff
Condition
etc....
The assigned staff field is populated from another table (Staff), which holds all the staff members working at the institution. However a couple of these individuals have left and they no longer want their name to show up on the form when inserting a new record. However we do want there name to still be in the DB for historical reporting purposes......My intital thought was to create another field in the Staff table that would hold either a "Active" or "Inactive" entry. Then just have a simple If statement to see if the staff member is active or inactive. Does anyone see any problems with this solution or propose a more efficient method.
Thanks
Enable/Disable Not Working
Aug 2, 2005I am creating a data entry form with combo boxes related to two different tables:
TblEducationID
EducationID - Auto# PK
Education - Text
TblMediaFill
MediaFillID - auto# PK
Incubation Time- text
Incubation Temp - text
In my form, I have a combo box that the user selects the Education Type (Media Fill Test; Aseptic Technique Observation, Watch Video, etc....)
I want the incubation time and temp text boxes to be disabled unless Media Fill Test (ID#4) is selected on the first combo box. (I get a Procedure Declaration does not match error.)
Private Sub EducationID_AfterUpdate()
If EducationID = 4 Then
IncubationTime.Enabled = True
IncubationTemp.Enabled = True
Else
IncubationTime.Enabled = False
IncubationTemp.Enabled = False
End If
End Sub
Any Suggestions? Thanks,
Jason