שאלה בvba

[פימי המקורית]

שאלה בvba

יש לי טבלה באקסס עם מס' עמודות. עמודה אחת שמה נושא ועמודה שניה תיאור הנושא. בעמודת תיאור נושא יש שם ספר, נקודותיים, מס' עמוד, פסיק נקודה, רוח וכך הלאה. אני רוצה לעשות שאילתא על עמודת הנושא שיבחר לי רק נושא מסויים ומתוך זה לעשות על טבלת תיאור הטבלה טבלה חדשה של שם הספר ומספרי העמודים. איך אני עושה זאת?

 

[פימי המקורית]

פרוצדורה

הפר Private db As Database Private rs As Recordset Private rs2 As Recordset Private str As String Private tbName As String Public Sub addVirtuals() Set db = CurrentDb 'Set rs = db.OpenRecordset("fgislog") Set rs = db.OpenRecordset("select * from fgislog where title = shelfmark displayed ") Do Until rs.EOF str = "select title from fgislog where title like '" & fgislog!Description & "'" 'str = "select shelfmark displayd or normal shelfmark displayd from title where title like '" & rs!Shelfmark & ".*' or Classmark like '" & title!fgislog & "(*' or Classmark like '" & title!fgislog & "[a-z]*' or Classmark like '" & rs!Shelfmark & " *'" str = "select Classmark from A_Cambridge_with_virtuals where Classmark like '" & rs!shelfmark & ".*' or Classmark like '" & rs!shelfmark & "(*' or Classmark like '" & rs!shelfmark & "[a-z]*' or Classmark like '" & rs!shelfmark & " *'" Set rs2 = db.OpenRecordset(str) Do Until rs2.EOF DoCmd.SetWarnings flase str = "insert into A_A_A values('" & rs2!classmark & "','" & rs!shelfmark & "')" DoCmd.RunSQL (str) rs2.MoveNext Loop rs.MoveNext Loop DoCmd.SetWarnings True End Sub וצדורה שנשלחה לי לנושא