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

Trích ngấu nhiên dữ liệu trong Table

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Tương tác Chương trình ngoài
  • [Hỏi] Trích ngấu nhiên dữ liệu trong Table
• Trích ngấu nhiên dữ liệu trong Table

• Trích ngấu nhiên dữ liệu trong Table

  vuthaiha90 > 19-04-18, 04:38 PM

  Các bác cho em hỏi, em đang có ý nghĩ này mà không biết access có làm được không ạ. Ví dụ như em có sẵn 1 table có dữ liệu về hàng tạp hóa (tên hàng, số lượng, đơn giá mua, thành tiền mua, đơn giá bán, thành tiền bán), bây giờ tùy thuộc vào số tiền muốn vay mà làm phương án hàng hóa sao cho phù hợp (VD: khách muốn vay 200 triệu thì làm cái phương án sao cho thành tiền mua tầm 270-300 triệu). Vậy có thể trích ngẫu nhiên dữ liệu có sẵn trong table ra để tạo phương án cho từng lần khác nhau không ạ. Trích ra excel cũng được, trích ra word cũng được ạ. Em cảm ơn ạ

• RE: Trích ngấu nhiên dữ liệu trong Table

  ongke0711 > 19-04-18, 05:25 PM

  Tôi nghĩ là làm đc. Lấy random record từ Recordset thì dễ rồi, chỉ cần kèm thêm điều kiện giá trị nữa là ok. Bạn nên đưa csdl mẫu lên để test code nhanh hơn.
  Số tiền chênh lệch so với mức chuẩn đề ra +- bao nhiêu % là chấp nhận đuợc?

• RE: Trích ngấu nhiên dữ liệu trong Table

  vuthaiha90 > 20-04-18, 08:43 AM

  (19-04-18, 05:25 PM)ongke0711 Đã viết: Tôi nghĩ là làm đc. Lấy random record từ Recordset thì dễ rồi, chỉ cần kèm thêm điều kiện giá trị nữa là ok. Bạn nên đưa csdl mẫu lên để test code nhanh hơn.
  Số tiền chênh lệch so với mức chuẩn đề ra +- bao nhiêu % là chấp nhận đuợc?

  
  Link CSDL đây bác ạ. Sao cho Lợi nhuận trong 1 tháng (= Doanh thu - Chi phí 1 tháng) chia cho tổng "Thành tiền mua" bằng 1,5--->1,7% là được ạ. Với cho em hỏi thế random được cả Số lượng không ạ, hay bảng này là cố định rồi random dòng thôi ạ

• RE: Trích ngấu nhiên dữ liệu trong Table

  duynamvnn1208 > 21-04-18, 07:03 PM

  Việc này bạn gắn thêm điều kiện với mỗi mã sản phẩm thì sẽ có  số lượng bắt đầu và số lượng tối đa có thể.
  Sau đó Random theo 2 Step.
  
  Step1: Chọn ra Random các mã sản phẩm đưa ra một bảng tạm thời
  
  Step2: Vỡi mỗi mã sản phẩm trong bảng này, chọn Random số lượng trong khoảng mà bạn đặt ở trên 
  Sau đó áp dụng thêm công thức tính toán vào.
  Đến một mã sản phẩm nào đó mà lượng tiền thỏa mãn rồi thì tự out ra kết thúc.
  
  Nói ra như vậy nhưng phải viết cụ thể thì bạn tự mày mò nhé
  Còn hàm Random thì cũng khá đơn giản thôi:
  
  Int ((Up - Low + 1) * Rnd + Low)
  Result: Random number between Low and Up
  
  Mình nghĩ là khả thi đó

• RE: Trích ngấu nhiên dữ liệu trong Table

  ongke0711 > 21-04-18, 08:39 PM

  (20-04-18, 08:43 AM)vuthaiha90 Đã viết: Link CSDL đây bác ạ. Sao cho Lợi nhuận trong 1 tháng (= Doanh thu - Chi phí 1 tháng) chia cho tổng "Thành tiền mua" bằng 1,5--->1,7% là được ạ. Với cho em hỏi thế random được cả Số lượng không ạ, hay bảng này là cố định rồi random dòng thôi ạ

  
     Cái này là có voi đòi Hai Bà Trưng nè. Lúc đầu y/c doanh thu, bây giờ thêm điều kiện LN, số lượng random.
  
  File của bạn đây: http://www.mediafire.com/file/ul1on66cg647e6a/Test.mdb
  
  - Bạn xem Form1, tbl_PAKDTemp, TempPAKDexcel, tbl_Chiphi (2 table sau là table của bạn).
  - Bạn phải đưa các thông số như Tổng chi phí, LN kỳ vọng (như bạn nói là 1,5 - 1,7%), Số lượng.
  - Table TempPAKDexcel của bạn phải thêm 1 trường [Stt] dạng AutoNumber để phục vụ cho việc trích xuất ngẫu nhiên record.
  - Cứ bấm nút [Tổng hợp] đến khi nào bạn thấy mức LN tương đối hợp lý như yêu cầu thì dừng.
  
  
  
  - Sau đây là cái Sub đề trích xuất danh sách hàng hóa đáp ứng yêu cầu đặt LN đề ra:
  
  

  Mã PHP:

  Public Sub RanDomListGoods()
   Dim db As DAO.Database
   Dim rs As DAO.Recordset
   Dim RecCount As Integer, SttDong As Integer, SoLuongRnd As Long
   Dim DoanhThu As Double, TongChiPhi As Double, GiaVonHangBan As Double, LNKyVong As Double, LN As Double
   Dim strSQL As String

   Set db = CurrentDb
   Set rs = db.OpenRecordset("tempPAKDexcel", dbOpenSnapshot)

   If rs.RecordCount = 0 Then Exit Sub
   rs.MoveFirst
   rs.MoveLast
   RecCount = rs.RecordCount

   LNKyVong = Me.txtLNKyVong
   TongChiPhi = Me.txtTongChiPhi
   
   db.Execute "DELETE * FROM tbl_PAKDTemp", dbFailOnError
   Do Until LN > LNKyVong
       On Error Resume Next  'Dung de vuot loi trung du lieu Error 3022 (do thiet lap PK trong tbl_PAKDTemp).'
       Randomize
       SttDong = Int((RecCount - 1 + 1) * Rnd + 1)
       rs.FindFirst "Stt=" & SttDong
       If rs.NoMatch Then Exit Sub

       SoLuongRnd = 0
       SoLuongRnd = RandomQuantity(Me.txtSLMax, Me.txtSLMin)
       strSQL = "INSERT INTO tbl_PAKDTemp " & _
                "VALUES (" & SttDong & ",'" & rs!Tenhanghoa & "','" & rs!DVT & "'," & SoLuongRnd & "," & rs!Giamua & "," & SoLuongRnd * rs!Giamua & "," & rs!Giaban & "," & SoLuongRnd * rs!Giaban & ")"
       db.Execute strSQL, dbFailOnError

       DoanhThu = DSum("ThanhTienBan", "tbl_PAKDTemp")
       GiaVonHangBan = DSum("ThanhTienMua", "tbl_PAKDTemp")
       LN = ((DoanhThu - GiaVonHangBan - TongChiPhi) / DoanhThu) * 100
   Loop
   Debug.Print DoanhThu; GiaVonHangBan; LN
   
   Me.txtDoanhThu = DoanhThu
   Me.txtGVHB = GiaVonHangBan
   Me.txtLaiGop = LN

