• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Help! tuỳ biến tiêu đề của report

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Report
  • Help! tuỳ biến tiêu đề của report
• Help! tuỳ biến tiêu đề của report

• Help! tuỳ biến tiêu đề của report

  daihoangtu > 10-10-11, 03:30 PM

  Chào các pro !
  Mình có 1 report có rowsource là 1 crosstable query thống kê số lượng của các tên vật tư
  Cho mình hỏi trong Access có cách nào tuỳ biến xoay chữ tên vật tư trong report giống như trong excel khi ta muốn xoay chữ từ nằm ngang sang dạng đứng? ( trong excel : Format/Cell/ Aligement/ Orientation - chọn góc quay)
  
  Thanks

• RE: Help! tuỳ biến tiêu đề của report

  domfootwear > 10-10-11, 05:23 PM

  (10-10-11, 03:30 PM)daihoangtu Đã viết: Chào các pro !
  Mình có 1 report có rowsource là 1 crosstable query thống kê số lượng của các tên vật tư
  Cho mình hỏi trong Access có cách nào tuỳ biến xoay chữ tên vật tư trong report giống như trong excel khi ta muốn xoay chữ từ nằm ngang sang dạng đứng? ( trong excel : Format/Cell/ Aligement/ Orientation - chọn góc quay)
  
  Thanks

  
  Bạn thử thuộc tính Vertical nó là Yes xem. Còn như Excel thì không thể. Nếu giống như Excel có cách là vẽ hình thôi.

• RE: Help! tuỳ biến tiêu đề của report

  quanghoasla > 10-10-11, 11:42 PM

  nếu vertical mà là yes thì dòng chữ sẽ dốc xuống. còn muốn đẹp hơn excel thì bạn có thể sử dụng font chữ nghệ thuật wordart sau đó chuyển nó thành dạng ảnh rồi paste vào reports trong ms access cũng được

• RE: Help! tuỳ biến tiêu đề của report

  daihoangtu > 11-10-11, 09:47 AM

  Hi !
  Cám ơn các Bác đã chỉ giáo nhưng ý cùa mình là có 1 query crosstable Q_phieulinh viết code cho nút lệnh để xuất qua excel có định dạng như file đính kèm
  
  Thanks
  
  http://www.mediafire.com/?6r3upkx5npklx34
  http://www.mediafire.com/?2tssx065q685l9z

• RE: Help! tuỳ biến tiêu đề của report

  daihoangtu > 11-10-11, 10:41 AM

  Hi
  Thanks bạn !
  Mình có thử thuộc tính vertical rồi nhưng không như ý muốn . ( không xoay chiều của chữ được)

• RE: Help! tuỳ biến tiêu đề của report

  domfootwear > 11-10-11, 11:39 AM

  (11-10-11, 09:47 AM)daihoangtu Đã viết: Hi !
  Cám ơn các Bác đã chỉ giáo nhưng ý cùa mình là có 1 query crosstable Q_phieulinh viết code cho nút lệnh để xuất qua excel có định dạng như file đính kèm
  
  Thanks
  
  http://www.mediafire.com/?6r3upkx5npklx34
  http://www.mediafire.com/?2tssx065q685l9z

  
  Nếu bạn muốn dùng cách là tạo 1 file Excel dạng Temp (Trong file này định dạng theo ý bạn), sau đó xuất dữ liệu sang file Temp này.
  
  Nếu bạn chịu theo cách này tôi sẽ giúp bạn.
  
  Thân mến.

• RE: Help! tuỳ biến tiêu đề của report

  daihoangtu > 14-10-11, 07:57 AM

  Hi
  
  Rất sẳn lòng học hỏi kinh nghiệm của bạn. Cách nào vậy bạn?
  
  Thanks nhiều

• RE: Help! tuỳ biến tiêu đề của report

  domfootwear > 14-10-11, 08:54 AM

  (14-10-11, 07:57 AM)daihoangtu Đã viết: Hi
  
  Rất sẳn lòng học hỏi kinh nghiệm của bạn. Cách nào vậy bạn?
  
  Thanks nhiều

  
  Tạo 1 cái nút, 1 file excel dạng .xlt, code của cái nút đó như sau:
  
  

  Mã PHP:

  Option Compare Database

Private Sub Command0_Click()
On Error Resume Next
Dim db As DAO.Database, rs As DAO.Recordset, mySQL As String, iNumCols As Integer
Dim oApp As New Excel.Application, oBook As Excel.Workbook, oSheet As Excel.Worksheet

    Set oBook = oApp.Workbooks.Open(CurrentProject.Path & "\Q_phieulinh.xlt")
    mySQL = "TRANSFORM Sum(chitietphieulinh.soluong) AS SumOfsoluong " & _
            "SELECT chitietphieulinh.ngaylinh as Ngay, chitietphieulinh.sophieu as [So Phieu], chitietphieulinh.mabn as [Ma BN], " & _
                      "dsbn.hotenbn as [Ho Va Ten], IIf([DSBN].[gioitinh],'Nu','Nam') AS [Gioi Tinh], " & _
                      "dsbn.namsinh as [Nam Sinh], sbn.doituong as [Doi Tuong] " & _
            "FROM dsbn INNER JOIN (d_dmthuoc INNER JOIN chitietphieulinh ON d_dmthuoc.MABD = chitietphieulinh.mabd) ON dsbn.mabn = chitietphieulinh.mabn " & _
            "GROUP BY chitietphieulinh.ngaylinh, chitietphieulinh.sophieu, chitietphieulinh.mabn, dsbn.hotenbn, dsbn.gioitinh, dsbn.namsinh, dsbn.doituong " & _
            "PIVOT d_dmthuoc.TENBD;"

    Set oSheet = oBook.Sheets("Q_phieulinh")
    Set db = CurrentDb
    Set rs = db.OpenRecordset(mySQL, dbOpenSnapshot)
    
    iNumCols = rs.Fields.Count
    For i = 1 To iNumCols
      With oSheet
        .Cells(5, i).Value = rs.Fields(i - 1).Name
        .Cells(5, i).Font.Bold = True
        .Cells(5, i).Font.ColorIndex = 5
        .Cells(5, i).Interior.ColorIndex = 34
      End With
    Next
    
        oSheet.Range("A6").CopyFromRecordset rs
        MsgBox "Da xuat xong du lieu sang Excel", vbExclamation, "domfootwear"
         
    rs.Close
    oApp.Visible = True
    db.Close
    
    
End Sub 


  
  Lưu ý là phải Vào Tools\Referrence chọn Microsoft Excel xx.x Object Lib
  
  Tham khảo ví dụ trong file nhé (Nhớ giải nén rồi mới mở file Access nhé)
  
  Thân mến.
• Bài trước Bài tiếp