dataset in access - אקסס

[FullTime]

אולי מישהו יודע להחכים אותי מדוע השאילתה לא נטענת, הוא מחזיר שגיאה 'דרושים 2 פרמטרים' מס' 3061

    Dim db As dao.Database
    Dim rs As dao.Recordset
    Dim strSQL As String

    strSQL = "SELECT [תאריך התחלה], [תאריך סיום], [הקפאה עד], [יום חיוב], [שם בעל חשבון], [קוד מוסד], בנק, סניף, חשבון, סכום, [קוד חבר],  מטבע " & _
             "FROM הוקים WHERE [תאריך התחלה] <=[Forms]![frmCraeteHok]![txtDate] AND [תאריך סיום] >=[Forms]![frmCraeteHok]![txtDate] AND [הקפאה עד] <=[Forms]![frmCraeteHok]![txtDate] AND [יום חיוב] =Day([Forms]![frmCraeteHok]![txtDate]) AND [קוד מוסד] =[Forms]![frmCraeteHok]![txtMosad] ;"

    Debug.Print strSQL

    Set db = CurrentDb
    Set rs = db.OpenRecordset(strSQL)

    If rs.RecordCount < 1 Then
        MsgBox "לא נמצאו רשומות.", vbCritical + vbMsgBoxRight + vbMsgBoxRtlReading
        Exit Sub
    Else
        rs.MoveLast
        MsgBox rs.RecordCount
    End If

 

[FullTime]

אף אחד?

 

[Rרחמים]

כנראה שהשאילתא מכילה שני שמות של עמודות שלא קיימות ולכן אקסס מבין שאלו פרמטרים

 

[FullTime]

לא.
ניסיתי גם להעתיק עם debag לשאילתה פיזית וזה נטען טוב...

 

[מורדי]

רק עכשיו ראיתי את השאלה.
כנראה שהאובייקט recordset לא תומך בהפנייה לאובייקטים אחרים של אקסס.
הפיתרון הוא שתוציא את המשתנים מהמרכאות. זאת אומרת שהמחרוזת "strsql" תהיה כבר טעונה בפרמטרים המדוייקים. (לערכי תאריך כדאי להשתמש בפונקציה clnd ולתת לשאילתא לחפש ערכים מספריים. ערכי טקסט אפשר לשית בתוך גרש אחד או 4 מרכאות.

 

[HUBHCBH]

במקום " (גרשים) אפשר להשתמש ב '' (גרש בודד), מנסיון, זה עובד!

 

[moishy]

תראה את זה, אם לא תבין, אסביר לך:

strSQL = "SELECT [תאריך התחלה], [תאריך סיום], [הקפאה עד], [יום חיוב], [שם בעל חשבון], [קוד מוסד], בנק, סניף, חשבון, סכום, [קוד חבר],  מטבע " & _
         "FROM הוקים WHERE [תאריך התחלה] <=" & [Forms]![frmCraeteHok]![txtDate] & " AND [תאריך סיום] >= " & [Forms]![frmCraeteHok]![txtDate] & " AND [הקפאה עד] <= " & [Forms]![frmCraeteHok]![txtDate] & " AND [יום חיוב] = " & Day([Forms]![frmCraeteHok]![txtDate]) & " AND [קוד מוסד] = " & [Forms]![frmCraeteHok]![txtMosad]

 

[FullTime]

רק עכשיו ראיתי את השאלה.
כנראה שהאובייקט recordset לא תומך בהפנייה לאובייקטים אחרים של אקסס.
הפיתרון הוא שתוציא את המשתנים מהמרכאות. זאת אומרת שהמחרוזת "strsql" תהיה כבר טעונה בפרמטרים המדוייקים. (לערכי תאריך כדאי להשתמש בפונקציה clnd ולתת לשאילתא לחפש ערכים מספריים. ערכי טקסט אפשר לשית בתוך גרש אחד או 4 מרכאות.

תראה את זה, אם לא תבין, אסביר לך:

strSQL = "SELECT [תאריך התחלה], [תאריך סיום], [הקפאה עד], [יום חיוב], [שם בעל חשבון], [קוד מוסד], בנק, סניף, חשבון, סכום, [קוד חבר], מטבע " & _
"FROM הוקים WHERE [תאריך התחלה] <=" & [Forms]![frmCraeteHok]![txtDate] & " AND [תאריך סיום] >= " & [Forms]![frmCraeteHok]![txtDate] & " AND [הקפאה עד] <= " & [Forms]![frmCraeteHok]![txtDate] & " AND [יום חיוב] = " & Day([Forms]![frmCraeteHok]![txtDate]) & " AND [קוד מוסד] = " & [Forms]![frmCraeteHok]![txtMosad]

תודה תודה.