• Tạo nút lệnh trên Form để view report (Single view)
  • RE: Tạo nút lệnh trên Form để view report (Single view)

    DooHoaangPhuuc > 30-06-17, 11:51 AM

    Thưa Bác TranThanhAn , cháu dùng Single Form cho từng record để in ạ.
    Cảm ơn Bác thật nhiều.
    Cháu
    Do Hoang Phuc
  • RE: Tạo nút lệnh trên Form để view report (Single view)

    tranthanhan1962 > 30-06-17, 12:49 PM

    Nếu in thẳng bằng form thì tạo một lable xephang có caption là GIỎi dùng mã lệnh:
    Mã:
    If Xephanghocky.Value = xephang.Caption then
        Xephanghocky.ForeColor = 255
    Else
        Xephanghocky.ForeColor = 0
    End If
    Đưa đoạn mã trên vào các event: Form_Open (mở form), Form_Current (chuyển record), texbox Thanhtich.AfterUpdate hoặc các texbox nào ảnh hưởng lên giá trị của texbox Xephanghocky.
    Trường hợp dùng report thì đưa đoạn mã trên vào event Vùng chứa (texbox Xephanghocky trên report)_Format, ví dụ Detail_Format, PageHeaderSection_Format
    Xử lý lable xephang để giải quyết khâu không đưa ký tự có dấu tiếng Việt vào mã được. Có thể dấu lable xephang bằng cách thiết đặt properties Visible của lable xephang là No
  • RE: Tạo nút lệnh trên Form để view report (Single view)

    DooHoaangPhuuc > 01-07-17, 11:06 PM

    Chào Bác TranThanhAn,
    Cảm ơn Bác rất nhiều về các hướng dẫn .
    Không biết cháu làm sai ở nơi nào mà vẫn chưa tìm ra .
    Trên Report_Ketquahoctap , cháu tạo thêm trong vùng Detail của Report Design một label với:

    + Label  ( Name : xephang ; Caption : HỌC SINH GIỎI ;  Visible : No)

    Trong Build event : nhập mã lệnh như sau

    Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
    If Xephanghocky.Value = Xephang.Caption Then
        Xephanghocky.ForeColor = RGB(&HFF, &H0, &H0)
    Else
        Xephanghocky.ForeColor = RGB(&H0, &H0, &H0)
    End If
    End Sub

    Vì phần mềm là Access 2010 nên ForeColor chuyển bỏ tự động số 0 cuối trong thông số mã màu
      ForeColor = RGB(&HFF, &H00, &H00)   ---> ForeColor = RGB(&HFF, &H0, &H0)

    Sau khi lưu thay đổi Code cho VBA này, lưu thay đổi cho report_Ketquahoctap và View Report thì cũng không có sự thay đổi về màu Font chữ.

    Không biết cháu làm sai sót chi tiết nào.
    Cảm ơn Bác cùng Các Anh Chị giúp đỡ.
    Do Hoang Phuc
  • RE: Tạo nút lệnh trên Form để view report (Single view)

    tranthanhan1962 > 01-07-17, 11:10 PM

    Phuuc đưa CSDL lên đi rồi mới xử lý được.
  • RE: Tạo nút lệnh trên Form để view report (Single view)

    DooHoaangPhuuc > 02-07-17, 10:07 AM

    Chào Bác TranThanhAn,
    Sáng nay cháu đã kiểm tra lại và đã và đã xử lý được vấn đề.
    Cháu đưa dòng lện này vào mục :
     On Load của Tab Even trong report, cụ thể như sau :

    Private Sub Report_Load()
    If Xephanghocky.Value = Xephang.Caption Then
        Xephanghocky.ForeColor = RGB(&HFF, &H0, &H0)
    Else
        Xephanghocky.ForeColor = RGB(&H0, &H0, &H0)
    End If
    End Sub

    Lần nữa cháu xin cảm ơn Bác và Các Anh Chị trên diễn đàn đã giúp đỡ và giảng giải giúp cháu nâng cao hiểu biết về chương trinh access này.
    Do Hoang Phuc
  • RE: Tạo nút lệnh trên Form để view report (Single view)

    DooHoaangPhuuc > 12-07-17, 02:01 PM

    Chào Các Bác, các Anh Chị.
    Xin hướng dẫn sử lý nối chuỗi ký tự vào ô textbox như ví dụ sau :
    Để giảm thiểu gõ tay, trên Form nhập liệu (F-nhapdiachi: nhập địa chỉ) có:

    + [Textbox-diachi] :   123/123 Lê Văn Lương (ví dụ nhập số nhà 123/123 Lê Văn Lương)
    + Các button Phuong với các caption :  Phường 1, Phường 2, Phường 3 .....
    + Các button Quan với các caption :  Quận 1, Quận 2, ....., Q. Bình Thạnh....
    Khi nhấn vào các Button sẽ kết nối chuỗi dữ liệu vào ô textbox.
    Ví dụ như trên : Khi nhận vào Button-Phường 1, rồi Button-Quận 7
    Kết quả trong [textbox-diachi] : 123/123 Lê Văn Lương, Phường 1, Quận 7
       (123/123 Lê Văn Lương &","&" "&"Phường 1&","&" "&"Quận 7" .....  )
    Như thế sẽ đỡ công gõ rất nhiều và ít gõ sai. 
    Cảm ơn Các Bác, và các Anh Chị rất nhiều.
  • RE: Tạo nút lệnh trên Form để view report (Single view)

    maidinhdan > 12-07-17, 10:50 PM

    (12-07-17, 02:01 PM)DooHoaangPhuuc Đã viết: Chào Các Bác, các Anh Chị.
    Xin hướng dẫn sử lý nối chuỗi ký tự vào ô textbox như ví dụ sau :
    Để giảm thiểu gõ tay, trên Form nhập liệu (F-nhapdiachi: nhập địa chỉ) có:

    + [Textbox-diachi] :   123/123 Lê Văn Lương (ví dụ nhập số nhà 123/123 Lê Văn Lương)
    + Các button Phuong với các caption :  Phường 1, Phường 2, Phường 3 .....
    + Các button Quan với các caption :  Quận 1, Quận 2, ....., Q. Bình Thạnh....
    Khi nhấn vào các Button sẽ kết nối chuỗi dữ liệu vào ô textbox.
    Ví dụ như trên : Khi nhận vào Button-Phường 1, rồi Button-Quận 7
    Kết quả trong [textbox-diachi] : 123/123 Lê Văn Lương, Phường 1, Quận 7
       (123/123 Lê Văn Lương &","&" "&"Phường 1&","&" "&"Quận 7" .....  )
    Như thế sẽ đỡ công gõ rất nhiều và ít gõ sai. 
    Cảm ơn Các Bác, và các Anh Chị rất nhiều.

    Tôi lấy 1 Button-Phường 1 ra minh họa. Ta đặt tên cho nó là btnPhuong1, Caption = Phường 1
    Ô textbox-diachi đặt tên lại cho gọn là txtDiachi

    Chèn code sau vào sự kiện Click của Button-Phường 1
    Mã PHP:
    Dim a As StringAs String
    Me.txtDiachi
    ", " Me.btnPhuong1.Caption
    Me
    .txtDiachi 

    Các nút còn lại làm tương tự, Nhớ là đặt tên (Name; không gõ tiếng việt có dấu nhé, vì code không hiểu)
  • RE: Tạo nút lệnh trên Form để view report (Single view)

    lmthu > 14-07-17, 09:05 AM

    Thế sau này địa phương bạn phình lên thành mấy chục phường, mấy chục quận thì sao? chẳng lẻ ta lại vẽ hàng trăm cái Button để nhập liệu vào? theo ý tôi thì bạn nên dùng Combobox hay hơn.
  • RE: Tạo nút lệnh trên Form để view report (Single view)

    tranthanhan1962 > 14-07-17, 01:07 PM

    Thay thế các button = combobox. List danh sách các combobox là các field phường, quận. Chứ làm button thì le lưỡi luôn à. maidinhdan chỉ có ý xử lý phương thức nối text thôi. Chưa nghiên cứu sâu về cách thực hiện.
  • RE: Tạo nút lệnh trên Form để view report (Single view)

    DooHoaangPhuuc > 15-07-17, 01:25 AM

    Sory vì nhấn nhầm vào câu hỏi mới và xóa hết nội dung bạn hỏi.

    Bạn DooHoaangPhuuc hỏi lỗi Null đối với code của maidinhdan hương dẫn khi a null thì báo lỗi.

    Mình có trả lời phía dưới cách xử lý lỗi này.