Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Rhinorhino on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Search results for query: *

  1. JohnJoker

    assign value to a field

    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
  2. JohnJoker

    assign value to a field

    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,
  3. JohnJoker

    assign value to a field

    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,
  4. JohnJoker

    assign value to a field

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

    assign value to a field

    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...
  6. JohnJoker

    Visual basic split name

    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
  7. JohnJoker

    Visual basic split name

    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...
  8. JohnJoker

    Export Range to Delimited Text File

    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...
  9. JohnJoker

    Update records in a table

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

    Update records in a table

    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
  11. JohnJoker

    Update records in a table

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

    Update records in a table

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

    Update records in a table

    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...
  14. JohnJoker

    Update records in a table

    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...
  15. JohnJoker

    Update records in a table

    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?
  16. JohnJoker

    Update records in a table

    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...

Part and Inventory Search

Back
Top