Forms :: Freezing First Column In A Datasheet
Jan 7, 2014
my requirement was for a control in a subform and I needed all this to affect a first column freeze.The code was in the Onload for the main form.
Code:
Dim ctl As Control
Set ctl = Forms("frmPlanner").Controls("subfrmTempCtrl")
Me.SetFocus
ctl.SetFocus
ctl.Form.Controls(0).SetFocus
DoCmd.RunCommand acCmdFreezeColumn
It does work but I can't fathom why I need more than the last .SetFocus. Leave any of the prior ones out and it gives an error to the effect that can't do it in those circumstances. I understand the control has to have focus for it to work but why are the other's required?
View Replies
ADVERTISEMENT
Feb 8, 2014
Why Access 2010 does not save the Datasheet order?? I keep setting the order and it puts it back again
I have set the order in the design. I have set the tab index individually for each item. I says in the tab order that they are in the correct order. I reorder them in the datasheet and click on save. Nothing sets that order. It will revert it back to the order that IT wants every time.
View 7 Replies
View Related
Nov 28, 2013
In an .ACCDE I want to store the column widths when user closes a datasheet form (or subform) so that when opening it anew, the widths are as previously set by user. I could store this data in a dedicated table ( and userID, for the multiuser db), but is there a smarter way? Some array/ dictionary/ whatever as database or form property?
View 1 Replies
View Related
Nov 22, 2014
I have a subform in which I display a table in Datasheet View. The problem is, I cannot figure out how to place the columns in the order (i.e. from left to right) I want.
For some reason, right-clicking on a column header in Form View and selecting Freeze Fields will shift that column to the left but I can find no consistent pattern to it and no other way of shifting a column. Reordering the columns in the table itself seems to have no effect on the order they appear on the subform and moving the controls around in the subform in Design View also seems to have no effect.
View 9 Replies
View Related
Jan 2, 2014
I am using Access 2013 (but I assume that the solution for Access 2010 will apply).
Here is the situation:
1. I have a simple datasheet form with three columns
2. I need to adjust the column widths so that all the text is visible
3. When I adjust the column widths, save the form, close the form, and re-open the form, the column widths reset
4. I need the column widths to either 1) stay the same as they previously were, or 2) be wide enough to fit all the text in each field
View 7 Replies
View Related
Apr 20, 2014
Is it possible to change to bold font the text column of a datasheet view?
View 3 Replies
View Related
Jan 4, 2006
I have a subform in datasheet view and I wish to selectively hide columns I'm not using (depending on the query). I wrote a small function to make it easier. Here's my code:
Function HideColumn(myForm As SubForm, myLabel As String)
myForm.SetFocus
myForm.Controls(myLabel).SetFocus
DoCmd.RunCommand acCmdHideColumns
End Function
So all I do is send the subform name while I'm using the parent form and then give it the column name to hide. Oddly enough this code works for columns such as "Net B" and "Net% +/-", but it doesn't work with the columns "Period B" or "Period A". On my subform the text boxes and their labels have the same name (if that even matters). I keep getting a 2465 error (field not found) no matter what I change the column name to.
View 1 Replies
View Related
Feb 22, 2007
I have a crosstab query of which I cannot sort a Totals column by descending order. Is there any way to sort a certain column automatically after the query runs and is in Datasheet view?
View 4 Replies
View Related
Sep 12, 2012
I have a query that creates a table.
I then use another query to sort and remove duplicate entries, using the 'Totals' option Group By and Last.
I then export the datasheet to an Excel spreadsheet.
All goes well, except that the headers on the spreadsheet show LastOfXXXX or GroupByXXXXX. Now I can run a replace function in Excel to remove LastOf and GroupBy from each column header, but it would be more useful if the replace routine was performed prior to the export to Excel.
View 5 Replies
View Related
Mar 29, 2005
Hello, all.
I need to use a datasheet view for a subform, but I can't seem to find how to keep users from editing the column widths within the view. Help?
THANKS!
Tom
View 2 Replies
View Related
May 5, 2006
My form is in datasheet mode.
One of the textbox is called txtHours
When I access the form the column caption is "txtHours" !
As you can expect it looks ugly.
So to get a decent caption like "Hours" I am forced to set my textbox name to "Hours" !
As you can expect it goes against my coding standard to do that.
Beside I want the caption of some textboxes to include some non-standard letters such as `é' è' '!' ' ' etc. and if I put those in the textbox name it ruins the visual basic code !
View 2 Replies
View Related
Oct 20, 2014
tell me if it is possible to calculate a value in a column in a datasheet view of a query. i.e. I want to take a value in 'Column A' and subtract the value in 'Column B' to create a value in 'Column C'?
View 2 Replies
View Related
Sep 18, 2015
We are using a data sheet view to display the content of a table of colors, we would like one of the columns to display a colour chip of the RGB value it contains,
example
Color Name RGB Value Color Chip
White 255,255,255
View 3 Replies
View Related
Oct 4, 2005
I am about to give this database to a client. It basically manages deliveries. Everything on my form is functional. The problem is Access seems to freeze indiscriminatly. I have no idea why. I don't believe Access is processing code when it freezes because control-break does not even work. I am hoping some of the locals here can take a look at my DB and maybe find the issue. This was written in A2K3.
The freeze can be broken by clicking into another program then back to access again. The freeze seems to occur onload, on new record and on filter.
View 2 Replies
View Related
May 9, 2005
Is it possible to Freeze the scrolling on a form so that the first few fileds are always visible when I scroll to the end?
View 2 Replies
View Related
Jun 2, 2005
I have a database that I have setup to compact and repair every time I close the program. The database will begin the process of compacting and repairing then when the status bar gets about half way across the process will simply freeze on me. I have let the program run for up to 10 or 15 minutes. I end up click the close button and closing the database. Also there does not seem to be any error with the database since I can open the database and work with it and run reports, it just won't compact and repair.
Thank you for any help
View 9 Replies
View Related
Sep 2, 2005
:confused: Hi all - hope someone can help I dont know where to start.
I've got a cmd button that imports data from a excel sheet - that actual code is working fine, however when it runs it causes Access to freeze.
The data in imported correctly - so it must complete the process but Access locks up and has to be ended via task manager.
Any one got any clues why this is happening and how I can stop it?
This is an Access 97 database running mainly on NT and 2000
Private Sub LoadActualsDataButton_Click() On Error GoTo Err_LoadActualsDataButton_Click
' This procedure performs a two file match between the Actuals table (the Master file) and ' The Actuals spreadsheet file (the Transaction file).
'
' Keys : Study Code|Work Package|Period
'
' If the Master key < Transaction key then
' Read the next Master record.
' If the Transaction key > Master key then
' Add the transaction record to the Master file
' Read the next Transaction record.
' If the Master key = Transaction key then
' Update the value on the Master record with the value on the Transaction record
' Read the next Master Record
' Read the next Transaction record.
'
' End of File processing
' At End of File on the Master file, set the Master key to "ZZZZZZ"
' At End of File on the Transaction file, set the Transaction key to "ZZZZZZ"
' Continue processing until both keys are equal to "ZZZZZZ"
Dim MyDB As Database, MySQL As String, MySet As Recordset Dim appExcel As Excel.application Dim MyFiles As String Dim MasterKey As String, TransactionKey As String
Set MyDB = CurrentDb()
Set appExcel = CreateObject("Excel.Application")
' Set up the transaction file (Actual Data Spreadsheet)
MyFiles = appExcel.GetOpenFilename("Excel Files(*.xls),*.xls", , "Open Actuals Spreadsheet") If MyFiles = "False" Then Exit Sub
appExcel.Workbooks.Open FileName:=MyFiles, ReadOnly:=True appExcel.Visible = False
' Check that this is a genuine Actual spreadsheet On Error Resume Next Let Err.Number = 0 appExcel.Sheets("Sheet1").Range("B1").Select
If Err.Number = 9 Then
MsgBox "This is not a valid Actuals Spreadsheet."
appExcel.Quit
Exit Sub
End If
If appExcel.ActiveCell <> " Extracted Actuals Data" Then
MsgBox "This is not a valid Actuals Spreadsheet."
appExcel.Quit
Exit Sub
Else
appExcel.ActiveCell.OffSet(1, 0).Range("A1").Select
TransactionKey = appExcel.ActiveCell.OffSet & appExcel.ActiveCell.OffSet(0, 1) & appExcel.ActiveCell.OffSet(0, 2) End If appExcel.Visible = True
' Set up the Master File (Actual Table)
MySQL = "SELECT Actuals.[Study Code], Actuals.[TBCS Code], Actuals.[Year/Month], Actuals.Actual "
MySQL = MySQL + "From Actuals "
MySQL = MySQL + "ORDER BY Actuals.[Study Code], Actuals.[TBCS Code], Actuals.[Year/Month]; "
Set MySet = MyDB.OpenRecordset(MySQL)
If MySet.EOF Then
MasterKey = "ZZZZZZ"
Else
MasterKey = MySet![Study Code] & MySet![TBCS Code] & MySet![Year/Month] End If
Do Until TransactionKey = "ZZZZZZ"
If MasterKey < TransactionKey Then
' Read the next master record
MySet.MoveNext
MasterKey = MySet![Study Code] & MySet![TBCS Code] & MySet![Year/Month]
GoTo Next_Loop
End If
If MasterKey > TransactionKey Then
' Add a new record from the Transaction to the Master
MySet.AddNew
MySet![Study Code] = appExcel.ActiveCell
MySet![TBCS Code] = appExcel.ActiveCell.OffSet(0, 1)
MySet![Year/Month] = appExcel.ActiveCell.OffSet(0, 2)
MySet!Actual = appExcel.ActiveCell.OffSet(0, 4)
MySet.Update
' MySet.Requery
appExcel.ActiveCell.OffSet(1, 0).Range("A1").Select
TransactionKey = appExcel.ActiveCell.OffSet & appExcel.ActiveCell.OffSet(0, 1) & appExcel.ActiveCell.OffSet(0, 2)
GoTo Next_Loop
End If
' Keys are equal so update the Master with the Transaction value
MySet.Edit
MySet!Actual = appExcel.ActiveCell.OffSet(0, 4)
MySet.Update
' GoTo Next_Loop
appExcel.ActiveCell.OffSet(1, 0).Range("A1").Select
TransactionKey = appExcel.ActiveCell.OffSet & appExcel.ActiveCell.OffSet(0, 1) & appExcel.ActiveCell.OffSet(0, 2)
MySet.MoveNext
MasterKey = MySet![Study Code] & MySet![TBCS Code] & MySet![Year/Month]
Next_Loop:
Loop
Exit_LoadActualsDataButton_Click:
Exit Sub
Err_LoadActualsDataButton_Click:
MsgBox "An has occured." & vbCrLf & vbCrLf & _
"Error number: " & Err.Number & vbCrLf & vbCrLf & _
"Description: " & Err.Description
Resume Exit_LoadActualsDataButton_Click
' = Mid(ActiveCell, 1, (Len(ActiveCell) - 1)))
End Sub
Private Sub MainMenuButton_Click()
On Error GoTo Err_MainMenuButton_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Main_Menu"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_MainMenuButton_Click:
Exit Sub
Err_MainMenuButton_Click:
MsgBox Err.Description
Resume Exit_MainMenuButton_Click
End Sub
Private Sub MaintainContactTableButton_Click()
On Error GoTo Err_MaintainContactTableButton_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmBDTSContactsMaintenance"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_MaintainContactTableButton_Click:
Exit Sub
Err_MaintainContactTableButton_Click:
MsgBox Err.Description
Resume Exit_MaintainContactTableButton_Click
End Sub
Private Sub MaintainersNBTUsersButton_Click() On Error GoTo Err_MaintainersNBTUsersButton_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "frmBDTSMaintainNBTUsers"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_MaintainersNBTUsersButton_Click:
Exit Sub
Err_MaintainersNBTUsersButton_Click:
MsgBox Err.Description
Resume Exit_MaintainersNBTUsersButton_Click
End Sub
View 4 Replies
View Related
Feb 19, 2005
Guys, my database have 7 fields and 690 thousands of lines.
When I resort, for exampe by date field, the database on my P4-3.2 with 1gb memory, on Access 2003 with XPpro freezes and does not respond at all!!!
On my old P3-866 512mb with Win2k it was working! After 3 minutes the computer was getting back.... But now.... I waited for 20 minutes. The access doesnt load not a CPU, and no IO readswrites are done - it simply stops responding.
What can we do with it? Why the perfomance is SO LOW?!
View 5 Replies
View Related
Feb 16, 2015
I have a form (frmMain) which has a header with some basic links and text boxes I would like to keep as a frozen pane on top as the user are scrolling down the detail section of the form. The detail section does include a subform if that makes a difference (frmhome). When going to Options>Current Database> tabbed documents, the form header stays frozen perfectly.
I however would like to use "Overlapping windows" as the form center aligns in the Access window instead of left aligning when using "tabbed". So either :
1) how do I keep the header frozen in "overlapping" or
2) how do I center align the form in "tabbed" view, as right now the form just wants to go as far left as possible in the full Access window.
View 1 Replies
View Related
Apr 3, 2013
How do I select the first column of a multi-column list box (called "List1") for a query.
A single column list box works fine.
Code:
SELECT Tble_Employee.Emp_No, [forms]![attendee_form]![list1] AS SelectedCourse
FROM Tble_Employee;
View 6 Replies
View Related
Sep 1, 2007
Hi,
There is a requirement for
1)Populating a datasheet in a subform with a querystring which is dynamically built in VBA.This querystring is constructed based on the search criteria fields selected by the user in the main form.How can this be immplemented?
2_To click/double click a record in the datasheet,extract data and populate textfields,comboboxes with it which are in the main form.How is this achieved?Also,I can't find click events in a datasheet.
Pls let me know.
Thanks,
Savita
View 2 Replies
View Related
Nov 23, 2012
I've got a Datasheet form which has a Datasheet Subform within it. By default, none of the subforms display, and the user clicks the "plus" on the leftmost column. What I'd like to do is prevent a user from having multiple subforms open at once. Basically, when the user clicks to open another subform, the first one closes.
How can this be done?
Also, is there a way to do conditional formatting (either using the wizard or with vba) on datasheet forms?
View 11 Replies
View Related
Jul 13, 2015
My form is a datasheet with 2 fields: "Product" and "Quantity". Obviously I can't add a calculated field in this type of form; however I would like the word " Total" to display in the "Quantity" field just under the last record. I would also like the sum of the "Quantity" field to display at the bottom of the "Quantity" field in the empty record below the last record.
View 14 Replies
View Related
Jun 7, 2013
I have been fighting a problem with sorting the data in a subform that is in a datasheet. It is sorting the data automatically so the entries are not in the original order. Is there a way to disable the feature so that when I put data into the datasheet it will appear in the same order that it was originally.
View 2 Replies
View Related
Mar 31, 2015
Anyway, I have a form that opens in datasheet view. It displays company names that exist on a client table based on a "Like" criteria the user typed into a text box. They type the word "network" in the text box, click search and a datasheet opens that has all companies that have "network" somewhere in the title. That's it. Works perfectly. We'll call this datasheet view form result "Test Query Form."
I have a second form that currently allows users to select a company from a drop down box and then populates the rest of the form with data from a table for that company. Again, works perfectly. We'll call this form "Existing Info."
I want to make a change to this second form. Rather than allow a drop down combo box for selection of the company, I want the "Test Query Form" to open the "Existing Info" form and automatically populate the form based on the company that the user double clicks on in the "Test Query Form." For instance, if I type in "network" and clicked search and got three companies with the word "network" in the company name, I want the user to double click on the second company name and have the "Existing Info" form open up with that second company on it and all the info populated for that second company.
I know this needs to be VBA code on the dblClick command for the company name cell on the "Test Query Form" but I can't quite get it to push the company name through to the "Existing Info" form.
View 3 Replies
View Related
Apr 2, 2015
I'm trying to develop a werehouse database for me.and I'm in a terrible dead end.Formely I have a table Articles where I have all the articles on the market with the description, EAN, price. and a table Movement where with a code (related with the article's table) I can store all the item I fisically have in my werehouse and items I sell. (with a boolen field that set if the item is an income or an outcome).
I have a form linked to the Movement Table.I'd like to write an EAN in a textbox query that EAN to the article table and output the results in a datasheet.
View 2 Replies
View Related
