Search results for query: *

K is: m1 = Array("A", "E", "I", "O", "U", "Y", "W", "H", "B", "F", "P", "V", "C", "G", "J", "K", "Q", "S", "X", "Z", "D", "T", "L", "M", "N", "R") m2 = Array(0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1, 1, 2, 2, 2, 2, 2, 2, 2, 2, 3, 3, 4, 5, 5, 6) For i = 0 To 25 k(Asc(m1(i))) = m2(i) Next

Sorry, it has not solved. The problem is that it is generating the field but for same reason does like to read the first letter of the Firstname (i.e Name=Cyrus,Andrew) it is geerating (i.e field=C264) Thanks,

Sorry, has solved. The problem is that it is generating the field but for same reason does like to read the first letter of the Firstname (i.e Name=Cyrus,Andrew) it is geerating (i.e field=C264) Thanks,

Hi The error that is comming up now "is invalid procedure call or argument" same line ip = k(Asc(Mid$(nam, 1, 1))) Thanks,

Hi Guys I have got the following function, that Generates value to a field by getting the first letter of Firstname, Surname + 3 numbers. I am having an error "Subscript out of range" on the following lineline "ip = k(Asc(Mid$(nam, 1, 1)))" Function Soundex(na As String) As String Dim m1...

The error I am getting is: Compile Error, Do without loop. I am trying to assign value to a field= First letter of Firstname + first letter of Surname + numbers whatever they are according the codes given. Does it make sense? i.e FIELD=WH616. Thanks

I have the following code I need help because it does not work. Private Sub Command0_Click() Dim NUMCHECK As Integer Dim SURN As String Dim CD As String Dim CURCH As String Dim PREVNO As String Dim ADNUM As String Dim PREVCH As String Dim LONGA As Integer Dim C1 As String Dim C2 As String...

I am trying to export an Excel file to delimited text file. The code below works fine for one range. I would like to include others ranges. How can I do that. CODE: For example I want to export also B44:F44, B48:F48, H56 ...etc Sub CallExport() 'ExportRange(range,where,delimiter) Call...

Yes t is Access database, and I am using VB6 because I am testing many conditions. Thanks

No. What I want is to check if the SpecimenDate is Null. If is not null assign values to Ageyrs Agemths Agewks Year Quarter Thanks

I have done it, tested and is going through all the records but it is not making the fiels = Null. Thanks,

Do You think that I also have to use rst.movenext

I have NEXT i. Private Sub Command147_Click() Dim db As Database Dim rst As Recordset Set db = CurrentDb() Set rst = db.OpenRecordset("Survey") For i = 0 To rst.RecordCount - 1 ' place code here If IsNull(SpecimenDate) = False Then Ageyrs = (SpecimenDate - Dob) / 365.5...

There you go Private Sub Command147_Click() Dim db As Database Dim rst As Recordset Set db = CurrentDb() Set rst = db.OpenRecordset("Survey") For i = 0 To rst.RecordCount - 1 ' place code here If IsNull(SpecimenDate) = False Then Ageyrs = (SpecimenDate - Dob) / 365.5...

Thank you it's working but I have to go though each record and click the button. It does not do for all the records in the table. Do you know what I mean?

I am using the code below to update the fields in a table. It works fine if I do one record at a time. What I want is to update all records when I click the button, I have tried so many things and none of them worked. What I am doing wrong? Dim db As Database Dim rst As Recordset...