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

[יעל51366]

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

כתבתי את הקוד הבא :

Private Sub Combo1_click() Dim m As New ADODB.Recordset Dim j As String If Not loadtime And lblAmount.Count > 1 Then unloading Dim sDate As String 'sDate = "#" & DTPicker1.Value & "#" j = "select * from qq where CreatorCode=" & Combo2.List(Combo1.ListIndex) j = j & " and OrderDate>=# " & DTPicker1.Value & "#" j = j & " and OrderDate<=#" & DTPicker2.Value & "#" MsgBox j m.Open j, db, adOpenStatic, adLockOptimistic If m.BOF = False And m.EOF = False Then m.MoveFirst End If While Not m.EOF = True lblAmount(lblAmount.Count - 1).Caption = m.Fields("amount") lblDate(lblAmount.Count - 1).Caption = m.Fields("OrderDate") lblCustomer(lblAmount.Count - 1).Caption = m.Fields("CustomerCode ") '& " " & m.Fields("CustomerLastName ") lblOrderCOde(lblAmount.Count - 1).Caption = m.Fields("OrderCOde") lblProduct(lblAmount.Count - 1).Caption = m.Fields("ProductName") lblTamlog(lblAmount.Count - 1).Caption = m.Fields("ProductTamlog") lblSummary(lblAmount.Count - 1).Caption = Val(lblAmount(lblAmount.Count - 1).Caption) * Val(lblTamlog(lblAmount.Count - 1).Caption) m.MoveNext AllLoading Wend m.Close Set m = Nothing End Sub​

אבל משום מה הRECORDSETR תמיד ריק. למרות שבדקתי במסד וראיתי שיש רשומות המתאימות לתנאים שלי . מה פה לא בסדר ?

 

[יעל51366]

פתיחת דוח אקסס בגודל מקסימלי

שלום . יצרתי פתיחה של דוח שנכתב באקסס בקוד הבא:

Public Sub ShowReport(name As String, Optional condition As String) Dim x As New Access.Application x.OpenCurrentDatabase (App.Path & "\grintec.mdb") x.Visible = True If condition = "" Then x.DoCmd.OpenReport name, acViewPreview Else x.DoCmd.OpenReport name, acViewPreview, , condition End If End Sub​

הבעיה היא שגם המסד וגם הדוח נפתחים בגודל קטן מאד איך אני יכולה לקבוע מראש את הגודל ? משהו כמו report.windowstate=1 וכו'

 

[יעל51366]

איך למנוע פתיחה חוזרת של אקסס

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

 

[MaD-d0g]

זה נראה לי יותר קשור לאקסס

אפשר להוסיף ל Report באקסס אירוע שיסגור את האקסס בסגירת הדוח. ובקשר לפתיחה, לבדוק app.PrevInstance בהפעלה

 

[יעל51366]

ומה כותבים בארוע הזה ?

Private Sub Report_Close() End Sub​

ובקשר להערה השניה : הנה הקוד:

Public Sub ShowReport(name As String, Optional condition As String) Dim x As New Access.Application If App.PrevInstance = True Then Else x.OpenCurrentDatabase (App.Path & "\grintec.mdb") x.Visible = True End If If condition = "" Then x.DoCmd.OpenReport name, acViewPreview Else x.DoCmd.OpenReport name, acViewPreview, , condition End If 'x.WindowState = wdWindowStateMaximize End Sub ואין כל שינוי לאחר שהוספתי את שורת הקוד הנ"ל​

 

[MaD-d0g]

אממ

x.WindowState = wdWindowStateMaximize לא עוזר |??|

 

[יעל51366]

הודעת שגיאה

method or data member not found

 

[MaD-d0g]

אממ... זה מה שיצא לי בגוגל

אולי נשים את זה ישירות באקסס ולא בויבי

 

[יעל51366]

כלומר? איך בדיוק נשים את זה ?

 

[MaD-d0g]

הכוונה היא שנעשה מאקרו שיעלה

עם הפעלת אקסס (או פרצדורה במודול) ושם נקבע מה שאנחנו רוצים...

 

[מס1]

בעת טעינה להוסיף

DoCmd Maximize

 

[רון קליין]

תאריכים באקסס

אקסס מצפה לתאריך בפורמט mm/dd/yyyy. האם זה מה שאת שולחת לו? חוץ מזה, אני ממש מציע לך לעבוד עם פרמטרים (יש ב FAQ הסבר)

 

[יעל51366]

איךל מראים את רשימת הטבלאות שבמסד ש

שפתוח עי ADO ?

 

[MaD-d0g]

קישור

כאן

 

[יעל51366]

פשוט תודה

 

[יעל51366]

חיפוש בADO . מדוע לא עובד

מצב קוד מקור בפרויקט עם מסד נתונים שמבצע חיפוש. לכאורה המחרוזת לחיפוש תקינה . אולם כאשר יש לשאול נתונים לRS עפ המחרוזת לא נבחרת אף רשומה למרות שישנן רשומות המתאימות לקריטריונים. הבעיה לפי דעתי היא ב* של החיפוש עם LIKE. מה התחביר הנכון ?

SQLQuery = "SELECT * FROM Creators WHERE CreatorFirstName LIKE '*" & txtFields(1).Text & "*'"​

בהדפסת המחרוזת נוצר מצב של

SQLQuery = "SELECT * FROM Creators WHERE CreatorFirstName LIKE '*מ*'​

בהנחה שהטקסט לחיפוש היה מ . איך מתקנים ?

 

[MaD-d0g]

תנסי עם %

 

[יעל51366]

מה אחוז? איך משלבים אותו ?

 

[רון קליין]

באקסס LIKE זה עם % במקום *

 

[יעל51366]

פס גלילה . גולל יותר מדיי

איך אני מתקנת את הקוד המצורף(txt=zip) כדי שהגלילה תהיה בצורה כזו , שבכל פעם יראו את המוצרים המתאימים והם : א. לא יברחו למעלה. ב. הסמן שעל פס הגלילה יהי פרופורציוני למצב. האם יש פקד שעושה את זה טוב יותר. הרי לא כל מי שצריך לכתוב איזה דף צריך כל פעם להתעסק מההתחלה עם הגלילה.