משפט SQL עם תאריך

[MaD-d0g]

הקובץ לא יורד לי...

כאילו, למחשב...

 

[יעל51366]

ניסיתי וזה יורד יופי , אז אולי תנסה

שנית

 

[מס1]

חבל על הזמן זה לא כל הקובץ

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

 

[יעל51366]

לרון המשך:- מערך אוביקטים כפרמטר

בעבר כבר עזרת לי עם שליחת אוביקט כפרמטר למערך. משום מה הוא נותן לי על זה שגיאה: byref argument type mismatch הקוד :

Private Sub MyLoading(MyArray As Object) Dim curent As Integer 'îñôø äîåôò ùì äô÷ã äðèòï current = MyArray.Count Load MyArray(current) MyArray(current).Visible = True n = MyArray(current - 1).Top k = (MyArray(current - 1).Height * 1.2) MyArray(current).Top = n + k End Sub Public Sub AllLoading() 'èòéðú ùåøú ô÷ãéí çãùä loadingtime = True MyLoading lblPrice MyLoading lblProduct MyLoading p MyLoading lblAmount MyLoading lblSummary MyLoading lblsc1 MyLoading lblsc2 If st = True Then loadingtime = False 'àúçåì ùåøú äô÷ãéí äçãùä lblPrice(lblPrice.Count - 1).Caption = 0 For i = 0 To lblProduct(0).ListCount - 1 lblProduct(lblProduct.Count - 1).AddItem lblProduct(0).List(i) p(lblProduct.Count - 1).Caption = p(0).Caption Next i lblProduct(lblProduct.Count - 1).ListIndex = 0 p(lblProduct.Count - 1).Caption = 0 lblAmount(lblPrice.Count - 1).Text = 0 lblSummary(lblPrice.Count - 1).Caption = 0 glila End Sub מה עושים ?​

 

[רון קליין]

אבל...

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

 

[יעל51366]

הנה קובץ שמדגים את הבעיה

 

[יעל51366]

מצאתי מה הבעיה

הבעיה היתה שהפונקציה allloading הועברה (כנראה) אח"כ למודול (כרגע היא שם) ויש למודול בעיה (כנראה ) לטעון פקדים לטופס אחר הפתרון: להעביר את הפונקציה לטופס. או לשלוח כפרמטר את שם הטופס (??? לא ניסיתי)

 

[רון קליין]

נסי להוסיף פרמטר

אם הטופס הוא frmABC אז להוסיף פרמטר מסוג frmABC. למשל:

Public Sub LetsLoad(ByRef TheForm As frmABC)​

 

[פאשה0]

תנסי לשנות את Object ל-Variant

בשורה ראשונה, יכול להיות שזה יעזור. בכלל באיזו שורה הוא נותן שגיאה?

 

[Y o s s a r i a n]

זה הכל ACCESS אשם

לפני כמה ימים כתבתי על בעיה דומה העיניין נפתר כשה DB עבר המרה ל Sql Server

 

[פאשה0]

לגבי שאלה עם התאריכים

תנסי במקום "... OrderDate>=# " & DTPicker1.Value & "#" לרשום "... OrderDate>=datevalue(" & DTPicker1.Value & ")" (איך אפשר לעשות כך שורות באנגלית יופיעו בצד שמאל של ההודעה כי אחרת מתבלגן הסדר של סוגריים ותווים אחרים?)

 

[יעל51366]

יש מקשים של התחל קוד וסיים קוד

ובאמת אי אפשר להבין

 

[פאשה0]

תודה!

אז הנה שוב מה שכתבתי בהודעה לפני זה: במקום

"... OrderDate>=# " & DTPicker1.Value & "#"​

תנסי לרשום ככה:

"... OrderDate>=datevalue(" & DTPicker1.Value & ")"​