End Sub 


  
  - Đây là hàm lấy số lượng ngẫu nhiên: số lượng trả về là số chia hết cho 10 để nhìn cho nó hợp lý chứ bảng kế hoạch mà có số lượng 133, 187... cái thì không giống ai.
  
  

  Mã PHP:

  Public Function RandomQuantity(top As Long, low As Long)
   Dim x As Integer
   Do
       Randomize
       x = Int((top - low + 1) * Rnd + low)
   Loop Until x Mod 10 = 0
   RandomQuantity = x
End Function 


• RE: Trích ngấu nhiên dữ liệu trong Table

  vuthaiha90 > 21-04-18, 10:18 PM

  (21-04-18, 08:39 PM)ongke0711 Đã viết:    Cái này là có voi đòi Hai Bà Trưng nè. Lúc đầu y/c doanh thu, bây giờ thêm điều kiện LN, số lượng random.

  
  Hì, vâng em cảm ơn bác ạ, tại em thấy bác bảo làm được nên đưa nốt ra yêu cầu . Bác ơi, em đã lôi về dùng thử nhưng hình như vẫn thiếu điều kiện bác ạ.
  1. GiaVonHangBan = DSum("ThanhTienMua", "tbl_PAKDTemp" thì đúng, nhưng ít nhất nó cũng phải lớn hơn Số tiền vay (SotienvayTC trong T_PAKD) chứ ạ, vì họ muốn nhập về ngần ấy hàng hóa để bán nhưng bị thiếu vốn nên mới vay thêm ngân hàng.
  Khi em thêm: GiaVonHangBan = DSum("ThanhTienMua", "tbl_PAKDTemp") + DLookup("SotienvayTC", "T_PAKD") thì khi ấn tổng hợp auto bị treo máy luôn
  
  2. LN = ((DoanhThu - GiaVonHangBan - TongChiPhi)/ GiaVonHangBan) * 100
  3. Do Until LN < LNKyVong
  Em nghĩ mình đã tự nhập Lợi nhuân kỳ vọng thì chỉ ngần ấy là cao nhất, bác lại làm ít nhất là bằng ngần ấy ạ, em có đổi lại thành nhỏ hơn nhưng khi ấn Tổng hợp auto ra trắng tinh.
  Bác có thể giúp em được không ạ. Em cảm ơn ạ

• RE: Trích ngấu nhiên dữ liệu trong Table

  ongke0711 > 22-04-18, 12:33 AM

  - File sửa (thêm điều kiện Số tiền vay). Link: http://www.mediafire.com/file/6g6ze962dm...8v2%29.mdb
  - Vì là chạy random nên thực sự kết quả nó cũng tương đối. Nếu thêm nhiều đk nó sẽ chạy random hoài để lấy kết quả đúng y/c -> treo máy. 
  Tạm sử dụng vậy chứ tôi chưa code được như y/c.

• RE: Trích ngấu nhiên dữ liệu trong Table

  vuthaiha90 > 22-04-18, 12:43 PM

  (22-04-18, 12:33 AM)ongke0711 Đã viết: - File sửa (thêm điều kiện Số tiền vay). Link: http://www.mediafire.com/file/6g6ze962dm...8v2%29.mdb
  - Vì là chạy random nên thực sự kết quả nó cũng tương đối. Nếu thêm nhiều đk nó sẽ chạy random hoài để lấy kết quả đúng y/c -> treo máy. 
  Tạm sử dụng vậy chứ tôi chưa code được như y/c.

  
  Vâng, em đã lôi về dùng thử, cũng đủ điều kiện rồi bác ạ, cứ ngồi bấm sao cho vừa ý là được . Nhanh hơn tự bấm bấm gõ gõ căn chỉnh số lượng hàng sao cho vừa ý như xưa rồi ạ. Em cảm ơn bác nhé
• Bài trước Bài tiếp