I have a text box containing a lot of explanitory text and I want vertical scroll bars.
I have set the 'scroll bars / vertical' in the properties of the text box and yet...no scroll bars. I feel that some other setting is preventing the scroll bars.
Basically what I want to do is create a form that combines 2 tables. For example, I want to be able to display a name, then display and be able to scroll through all information associated with that name. For instance, if the name had more than one address, how would I create that form with the right relationships and with the scroll bars? Thanx
In the forms that I have made, none of the listboxes ever scroll with the mouse scroll wheel. I have tried to click into the listbox first to ascertain that the focus is in the listbox but nothing works. the only way to scroll is to manually drag the scroll bar tab. I want to find out how i can make my scrolling work. I guess that there must be a global setting somewhere to switch it on or off... Any insight into this will be highly appreciated!
My problem is that I have a couple of forms where scrollbars are not appearing on forms when they are too long to fit on-screen. Instead they're just going below the bottom of the screen and there's no way to access things at the bottom of the form. This is happening with a data input form as well as with a form I'm using to filter and display a report. I've tried selecting both "Vertical only" and "both" for the scrollbar property of the form, but it doesn't seem to make any difference.
The forms are being opened in "dialog" mode, the only option for opening a form in a web database when using a macro to open it, it seems. If I manually open the form in 'normal' mode, it has scrollbars. Also, if I open a report with a macro (on click), it has the option to open in 'normal' mode and has scrollbars and all is well. But if I want the user to be able to click a button to open the form, it seems I have to use dialog mode.
I sat my form properties to display both scroll bars, but it's only dispalying the horizontal one even though the form needs the vertical (a few text boxes are not displayed because they are at the bottom of the form).
I have tried to close the DB and reopen it again and played about with the properties, but it still does not show the vertical scroll bar.
I am having a problem with displaying the scroll bars in Access. I have created a database which is viewed correctly in 1280x720 screen resolution, which is our standard setting. However, we have recently taken on some users with sight problems, and they are using a different screen resolution.
This means that the forms do not fully display on the page, and I would like to add scroll bars to the access window rather than the form so that the user can move up and down the displayed form. Is this possible?
Help! I'm not sure how I did this, but NO matter what database I go into i can see any toolbar or menu bar. Yes I tried the shift key. How do I turn it all back on? When I right click I can get the database startup properties, everything has the check, yet I can't see any toolbars or menu bars. I've searched though the help, and I can't see to find out how to put it back.
I'm using aleb's most handy code from this thread (http://www.access-programmers.co.uk/forums/showthread.php?t=100636) to have a multi select list box that determines recipients of an e-mail from the list.
I thought it would be handy to have it make a list that updates at the same time, showing what e-mail addresses will be sent. Here's the code I used:
Private Sub lstMailTo_Click() Dim varItem As Variant Dim strList As String Dim strElist As String
Me.cmdEmail.Enabled = True With Me!lstMailTo If .MultiSelect = 0 Then Me!txtSelected = .Value Else For Each varItem In .ItemsSelected strList = strList & .Column(0, varItem) & ";" strElist = strElist & .Column(0, varItem) & vbNewLine Next varItem If strList = "" Then Me!txtSelected = strList Me.cmdEmail.Enabled = False Me!txtEadd = "" Else strList = Left$(strList, Len(strList) - 1) Me!txtSelected = strList Me!txtEadd = strElist End If End If End With End Sub
The code works, but when the text box becomes filled, you cannot see the bottom of the list. How can I set it to know this and automatically put a scroll bar in, so the addresses can be reviewed before hitting send? I was interested to see if I could do something similar, but instead have a label display just the last item selected. I tried strElist = .Column(0, varItem) and setting the label caption to strElist, but this only displayed the first item selected. How would I do this?
I have a textbox on continues form which contains multiple lines and I d like to set it up so it ll be scrolled down completely when it displays the form. I ve already found a few so called solutions but nothing worked for me.
Most my short text fields on my form are normal, but some have scroll buttons like a memo box and it's annoying, especially because the user can't jump to the next field by pressing return.
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
Im trying to work with access 97, to import a text file into access. All the books i have looked in and web pages found say, file - get external data - import, then in "files of type" drop down you can select text.
I dont have the option to do this.
I have Uninstalled office 97, reinstalled it. with all the extras. I have gone into the help and added all the valupack but still nothing.
I am trying to create a query to find missing sequential numbers in a text field. I am using this specific field as a case number which is designated as two letters, the # sign, two digits indicating the year, a dash, and then a four digit number; For Example: AB#13-1234.
The reason for this query is to tell the user of this database that a specific case number has yet to be entered and needs to be. The case numbers are unique and will never be referenced more than once.
My table name is "MainDataTbl" and the field i'm trying to find the missing case numbers is titled "CaseNumber".
This is an ongoing problem I have had for 4 weeks now.
I have made a a system thats acts like a clock In/clock out Out system.
the structure is somthing like this ID Username tblDailyLog TimeIn MorningBreakOut MorningBreakOut LunchOut LunchIn AfternoonOut AfternoonIn TimeOut
All fields apart from ID (autonumber) and username (String*255) are Date field (there are a few others like DateOfTimesheet etc but they arnt important here)
When a user arrives in the morning they make a record which they use for the day
They then have a form with a whole bunch of buttons which simply updates the correct field. For example they click the "Sign in for the Day" button and it updates the correct field with the current time.
Everything was going fine until people noticed that every now and again a sign in time dissapeared.
I have hacked myself to death trying to solve this problem but still the updates go Astray.
Now each time a time is updated the process goes somthing like this
1. the user opens their timesheet for the day (the RS is SNAPSHOT and no locks)
2. User Hits a sign in/out button 3. The record source is changed to "" and all buttons hidden (to ensure the record isnt locked and to make sure you dont do two things at once) 3. The table is updated with the new time (using some dynamic SQL) 4. The table is repeatadly checked using a DO loop to make sure the the correct time went in. 5. when the returned time value of the field matches the varaible used to update it, the form is returned to normal and the user carries on his/her merry way (if it never matches the screen should crash but this never happens). 6. A New record is added to another table called "tblbugfixinglog" which records which field was updated and when. This is so that I have two records in two different ways (figured if one went astray I could pull it back off the other) 7. Another new record is added to yet another table called tblSQLRecord, which simply logs all .RUNSQL statements that are executed.
I thought that the two extra tables (and the check that the record had been updated) would help me track down where the records are going missing, but this isnt the case.
Now it appears that some records arnt being added to tblBugFixingLog and to tblSQLRecord either and some of these tables are getting quite a few #ERROR's in them..
None of the tables are related to any other and i've no idea how #ERROR lines are appearing in a table that has 1 function... to recieve new records ... no editing, no viewing, no deleting.
Does anyone have any idea how these updates/inserts can go missing or create #ERRORs. I've built plenty of Databases in my time and have never come across this. __________________________________________________ ______________
This is the function I use to add a record to tblBugfixingLog and tblSQLRecord
Private Sub AddBugLog(ByVal TimesheetNumber As Long, ByVal FieldUpdating As String, ByVal NewFieldValue) Dim TempSQL As String TempSQL = "INSERT INTO tblBugFixingLog (TimeAndDateOfEntrySERVER,TimeAndDateOfEntryPC,Fie ldUpdated,NewEntry,UserID,TimesheetNumber,Computer AssetNo) VALUES (" & _ "#" & Format(ServerGetTime(Environ$("LOGONSERVER"))) & "#," & _ "#" & Now & "#," & _ "'" & FieldUpdating & "'," & _ "'" & NewFieldValue & "'," & _ "'" & GetNTUser & "'," & _ "'" & TimesheetNumber & "'," & _ "'" & fOSMachineName & "')" ' MsgBox TempSQL DoCmd.RunSQL "INSERT INTO tblSQLRecord (Username,DateAndTime,Screen,TheSQL) VALUES('" & LoginInfo.sUsername & "','" & CStr(Now) & "','Add Bug Log function','" & CleanData(TempSQL) & "')", False 'CleanData is a function that removes ' and " from the SQL string so i can easily add the SQL string into the table DoCmd.RunSQL TempSQL, False End Sub
Public Function CleanData(ByVal DataToClean As String) Dim TempData As String Dim i As Integer TempData = "" For i = 1 To Len(DataToClean) Select Case Mid(DataToClean, i, 1) Case "'" TempData = TempData & "`" Case """" TempData = TempData & "`" Case Else TempData = TempData & Mid(DataToClean, i, 1) End Select Next i CleanData = TempData End Function
What is the best way to turn all the menu bars and tools bars off and back on when a form opens and closes? Can you just loop through the numerated objects?
I am pulling my hair out trying to create a customized menu bar. Eventually, I want to have a customized menu bar and tool bar for report and different customized menu bar and tool bar for forms. I created the tool bar for the report window. Then when I tried to create a new menu bar I could not remove menu selections without removing the same menu selections from the default Menu Bar.
I selected View->Toolbars->Customize... Then I clicked on New (command button) Then I named it (RptMenuBar) Then I selected 'Built-In Menus' from the Commands Tab Then I dragged the 'File' from the Command list into the new Menu Bar Then I went to the new menu bar and dropped down the selections under File and started to left click and drag what I didn't in the NEW MENU BAR. However, it turns out when I did that the same selections were removed from the default Menu Bar.
I was ablel to restore the default Menu Bar. But I want to have a customized Menu Bar and be able to select that new Menu Bar and associate it with every Report that is in my Database.
Any ideas? If you have some good instructional references, please point me in that direction. Thanks.
How can I hide all the command bars except my customize tool bar ? I have hide all my command bars by the following code :
' Hide all window bar
Dim i As Integer For i = 1 To CommandBars.Count CommandBars(i).Enabled = False Next i DoCmd.RunCommand acCmdWindowHide
I can change “CommandBars(i).Enabled = False” to “CommandBars(i).Enabled = True” but I want only my customized tool to be appear. What is the solution?
How to label all the bars of the chart at a time?I wanted to select all the bars to label them but couldn't do it! Then how can I select and label all the bars at a time?