Tùy chọn

Về demo chenhinh_2 của bác domfootwear

Trang chủ
Về demo chenhinh_2 của bác domfootwear
Về demo chenhinh_2 của bác domfootwear

nam8384 > 30-03-16, 07:22 PM

Đầu tiên xin cảm ơn bác Domfootwear đã gửi cho anh em file demo. File của bác em dùng rất ổn. Mỗi tội là khi e tạo record mới, chèn ảnh vào thì nó lại tự động nhảy về record đầu tiên, rất khó chịu. Bác domfootwear và anh em giúp em làm sao để khi chèn ảnh thì vẫn ở record hiện tại được không ạ. e cảm ơn
file của bác Domfootwear đây: http://www.4shared.com/file/si_hAGo9/Chen_Hinh_2.html
RE: Về demo chenhinh_2 của bác domfootwear

maidinhdan > 30-03-16, 09:07 PM

(30-03-16, 07:22 PM)nam8384 Đã viết: Đầu tiên xin cảm ơn bác Domfootwear đã gửi cho anh em file demo. File của bác em dùng rất ổn. Mỗi tội là khi e tạo record mới, chèn ảnh vào thì nó lại tự động nhảy về record đầu tiên, rất khó chịu. Bác domfootwear và anh em giúp em làm sao để khi chèn ảnh thì vẫn ở record hiện tại được không ạ. e cảm ơn
file của bác Domfootwear đây: http://www.4shared.com/file/si_hAGo9/Chen_Hinh_2.html

Gửi code lên hoặc Đính kèm lên trang Wed nào dể tải file ( như www.mediafire.com) cho dễ tải rồi mọi người sẽ hỗ trợ.

Thân mến!
RE: Về demo chenhinh_2 của bác domfootwear

nam8384 > 30-03-16, 09:53 PM

(30-03-16, 09:07 PM)maidinhdan Đã viết:
(30-03-16, 07:22 PM)nam8384 Đã viết: Đầu tiên xin cảm ơn bác Domfootwear đã gửi cho anh em file demo. File của bác em dùng rất ổn. Mỗi tội là khi e tạo record mới, chèn ảnh vào thì nó lại tự động nhảy về record đầu tiên, rất khó chịu. Bác domfootwear và anh em giúp em làm sao để khi chèn ảnh thì vẫn ở record hiện tại được không ạ. e cảm ơn
file của bác Domfootwear đây: http://www.4shared.com/file/si_hAGo9/Chen_Hinh_2.html

Gửi code lên hoặc Đính kèm lên trang Wed nào dể tải file ( như www.mediafire.com) cho dễ tải rồi mọi người sẽ hỗ trợ.

Thân mến!
Vâng, e gửi file của bác domfootwear lên mediafire rồi: http://www.mediafire.com/download/xt20u5...Hinh_2.rar
RE: Về demo chenhinh_2 của bác domfootwear

ongke0711 > 31-03-16, 12:30 AM

Sau khi chèn hình thì có code Form.Requery để cập nhật lại cái form vì vậy con trỏ sẽ tự động chạy về record đầu tiên. Muốn con trỏ ở record mới vừa nhập thì thêm dòng code: để chạy đến record cuối cùng
DoCmd.GoToRecord , , acLast
RE: Về demo chenhinh_2 của bác domfootwear

nam8384 > 31-03-16, 12:22 PM

(31-03-16, 12:30 AM)ongke0711 Đã viết: Sau khi chèn hình thì có code Form.Requery để cập nhật lại cái form vì vậy con trỏ sẽ tự động chạy về record đầu tiên. Muốn con trỏ ở record mới vừa nhập thì thêm dòng code: để chạy đến record cuối cùng
DoCmd.GoToRecord , , acLast

Cám ơn bác, e làm được rồi. Tiện thể bác giúp luôn em, khi tạo record mới thì khung ảnh vẫn hiện ảnh của record trước, làm sao để nó hiện khung rỗng để chèn ảnh vào được không.
RE: Về demo chenhinh_2 của bác domfootwear

ongke0711 > 31-03-16, 04:14 PM

Bạn sửa chút trong code của Form_Current(): thêm đoạn code màu xanh
------------------------------------
...
Dim strImagePath As String
If IsNull(DuongDan) Then
MsgBox "Chua co hinh"
Me.ImageFrame.Picture = ""
Exit Sub
Else
....
-------------------------------------

Tôi nghĩ thay vì dùng MsgBox để thông báo chưa có hình sẽ gây phiền phức khi chạy tới chạy lui các record và cứ phải bấm OK cho cái thông báo, bạn dùng 1 label phụ có caption là "Chưa có hình" có vị trí nằm trên, ở giữa cái ImageFrame. Khi kiểm tra [DuongDan] là Null thì cho nó visible=True, ngược lại thì = False. Người dùng nhìn vô là biết rồi.
RE: Về demo chenhinh_2 của bác domfootwear

nam8384 > 31-03-16, 10:10 PM

