Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Về demo chenhinh_2 của bác domfootwear
#1
Đầu tiên xin cảm ơn  bác Domfootwear đã gửi cho anh em file demo. File của bác em dùng rất ổn. Mỗi tội là khi e tạo record mới, chèn ảnh vào thì nó lại tự động nhảy về record đầu tiên, rất khó chịu. Bác domfootwear và anh em giúp em làm sao để khi chèn ảnh thì vẫn ở record hiện tại được không ạ. e cảm ơn
file của bác Domfootwear đây: http://www.4shared.com/file/si_hAGo9/Chen_Hinh_2.html
Chữ ký của nam8384 nam8384,gia nhập Thủ Thuật Access từ 17-03 -16.
Reply
Những người đã cảm ơn
#2
(30-03-16, 07:22 PM)nam8384 Đã viết: Đầu tiên xin cảm ơn  bác Domfootwear đã gửi cho anh em file demo. File của bác em dùng rất ổn. Mỗi tội là khi e tạo record mới, chèn ảnh vào thì nó lại tự động nhảy về record đầu tiên, rất khó chịu. Bác domfootwear và anh em giúp em làm sao để khi chèn ảnh thì vẫn ở record hiện tại được không ạ. e cảm ơn
file của bá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ư http://www.mediafire.com) cho dễ tải rồi mọi người sẽ hỗ trợ.

Thân mến!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
(30-03-16, 09:07 PM)maidinhdan Đã viết:
(30-03-16, 07:22 PM)nam8384 Đã viết: Đầu tiên xin cảm ơn  bác Domfootwear đã gửi cho anh em file demo. File của bác em dùng rất ổn. Mỗi tội là khi e tạo record mới, chèn ảnh vào thì nó lại tự động nhảy về record đầu tiên, rất khó chịu. Bác domfootwear và anh em giúp em làm sao để khi chèn ảnh thì vẫn ở record hiện tại được không ạ. e cảm ơn
file của bá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ư http://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 của bác domfootwear lên mediafire rồi: http://www.mediafire.com/download/xt20u5...Hinh_2.rar
Chữ ký của nam8384 nam8384,gia nhập Thủ Thuật Access từ 17-03 -16.
Reply
Những người đã cảm ơn
#4
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
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn nam8384
#5
(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

Cám ơn bác, e làm được rồi. Tiện thể  bác giúp luôn em, khi tạo record mới thì khung ảnh vẫn hiện ảnh của record trước, làm sao để nó hiện khung rỗng để chèn ảnh vào được không.
Chữ ký của nam8384 nam8384,gia nhập Thủ Thuật Access từ 17-03 -16.
Reply
Những người đã cảm ơn
#6
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.
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
(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 tạ bác, bác giỏi thật. Bác có thể sửa luôn cho e cái mã DoCmd.GoToRecord , , acLast vì có trường hợp e muốn đổi hình cho một record bất kỳ thì nó cũng lại chạy tới record cuối cùng. Ví dụ có 10 record, e muốn chèn hình cho record thứ 5 thì nó lại chạy về record 10. Liệu có thể cho nó cứ ở nguyên record hiện tại không
Chữ ký của nam8384 nam8384,gia nhập Thủ Thuật Access từ 17-03 -16.
Reply
Những người đã cảm ơn
#8
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
--------------------------------
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn nam8384 , maidinhdan
#9
(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
Chữ ký của nam8384 nam8384,gia nhập Thủ Thuật Access từ 17-03 -16.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Việt hóa bộ lọc của access nam8384 3 234 07-07-16, 12:32 PM
Bài mới nhất: cpucloi
  Demo Chèn và hiển thị hình ảnh bằng đường dẫn tranthanhan1962 19 2,100 09-03-16, 11:00 AM
Bài mới nhất: maidinhdan
  [Help] Demo Form nhắc nhỡ lịch hẹn tranhai_vn 5 388 01-12-15, 09:31 PM
Bài mới nhất: ongke0711
  [Hỏi] Cách không cho nhập chỉ cho chọn trong combobox của access thunga25 4 959 20-07-15, 10:31 AM
Bài mới nhất: hkht
  demo kết nối SQL trên hosting tt1212 2 393 05-06-15, 11:28 AM
Bài mới nhất: maidinhdan

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