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 Chriss Miller 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: *

  • Users: stefanhab
  • Order by date
  1. stefanhab

    what does rx.MoveNext really do (really only rx?)

    hi fneily, i delected the Dim var_profil_1 As Integer Dim var_profil_2 As Integer it obviously is not integer (maybe i try long or something later) and now it works perfect! so thanks a lot and have a nice evening or what time you'll probably might have Stefan
  2. stefanhab

    what does rx.MoveNext really do (really only rx?)

    hi fneily, i added your recommendation - and it worked well (there occured a mistake nr. 6, but thats due to wrong variable declaration i think [PROFIL_ID is sometimes longer i expect]) here is the full code: Sub COPY() Dim rs1 As DAO.Recordset Dim rs2 As DAO.Recordset Dim...
  3. stefanhab

    what does rx.MoveNext really do (really only rx?)

    hi aceman1 thanks for your input - i declared the variables and simplified the code a bit to emphasize the real problem Sub COPY() Dim rs1 As DAO.Recordset Dim rs2 As DAO.Recordset Dim var_pre_trim As String Dim var_post_trim As String Dim var_profil_1 As Integer Dim...
  4. stefanhab

    what does rx.MoveNext really do (really only rx?)

    oh besides PROFIL_ID is in both recordsets a numeric column, so If var_profil_2 <> var_profil_1 Then should work
  5. stefanhab

    what does rx.MoveNext really do (really only rx?)

    herewith i want to emphasise, what i do not unterstand: access (the compiler?) complains that there is no recordset in recset2 but i do not tell him, that he should jump into a new line? if the PROFIL_IDs are equal, access should just edit the old row of recest2 with the values of recset1 and...
  6. stefanhab

    what does rx.MoveNext really do (really only rx?)

    hi i have a code, that doesnt work - but i don't know why, since the structure seems logical to me. in the following i will post the code and make some annotations on it (so i try to communicate, what i think the code means for the compiler) Sub COPY() Dim rs1 As DAO.Recordset Dim...
  7. stefanhab

    access (dao) request doesnt work

    OH YEAH, it works - THANK YOU SO MUCH Sub COPY_SQL() Dim strSQL As String Dim var_xxx As String var_xxx = "1_1_1_1" strSQL = "INSERT INTO Duplication_Test ( " & _ "KATALOG_ID, PROFIL_ID, CONCAT, SWERT ) " & _ "SELECT KATALOG_ID, PROFIL_ID, CONCAT, SWERT " & _ "FROM Working_Table_KAP1 " &...
  8. stefanhab

    access (dao) request doesnt work

    i tried to outwit access but it didnt work Sub COPY_SQL() Dim strSQL As String Dim x As String var_xxx = "1_1_1_1" strSQL = "INSERT INTO Duplication_Test ( " & _ "KATALOG_ID, PROFIL_ID, CONCAT, SWERT ) " & _ "SELECT KATALOG_ID, PROFIL_ID, CONCAT, SWERT " & _ "FROM Working_Table_KAP1 " & _...
  9. stefanhab

    access (dao) request doesnt work

    My code is the SQL, are you saying you have decided to go with that?" yes - i tried it with the numeric variable (as a test) and it worked well but access refuses my text-trials
  10. stefanhab

    access (dao) request doesnt work

    WHERE CONCAT = 1_1_1_1 " "WHERE CONCAT = "1_1_1_1" " "WHERE CONCAT = '1_1_1_1' " which i expected should be the correct one "WHERE CONCAT = '"1_1_1_1"' " "WHERE CONCAT = ("1_1_1_1") " "WHERE CONCAT = `1_1_1_1` " but none of them worked
  11. stefanhab

    access (dao) request doesnt work

    nono, the doesnt work was referring to my old code - i actually try yours and it worked at least with the numeric variables (at my code i had to delete the rs2.MoveNext and the rs2.MoveFirst as well, so that it worked again - but also not for the text-columns)
  12. stefanhab

    access (dao) request doesnt work

    thanks for your response, nono - the fieds are both text so CONCAT is in recset1 and recset2 a text field
  13. stefanhab

    access (dao) request doesnt work

    oh, no it doesnt work anymore
  14. stefanhab

    access (dao) request doesnt work

    but why does it only work with numeric variables? If var1 = 34 Then ... works since var1 is a numeric variable, but If var3 = "1_1_1_1" doenst work - beides var3 is a text string
  15. stefanhab

    access (dao) request doesnt work

    hey, thanks a lot for your guideline Sub COPY() Set rs1 = CurrentDb.OpenRecordset("SELECT * FROM Working_Table_KAP1") Set rs2 = CurrentDb.OpenRecordset("SELECT * FROM Duplication_Test") If Not rs1.EOF Then ' And Not rs2.EOF rs1.MoveFirst rs2.MoveFirst...
  16. stefanhab

    access (dao) request doesnt work

    oh no wait, there happend something with the database - i think i must have worked partially, i try a little bit more
  17. stefanhab

    access (dao) request doesnt work

    hi Remou, thanks for the input. I deleted the And Not rs2.EOF and then also rs2.MoveFirst (because access forced me to do so) but then failure 3021 occured (no actual recordset) --> thats why i implemented these EOF things
  18. stefanhab

    access (dao) request doesnt work

    hi, i have a problem that drives me mad since i can't see a mistake and think the code once worked but doesn't anymore (but i am starting to get the impression, that it was a distraction of sense) Sub COPY() Set rs1 = CurrentDb.OpenRecordset("SELECT * FROM Working_Table_KAP1") ' opens the...
  19. stefanhab

    Multiple INSERT INTO

    Hi JerryKlmns, thanks for the code I tried it and it worked very well - but I can't tell you, if it was faster than the other one, since I tried it on my very old mainstation which is a bad competition. But many thanks! Stefan Habermehl
  20. stefanhab

    Multiple INSERT INTO

    hi thanks for all your relies, buti have found now a solution that suits best for the requirements. and for those who are interested - or maybe people, who will search later through the discussion board, here the solution: Sub CONCAT() Set rs = CurrentDb.OpenRecordset("SELECT * FROM...

Part and Inventory Search

Back
Top