(31-03-16, 04:14 PM)ongke0711 Đã viết: Bạn sửa chút trong code của Form_Current(): thêm đoạn code màu xanh
------------------------------------
...
Dim strImagePath As String
If IsNull(DuongDan) Then
MsgBox "Chua co hinh"
Me.ImageFrame.Picture = ""
Exit Sub
Else
....
-------------------------------------

Tôi nghĩ thay vì dùng MsgBox để thông báo chưa có hình sẽ gây phiền phức khi chạy tới chạy lui các record và cứ phải bấm OK cho cái thông báo, bạn dùng 1 label phụ có caption là "Chưa có hình" có vị trí nằm trên, ở giữa cái ImageFrame. Khi kiểm tra [DuongDan] là Null thì cho nó visible=True, ngược lại thì = False. Người dùng nhìn vô là biết rồi.

Đa tạ bác, bác giỏi thật. Bác có thể sửa luôn cho e cái mã DoCmd.GoToRecord , , acLast vì có trường hợp e muốn đổi hình cho một record bất kỳ thì nó cũng lại chạy tới record cuối cùng. Ví dụ có 10 record, e muốn chèn hình cho record thứ 5 thì nó lại chạy về record 10. Liệu có thể cho nó cứ ở nguyên record hiện tại không
RE: Về demo chenhinh_2 của bác domfootwear

ongke0711 > 31-03-16, 10:31 PM

Bạn khai báo 1 biến để gán vị trí hiện tại của record, sau khi cập nhật, requery sẽ Go to record đó. Code chữ xanh.
-------------------------
Private Sub cmdAddImage_Click()
On Error GoTo cmdAddImage_Err
Dim strFilter As String
Dim lngflags As Long
Dim varFileName As Variant
Dim CurRec As Integer

strFilter = "All Files (*.*)" & vbNullChar & "*.*" _
& vbNullChar & "Tat ca cac file (*.*)" & vbNullChar & "*.*"

lngflags = tscFNPathMustExist Or tscFNFileMustExist _
Or tscFNHideReadOnly

varFileName = tsGetFileFromUser( _
fOpenFile:=True, _
strFilter:=strFilter, _
rlngflags:=lngflags, _
strDialogTitle:="Vui long chon file...")

If IsNull(varFileName) Then
Else
CurRec = Me.CurrentRecord
Me![DuongDan] = varFileName
Forms![form1].Form.Requery
DoCmd.GoToRecord , , acGoTo, CurRec
End If

cmdAddImage_End:
On Error GoTo 0
Exit Sub

cmdAddImage_Err:
Beep
MsgBox Err.Description, , "Loi: " & Err.Number
Resume cmdAddImage_End
End Sub
--------------------------------
RE: Về demo chenhinh_2 của bác domfootwear

nam8384 > 01-04-16, 05:48 PM

(31-03-16, 10:31 PM)ongke0711 Đã viết: Bạn khai báo 1 biến để gán vị trí hiện tại của record, sau khi cập nhật, requery sẽ Go to record đó. Code chữ xanh.
-------------------------
Private Sub cmdAddImage_Click()
On Error GoTo cmdAddImage_Err
Dim strFilter As String
Dim lngflags As Long
Dim varFileName As Variant
Dim CurRec As Integer

strFilter = "All Files (*.*)" & vbNullChar & "*.*" _
& vbNullChar & "Tat ca cac file (*.*)" & vbNullChar & "*.*"

lngflags = tscFNPathMustExist Or tscFNFileMustExist _
Or tscFNHideReadOnly

varFileName = tsGetFileFromUser( _
fOpenFile:=True, _
strFilter:=strFilter, _
rlngflags:=lngflags, _
strDialogTitle:="Vui long chon file...")

If IsNull(varFileName) Then
Else
CurRec = Me.CurrentRecord
Me![DuongDan] = varFileName
Forms![form1].Form.Requery
DoCmd.GoToRecord , , acGoTo, CurRec
End If

cmdAddImage_End:
On Error GoTo 0
Exit Sub

cmdAddImage_Err:
Beep
MsgBox Err.Description, , "Loi: " & Err.Number
Resume cmdAddImage_End
End Sub
--------------------------------
Thanks bác. E làm được rồi. Thế là hoàn hảo. Cám ơn bác rất nhiều
Bài trước Bài tiếp

Về demo chenhinh_2 của bác domfootwear

Trang chủ

Về demo chenhinh_2 của bác domfootwear

RE: Về demo chenhinh_2 của bác domfootwear

RE: Về demo chenhinh_2 của bác domfootwear

RE: Về demo chenhinh_2 của bác domfootwear

RE: Về demo chenhinh_2 của bác domfootwear

RE: Về demo chenhinh_2 của bác domfootwear

RE: Về demo chenhinh_2 của bác domfootwear

RE: Về demo chenhinh_2 của bác domfootwear

RE: Về demo chenhinh_2 của bác domfootwear