Modules & VBA :: Unable To Scroll Through Data Correctly
Nov 27, 2013
I am working with two forms frmManager and frmMMeasures where based on selection from the combo box of frmManager of the department, position and staff member frmMMeasures is loaded where MUserLoginID and MPositionName is populated based on selection from frmManager. This is what I use to populate the MUserLoginID field for the control source " =[Forms]![frmManagers]![cboStaff] ".
My problem is when I go to the next record on the form those two fields do not change from what was picked up from the form frmManager.
I don't know how to ensure that the correct data is displayed.
View Replies
ADVERTISEMENT
Oct 31, 2013
The application was unable to start correctly (0x00007b)not sure it's an Access issue exclusively. What fix to apply (is it a Registry entry that's corrupted perhaps?).
View 5 Replies
View Related
Apr 24, 2014
I'm trying to disable mouse scroll wheel on the form but no luck here,
View 1 Replies
View Related
Feb 14, 2015
With below codes I am able to export recordset data to specified excel range if recordset count is 25. But I am unable to export the data greater than 25 to 2 specified range.
View 7 Replies
View Related
Apr 13, 2005
Ok, not sure whether this is an ASP error or an Access error, but think its more likely to be an Access error.
Right, heres my problem..
Have written an ASP script where you chose a 'week commencing' and it then displays all laptop bookings in a school in a table.
Now it does this by doing a query on the 'Booking' table WHERE the 'week commencing' = xx/xx/xxxx (Date)
Now having inputted all current dates of the current term, weeks commencing:
11/04/2005
18/04/2005
25/04/2005
02/05/2005
09/05/2005
16/05/2003
23/05/2005
Now, my asp script gives me a drop-down box where i choose my 'week commencing'.
If i chose weeks commencing '18/, 25/, 16/, 23/' the tables all appear fine.
However when i select '11/, 02/, 09/' no data is taken from the database and i get my message 'No Booking data found!'
But the data IS there in the database.
What am i doing wrong? Could it be the Language settings i.e UK/US settings (date format etc)
Is there something wrong with my code???
Please help me... driving me nuts!
Code:<<A href="mailto:%@LANGUAGE="VBSCRIPT","JAVASCRIPT">%@LANGUAGE="VBSCRIPT","JAVASCRIPT" CODEPAGE="1252"%><!--#INCLUDE FILE= "adovbs.inc" --><%' Open Database ConnectionSet Con = Server.CreateObject( "ADODB.Connection" )Con.Open "accessDSN"' Open RecordsetSET RS = Server.CreateObject( "ADODB.Recordset" )RS.ActiveConnection = ConsqlString = "SELECT DISTINCT book_week_com FROM Booking ORDER BY book_week_com"RS.Open sqlString, Con,adOpenStatic%><FORM name="formCategory"><SELECT name="qryCategory" onChange="getFilter(this.form.qryCategory)"><OPTION selected>Select a Week:<% DO WHILE NOT RS.EOFResponse.Write( "<OPTION value=" & rs("book_week_com") & ">" & rs("book_week_com") )RS.MoveNextLoopRS.CloseSET RS=Nothing%></OPTION></SELECT><BR></FORM><SCRIPT language="Javascript">function getFilter(listitem) {var object = "";var listValue = getListValue(listitem);document.formCategory.submit(listValue);}function getListValue(list) {if (list.selectedIndex != -1) {listValue = list.options[list.selectedIndex].value;}return (listValue)}</SCRIPT> <%IF Request.QueryString( "qryCategory" ) = "" THENResponse.Write("Please select a Week from the list:")ELSE' Build QuerySET RS = Server.CreateObject( "ADODB.Recordset" )sqlString = "SELECT book_day, book_date, book_period, book_teacher_code, book_room, book_number "sqlString = sqlString & "FROM Booking WHERE book_week_com = #" & Request.QueryString( "qryCategory" ) & "#"sqlString = sqlString & "ORDER BY book_date, book_period, book_date_booked"RS.Open sqlString, Con,adOpenStaticIF RS.RecordCount = 0 THENResponse.Write( "<H3>No Bookings found for Week Commencing: " & Request.QueryString( "qryCategory" ) & "</H3>" )ELSEResponse.Write( "<H3>Bookings found for Week Commencing: " & Request.QueryString( "qryCategory" ) & "</H3>" )' Build a Table Here Response.Write( "<table BORDER=4 align=left width=500>" )Response.Write( "<tr>" )Response.Write( "<td <strong><font size=4>Day:</font></strong></td>" )Response.Write( "<td <strong><font size=4>Date:</font></strong></td>" )Response.Write( "<td <strong><font size=4>Period:</font></strong></td>" )Response.Write( "<td <strong><font size=4>Teacher Code:</font></strong></td>" )Response.Write( "<td <strong><font size=4>Room:</font></strong></td>" )Response.Write( "<td <strong><font size=4>Number:</font></strong></td>" )Response.Write( "</tr>" ) DO WHILE NOT RS.EOFResponse.Write( "<tr>" )Response.Write( "<td>" & RS("book_day") & "</td>" )Response.Write( "<td>" & RS("book_date") & "</td>" )Response.Write( "<td>" & RS("book_period") & "</td>" )Response.Write( "<td>" & RS("book_teacher_code") & "</td>" )Response.Write( "<td>" & RS("book_room") & "</td>" )Response.Write( "<td>" & RS("book_number") & "</td>" )Response.Write( "</tr>" )RS.MoveNextLoopRS.CloseResponse.Write("</TABLE>")END IFEND IFSET RS=Nothing%>
Thanks
View 2 Replies
View Related
Apr 25, 2013
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
View 2 Replies
View Related
Aug 8, 2013
I am using Access 2007 with Windows XP. I have a scatter chart embedded in a form that is plotting data from a subform with a trendline that is extracted and used on the form for calculations. After having the table set up correctly and running fine, I closed the database and then reopened it to have the table plotting the data in a made up 1 to 1 relationship rather than what is in the datasheet. The only way I have been able to fix this error is to change the chart type to something else then back to a scatter plot and remake the trendline. Why this is happening and how to prevent it?
View 1 Replies
View Related
Jun 13, 2012
I'm a bit new to Access but have managed to build a very simple database.
I have a main table which I need to add 4 columns onto the end of, the data for which comes from 4 tables linked to it. Below is how they are linked.
Main table------> Table 1
Main table------> Table 2
Main table------> Table 3
Main table------> Table 4
All 4 relationships have a join type of 2 (Include ALL records from 'Main table' and only those records from 'Table1/2/3/4' where the joined fields are equal)
However, 3 of them pull back the correct data when I refresh the Main table, but the 4th one doesn't - which appears to be to be set up in the exact same way. It does bring back data, but it's the wrong data or in the wrong order.
For example, if the related field in the Main table is "Sarah" - It needs to bring back "Programme", but some Sarah's pull through Programme, some are blank and some are another option altogether. Table 4 has no duplicates or typos etc and I've tried deleting it, loading it in again and creating a new relationship but nothing seems to work.
View 5 Replies
View Related
Jul 5, 2013
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.
View 7 Replies
View Related
Feb 6, 2015
I have a process that is getting data from sharepoint page, containing 2 list. Both list contain one field I am having issues in my export, a 'Multiple Lines of Text' type field which is Rich Text in sharepoint. I have an access DB with a linked table to those 2 list. Access show the one field I am having problems with as Memo.
The Linked table pulls/display the rich text data field correctly. My access query pulls/displays the data correctly.
My export procedure does not, the cell it exports to includes the HTML Tags. How can i modify my VBA export procedure to export to excel in plain text, i dont need the same format, just want to drop the html tags.
Code:
Public Sub StatusReportExport()
On Error Resume Next
' Test to see if the file currently exist, if so, delete file, so new file can be written.
Kill ("L:Connect SiteStatus Report " & Year(Date) & "-" & Month(Date) & "-" & Day(Date) & ".xls")
If Dir("L:Connect SiteStatus Report " & Year(Date) & "-" & Month(Date) & "-" & Day(Date) & ".xls") <> "" Then
MsgBox "Status Report.xls File already in use!" & vbNewLine & "Please Close File, then rerun Report."
[code]....
View 6 Replies
View Related
Apr 23, 2014
I'm using the following code to clear selected records from a listbox after a button is pressed:
Code:
For i = 0 To lstProducts.ListCount - 1
lstProducts.Selected(i) = False
Next
The code works great except that it leaves the listbox scrolled all the way to the bottom. What is the best way to scroll back up to the top of the listbox without selecting another record?
View 3 Replies
View Related
May 24, 2015
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.
View 5 Replies
View Related
Mar 3, 2014
Had to reinstall OS system. Upon reinstalling Access 2010, and my data, scroll wheel did not move the screen. Previously, worked in typical fashion. Now, have to use the scroll bar. Just plain old Datasheet view. Cannot seem to find any "setting" for this behavior, e.g., Navigation, or in any of the other options screens. Merely want the scroll wheel to work like it does in any other program, alternative to the bar. Recalled the same thing happened on installing Access to my lap top recently. Scroll wheel didn't work. Then, all of a sudden (i.e., I didn't think that I did anything, such as a setting, to change behavior) it started working as a typical scroll wheel.
View 1 Replies
View Related
Jan 29, 2014
I have a listbox which is populated by a query from a table.
I also have a sub which allows users to quickly select multiple items from the listbox (based on a pre-defined criteria) rather than scrolling through and selecting them manually / individually
The sub works fine but when it is finished, the listbox is automatically scrolled to the bottom (or, rather, to the last selected item)
I would like to have the listbox scroll back to the very top once all of the appropriate items have been selected.
(I could loop through the listbox items in reverse - or 'bottom-up' - in the code but that would only have the desired effect if the topmost item was selected. I want it scrolled to the top regardless of whether the topmost item is selected or not).
View 2 Replies
View Related
Apr 1, 2015
I have date picker which works correctly in form. When I put that form as subform to reports header calendar shows up but after selecting date on calendar textbox stays blank. Format of textbox is Short Date, Show date picker property is For dates.
View 1 Replies
View Related
Nov 16, 2013
I have created three forms using three tables tblUser, tlbMeasure and tblSubMeasure. The tblUser is linked to the tblMeasure table via UserLogin and tblMeasure is linked to tblSubMeasure via MeasureID. The forms are created with frmMainMeasure being the main form and frmMeasure6 a subform and frmSubMeasure a sub with frmMeasure6.
I want to be able to add sub measures that will be linked to each MeasureID and each MeasureID link to each user via UserloginID. The forms load the data in the sub forms but when I try to add sub measures using a button I added on the frmMeasures6. The button works when I try work on the form fine but when I try via the main form I am not able to add or view other records within the table.
When I click the Add button I want to be able to load back the same MeasureID number in fmrSubMeasure to ensure that it is linked to the same measure and the MeasureID is linked to the same UsrrLoginID.
The code is included below and I've attached the file as well.
Private Sub cmdAdd_Click()
If Me!frmSubMeasure.Form.Dirty = False Then
End If
Me!frmSubMeasure.SetFocus
DoCmd.GoToRecord , , acNewRec
[Code] ....
View 1 Replies
View Related
Apr 7, 2014
I created a table to keep contact information such as address, phone number, and email address of instructors. I also modified the New Instructor Entry form to add an email address, since we usually have this when hired.
The problem arises when no such information exists for an instructor. I have attached a "sample" database with all the important components and "sample" data.
When I choose an instructor in which some contact information exists, the Instructor Contact Entry form performs as expected. On the other hand, if no information for an instructor exists, the information can be entered, even though the Employee Number, Family Name and Given Name fields are blank, contrary to the first case. Not only can the information can be "saved" but no data appears in the table.
How do I have to set this up to get it to work for an instructor not in the table?
View 3 Replies
View Related
Jul 25, 2013
I am currently unable to delete any data from my table. When I highlight a row and right-click, the option to delete the record is grayed-out. I have deleted and recreated the table and relationships, saved the database as a new file, and compacted and repaired, but I am still unable to delete anything.
View 1 Replies
View Related
Mar 12, 2014
This is the code I'm trying to run from a Standard Module:
Code:
Public Sub RunPaxCalculations()
Dim frm As Form
Dim intNumberOfRecordsInFilter
[Code]....
View 4 Replies
View Related
Mar 3, 2015
I'm trying to add hidden information to a record and need to know the best way to do it.
I have a visible table that all users enter data into using a form.
I also have a hidden table that contains 2 fields "linked Table ID" and "notes"
I have a box at the top right of my form which is white (I also have a white background so it's impossible to see).
When you click the box it changes a textbox on my form visible property from false to true.
then I plan to use a separate button that the user currently uses to save a record to store ID number and hidden textbox information in the hidden table but I'm sure how to do this.
Finally I will use a hidden query which will display all the fields from both tables using the linked Table ID from the hidden table and ID field from the non hidden table.
So i have 2 questions:
1 how do I save information the user entered into a form created from one table into a different (hidden) table
2. Is this the right approach to this problem?
View 3 Replies
View Related
Jul 23, 2015
I was updating my records by filling a form and entering the data's into a table but all of a sudden i couldn't add data to form and table..
View 9 Replies
View Related
Mar 27, 2015
I have a module that has a global variable defined as shown below
Module: initGlobals
-----------------------
Code:
Option Compare Database
Option Explicit
Public strGlobalUserId As String
Sub initvar()
strGlobalUserId = "Myuserid"
End Sub
This is invoked in a login form("frmLogin") and it displays the above value before I replace it with the one that is accepted in the form.
Here is the code from the login form
Code:
strGlobalUserId = Me.cboEmployee.Value
When the password is successful, I close the login form and open a form called "frmMainForm". In the form_open event of the "frmMainForm", I am trying to display the user id using strGlobalUserId but it just has spaces. What am I doing wrong?
View 2 Replies
View Related
Jul 15, 2013
I spent all day trying to figure out why sometimes I can call an excel function from access and the value will appear on my form, but for some functions (F.inv, binom.inv), it errors out as "object not supported". I browsed all the available libraries in tools/reference but found nothing that seemed to solve this issue.
View 7 Replies
View Related
Aug 5, 2006
Hi, I'm trying to connect to SQL Server Express from MS Access 2003.
I've created an ODBC data source and tested it within the ODBC Wizard. It successfully connects to the SQL Server database.
From within MS Access, I choose File > Get External Data > Import and I'm presented with a dialogue for choosing the data source. As soon as I choose ODBC from the Files of Type drop-list, the dialogue disappears. No error-message, nothing!
Has anyone else had this problem?
View 1 Replies
View Related
Mar 15, 2007
Hi,
I just created another query, but with this one I cannot change any of the data. What could be the reason?
Thanks
View 8 Replies
View Related
Mar 10, 2014
it is zip file unable to get the size lower yet minimal amount in database I have 2 tables and one form when I create an query on the form the form then becomes that I cannot enter data in it or edit etc
View 3 Replies
View Related
