Dim Average as Double
Dim A$ as String
Open "Grades.txt" For Input As #1
Do until EOF(1)
Line Input #1, A$
Average = ParseAndAverage(A$)
Loop
Then write a function to parse and return the average of each A$.
Hi,
Keybd_event VK_SNAPSHOT, 1, 0, 0
The code above should copy only the active window. Instead it copies the whole screen. Changing the "1" to a "0" provides the same result. When I press Alt+PrtScr on the keyboard, it works properly.
I have Windows 2000 Server.
Any...
Hi Brian and Cornerstone,<br><br>First, I did not misspell "caption" in the code - only in the message.<br><br>Second, here is my grand scheme:<br><br>I am running a report that runs for any of a number of countries. My objective it to print the reports to Adobe Acrobat...
Hi,<br><br>I need to be able to run a report multiple times. However, I need to have a different caption each time I run it. How do you change the caption property of a report with code without opening it. <br><br>The helper suggests that a report is in the...
Will5,<br><br>If the date field is from a query or a table, format the field as a short date. Then I believe the export will pass date without time.<br><br>Mike
Pance,<br><br>Try creating a table containing Batch numbers and a date. The batch number could be an autonumber. You can start it from any number you want. When it is time to do a new batch number, just append Now() to the batch number table. Then run a summing...
Kathryn,<br><br>Thanks for your help. I am aware of the ways you had suggested. I was merely wondering if there was a way to do it directly - in a query. I was thinking that, since the row number is available running a SQL statement in code, perhaps it...
Hi,<br>I would like to include a rank field in a query that sorts descending. I believe the row number would be equal to the rank. For instance, in a query listing in descending order of revenue generated the top 10 sales people, the sales person at the top of the list would be ranked 1, the...
Thanks jgarnick!!<br><br>Thanks for your question. It showed me how to calculate rank in a report that lists perhaps the top 50 sales people. The person at the top of the list will have a rank of one, the second a rank of two, etc. I just added a test box, set it...
Use the following code:<br><br>Option Compare Binary<br>Option Explicit<br><br>'Attribute VB_Name = "basDatabasePassword"<br>'--------------------------------------------------<br>' basDatabasePassword<br>'<br>' Get the database password of a Jet...
Hi,<br><br>If you go Microsoft's knowledge base, there are a few articles on getting Access 97 and 2000 to work on the same machine: Q241141, Q218861, Q141275 ,Q220914, Q220885, and Q235280.<br><br>Mike
...Because the number argument has been omitted, Randomize uses the return value from the Timer function as the new seed value.<br>
<br>
Dim MyValue<br>
Randomize ' Initialize random-number generator.<br>
<br>
MyValue = Int((6 * Rnd) + 1) ' Generate random value between 1 and 6.<br>
<br>...
Hi,<br>
<br>
If one must use unbound forms, etc., in Access to interact with Oracle or SQL Server, would there be any advantage to using Access? Why not use VB6 if it is available?<br>
<br>
Just asking. :-)<br>
<br>
Mike
Lanie,<br>
<br>
I wrote the following function for names. It has worked well so far.<br>
<br>
Mike<br>
<br>
Public Function MixCase(ByVal strTextIn As String) As String<br>
'This function returns a string where<br>
'the first letter of each word is upper case and<br>
'the rest of the letters of...
Hi,<br>
<br>
I need to develop an Access DB where some fields are in English and other fields are in Japanese. The field names are English. I want to store both in the same table. For instance, one field will store the last name in English and another field will have the last name in Japanese...
Hi Elizabeth,<br>
<br>
Here is the code I tried but the application does an illegal operation and then quits when it tries to execute the "compact" command.<br>
<br>
Private Sub Command18_Click()<br>
SendKeys "EnTel.mdb", True 'The compact from...
Thanks again mkervin,<br>
<br>
I have Access 2000 at home but not at work. But I will remember your tip when I use Access at home. It will be helpful.<br>
<br>
Thanks again,<br>
<br>
Mike
Thanks mkervin,<br>
<br>
I tried your suggestion, but my version of Access 97 doesn't give me the option to compact on close. Is this an option on Access 2000?<br>
Thanks again.<br>
Mike
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.