Is there a simpler way than this? I have over 110 columns I would have to map.
If this is the only way, I will do it, but I was hoping there might be an easier way...
User Profile
Collapse
-
Sorry it took me so long to get back to you, but I tried it, and it gets me close, but when it goe to execute the " Selection.Entir eRow.Hidden = True"
I get an error: "Object doesn't support this property or method."
Any ideas?
Also, I was trying to add another step here, so Itred this code ot change the row to blue:
Code:Function HideRow() Dim xlApp As Object
Leave a comment:
-
Problem Exporting to Excel
I am having quite the unique problem trying to Export to Excel and I need ot find a solution within 3 hours. -- PLEASE HELP!
The system exports a file from the application that the users can make changes to and then reimport. But now matter what format I specify to export to, when I open the exported files, it says they are in Excel 5.0.
I originally used the code:
Code:DoCmd.OutputTo acTable,
-
Okay - Never Mind - I am being dense. I get what you are telling me to do - put the confirmation box in the Before Update only, and that will capture all changes.
It works great!
Thanks again!Leave a comment:
-
I appreciate all the help.
So here is where it stands now:
My code for the Save Button looks like this:
Code:Private Sub Save_Record_Click() On Error GoTo Err_Save_Record_Click Dim Save_Response As String Save_Response = MsgBox("You Are About To Save This Record. Do You Want To Continue?", vbQuestion + vbApplicationModal + vbYesNo, "Save Record?")
Leave a comment:
-
Here is the save code I have:
Code:Private Sub Save_Record_Click() On Error GoTo Err_Save_Record_Click Dim Save_Response As String Save_Response = MsgBox("You Are About To Save This Record. Do You Want To Continue?", vbQuestion + vbApplicationModal + vbYesNo, "Save Record?") If Save_Response = vbYes Then DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord,
Leave a comment:
-
Thanks. I put it in the code for the next button, but it is still not keeping the saved changes. Is it wrong for me to be using the Undo Changes command? Should I be doing something else
This is the code now:
Code:Private Sub Add_Record_Click() On Error Resume Next If Me!Dirty Then DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70 End If DoCmd.GoToRecord
Leave a comment:
-
Thanks - but do I put this in the "ON Dirty..." for the field, or for the form itself?
Or do I put in the code for the button?
Thanks again...Leave a comment:
-
How to Keep Access From Automatically Saving Form Changes
This is king of urgent. I am in the middle of system testing and having problems.
I have a form where users can update a Mater List of Values. I have a Save, Delete, Add-New, and Forward and Backward buttons.
But when the users make changes to a record and then hit forward or hit "Add-New', it automatically saves the records. I thought about putting in an 'undo' command with the forward and backward buttons,... -
Error with Forward & Backward Buttons on Access Form
I have a form where I put my own Back and Forward buttons on the form.
I used the codes:
Code:DoCmd.GoToRecord , , acNext DoCmd.GoToRecord , , acPrevious
Is there a way to detect if it is a t the last record? Or some other way to fix this.
I tired using the on the on error.... step but it messes with my other... -
Great! Looks good. I will try as soon as I get a chance.
Thanks...Leave a comment:
-
-
Round Time to Nearest Second
I have a coupe of queries where I use the Time() function. Later I need to match these records to each other. But I have a certain situation where the queries are run on different records at barely different time (a few seconds apart). So the records end up not matching to each other. So I would like the function to round to the nearest minute so that they will still match. How do I do this?
I have tried format(tim(), "HHNN").... -
This is my current code:
Code:Private Function Connect(ByVal strVvPathAndFileNameOfExcelSpreadsheet As String) As Boolean ' Make and open a connection to a given Excel spreadsheet Set cnMvConnection = New ADODB.Connection With cnMvConnection .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & strVvPathAndFileNameOfExcelSpreadsheet &
Leave a comment:
-
This is my current code:
Code:Private Function Connect(ByVal strVvPathAndFileNameOfExcelSpreadsheet As String) As Boolean ' Make and open a connection to a given Excel spreadsheet Set cnMvConnection = New ADODB.Connection With cnMvConnection .Provider = "Microsoft.Jet.OLEDB.4.0" .ConnectionString = "Data Source=" & strVvPathAndFileNameOfExcelSpreadsheet &
Leave a comment:
-
JHNielson started a topic How to Alter an Excel Spreadsheet After Export from Accessin Visual BasicHow to Alter an Excel Spreadsheet After Export from Access
I have a process that exports a set of records from Access to a Spreadsheet. I would like to hide the second row if possible.
Is there a way to do this through VB?
Thanks for any help I can get. -
Alter a Created Spreadsheet After Export
I have a process that exports a set of records from Access to a Spreadsheet. I would like to hide the second row if possible.
Is there a way to do this through VB?
Thanks for any help I can get. -
Well I solved it, so I just thought I would share the answer in case anyone else had this problem.
Basically I came to realize that Access was seeing these numbers as much more detail than simply to the second decimal. So the numbers were never perfectly matching out to the nth decimal.
So I but the criteria as Round([...],2)<>Round([...]+[...]+[...]),2
And that worked...Leave a comment:
-
URGENT: Error in Summing Values in a Query!
I Know I've posted an Urgent message before. But I'm in the middle of system testing, and these little stupid bugs are killing me......
I have a query that checks that a set of values (the values in 6 fields) are actually equal to the total they submitted on the form.
The fields are set to Double with Auto for # decimal places. But I've also tried it with them set to 2-Decimal places.
... -
No activity results to display
Show More
Leave a comment: