שילוב תמונות
שלום לכולם,
אקסס 2003
כתבתי את הקטע הקוד הבא:
Private Sub Form_Load()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim i As Integer
Set db = CurrentDb()
Set rs = db.OpenRecordset("tbl")
Do While Not rs.EOF
If rs.RecordCount = i Then 'The real loop exit condition.
Exit Do
End If
If rs("Rate") < 0 Then
strSQL = " UPDATE tbl SET Path = 'C:\AccessXP\ArrowDown.JPG'"
strSQL = strSQL & " WHERE Name = '" & rs("Name") & "'"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoEvents
Else
strSQL = " UPDATE tbl SET Path = 'C:\AccessXP\ArrowUp.JPG'"
strSQL = strSQL & " WHERE Name = '" & rs("Name") & "'"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoEvents
End If
i = i + 1
rs.MoveNext
Loop '
DoCmd.SetWarnings True
Me.MyArrow.Visible = True
Me.MyArrow.Picture = Me.Path
End Sub
אני מקבל את אותה תמונה לכל רשומה.
הוספתי אובייקט תמונה לטופס עם קישור למיקום שם קובץ התמונה.
ניסיתי אובייקט מאוגד אך ללא הצלחה.
שלום לכולם,
אקסס 2003
כתבתי את הקטע הקוד הבא:
Private Sub Form_Load()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String
Dim i As Integer
Set db = CurrentDb()
Set rs = db.OpenRecordset("tbl")
Do While Not rs.EOF
If rs.RecordCount = i Then 'The real loop exit condition.
Exit Do
End If
If rs("Rate") < 0 Then
strSQL = " UPDATE tbl SET Path = 'C:\AccessXP\ArrowDown.JPG'"
strSQL = strSQL & " WHERE Name = '" & rs("Name") & "'"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoEvents
Else
strSQL = " UPDATE tbl SET Path = 'C:\AccessXP\ArrowUp.JPG'"
strSQL = strSQL & " WHERE Name = '" & rs("Name") & "'"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoEvents
End If
i = i + 1
rs.MoveNext
Loop '
DoCmd.SetWarnings True
Me.MyArrow.Visible = True
Me.MyArrow.Picture = Me.Path
End Sub
אני מקבל את אותה תמונה לכל רשומה.
הוספתי אובייקט תמונה לטופס עם קישור למיקום שם קובץ התמונה.
ניסיתי אובייקט מאוגד אך ללא הצלחה.