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

Export dữ liệu trong subform

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Tương tác Chương trình ngoài
  • Hướng Dẫn Export dữ liệu trong subform
• Export dữ liệu trong subform

• Export dữ liệu trong subform

  Godspear > 31-03-17, 10:28 AM

  mình dg muốn tạo 1 nút để đưa dữ liệu hiện có trong subform ra excel 
  
  ví du như sau khi tìm kiếm trong Search Form, hiện subform còn có 70 kết quả thì làm sao để xuất được 70 kết quả này ra excel bằng cách viết code cho button command - Export 
  
  hiện giờ nút export mình tạo trong Search Form toàn export ra toàn bộ dữ liệu chứ ko phải những kết quả sau khi tìm kiếm ra được 
  
  link file: https://drive.google.com/open?id=0Byhaxb...FFiTGtFVVE

• RE: Export dữ liệu trong subform

  chuvoicon > 31-03-17, 11:42 AM

  Mã PHP:

  Private Sub xuat_Click()
On Error GoTo xuat_click_err
Me.kehoachmayinsub.SetFocus 
DoCmd.GoToControl "sophieu" 
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy

Dim xlapp As Excel.Application ' ap dung cho ecxel 2003
Dim text As String
    text = UniConvert("Khoong tifm thaasy file. " & vbCrLf & "Haxy tajo file cos teen 'kehoachsanxuat.xls' trong thuw mujc chuwsa file chuwowng trifnh quarn lys sarn xuaast.", "telex")
Set xlapp = CreateObject("Excel.Application")

With xlapp
.Workbooks.Open (Application.CurrentProject.path + "\kehoachsanxuat.xls")
.Worksheets.Add
.Range("a4").Select
.Range("a4").PasteSpecial Paste:=xlPasteValues
.Cells.Select
.Cells.EntireColumn.AutoFit
.Visible = True
.Range("a4").Select
End With
xuat_click_exit:
Exit Sub
xuat_click_err:

MsgBox text, vbInformation

Resume xuat_click_exit
End Sub 


  
  
  Đây là một cách xuất excel với code của anh em đã up trong chương trình, bạn có thể search trong diễn đàn những ji bạn cần đều có cả. 
  Thân

• RE: Export dữ liệu trong subform

  Godspear > 03-04-17, 07:43 AM

  (31-03-17, 11:42 AM)chuvoicon Đã viết:

  Mã PHP:

  Private Sub xuat_Click()
On Error GoTo xuat_click_err
Me.kehoachmayinsub.SetFocus 
DoCmd.GoToControl "sophieu" 
DoCmd.RunCommand acCmdSelectAllRecords
DoCmd.RunCommand acCmdCopy

Dim xlapp As Excel.Application ' ap dung cho ecxel 2003
Dim text As String
    text = UniConvert("Khoong tifm thaasy file. " & vbCrLf & "Haxy tajo file cos teen 'kehoachsanxuat.xls' trong thuw mujc chuwsa file chuwowng trifnh quarn lys sarn xuaast.", "telex")
Set xlapp = CreateObject("Excel.Application")

With xlapp
.Workbooks.Open (Application.CurrentProject.path + "\kehoachsanxuat.xls")
.Worksheets.Add
.Range("a4").Select
.Range("a4").PasteSpecial Paste:=xlPasteValues
.Cells.Select
.Cells.EntireColumn.AutoFit
.Visible = True
.Range("a4").Select
End With
xuat_click_exit:
Exit Sub
xuat_click_err:

MsgBox text, vbInformation

Resume xuat_click_exit
End Sub 


  
  
  Đây là một cách xuất excel với code của anh em đã up trong chương trình, bạn có thể search trong diễn đàn những ji bạn cần đều có cả. 
  Thân

  
  đã thử áp dụng đoạn code trên và ko hiện ra gì cả
  
  mã code mình xài 
  
  On Error GoTo xuat_click_err
  Me.SearchResult_subform.SetFocus
  DoCmd.GoToControl "SearchResult_subform.ID"
  DoCmd.RunCommand acCmdSelectAllRecords
  DoCmd.RunCommand acCmdCopy
  
  Dim xlapp As Excel.Application ' ap dung cho ecxel 2003
  Set xlapp = CreateObject("Excel.Application")
  
  With xlapp
  .Workbooks.Open (Application.CurrentProject.Path + "\SearchResult_subform.xls")
  .Worksheets.Add
  .Range("a4").Select
  .Range("a4").PasteSpecial Paste:=xlPasteValues
  .Cells.Select
  .Cells.EntireColumn.AutoFit
  .Visible = True
  .Range("a4").Select
  End With
  xuat_click_exit:
  Exit Sub
  xuat_click_err:
  
  MsgBox text, vbInformation
  
  Resume xuat_click_exit
      
  End Sub

• RE: Export dữ liệu trong subform

  ongke0711 > 03-04-17, 04:11 PM

  Bạn chỉ cần Goto Control Sub Form là được rồi.
  DoCmd.GoToControl "SearchResult_subform"
• Bài trước Bài tiếp