Works great, thanks a lot!
Regards,
Oxydo
User Profile
Collapse
-
Hi Adezzi,
Since receiving your reply i've changed my code around somewhat to do most of the work in access itself, to be able to use your function. I'm now at the point where the data is put through a make table query, and stored in a temporary db.
At this point in the code i would like to call your function, but im not sure how.
Code:Sub tellijstvest() ' *** ' *** Declareer
Leave a comment:
-
Thanks for your reply ADezzi. I've tried to implement it into my code for extracting a DB to excel, then manipulating it. Sadly I'm now getting an invalid procedure error on the line;
Code:If Asc(Mid(UCase(strbasestring), 2, 1)) >= 65 And _ Asc(Mid(UCase(strbasestring), 2, 1)) <= 90 Then
...Leave a comment:
-
Hi Rabbit,
I was thinking along the same lines. However, how do i put this in a formula? If i just add an 0 to everything it wont work, and the amount of possibilities (to search and replace or crosstab) is staggering (1A to 1ZZZ).
My other option would be to change the sortorder (is this possible) from 0123456789abcde f.. to abcdef012345678 9.
Best regards,
Oxydo...Leave a comment:
-
Sorting alphanumeric values
Hello everyone,
I have a file in which i need to sort a database extract based on an alphanummerical column. The column is set to text to ensure it doesnt sort numbers before text, which works well.
However, a problem arises when users 'neglect' to input 1A as 01A;
Excel sorts my file as follows: 10A, 10B, 11C, 19A, 1A, 20A, 2A, MM10, MM11, MM1
In stead of the desired: 1A, 2A, 10A, 10B, 11C, 19A, 20A, MM1,... -
Stewart,
Thanks for your solution as well as your tip to use option explicit. I've now added this rule and found & solved a few more issues with this sub, thanks for the pointer!
Kind regards,
OxydoLeave a comment:
-
Object required error in an adaption of vba code
Hello all,
As you may recognize in the following code i've tried to merge 2 example pieces of code into one. I'm getting an error message stating an object is required on the line;
Code:For lngColumn =0 to rst.Fields.Count -1
Code:Sub tellijstvest() Dim qdf As DAO.QueryDef Dim dbs As DAO.Database Dim rstTel As DAO.Recordset
No activity results to display
Show More
Leave a comment: