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

Chập chững VBA

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Thành viên giúp nhau
  • Bài tập Access
  • Chập chững VBA
• Chập chững VBA

• Chập chững VBA

  phuc_thanhtien > 14-04-16, 04:07 PM

  Bạn nào tốt bụng hướng dẫn hoặc làm cho mình cái demo bài tập này với. Cảm ơn nhiều lắm:
  Giải và biện luận bx+c=0
  Private Sub cmdgiai_Click()
  Dim b As Integer, c As Integer
  Dim x As Double
  b = Val(txtb.Text)
  c = Val(txtc.Text)
  If b = 0 Then
      If c = 0 Then
          MsgBox "PT VSN"
      Else
          MsgBox "PT VN"
      End If
  Else
      x = -c / b
      MsgBox x & " la nghiem PT"
  End If
  End Sub

• RE: Chập chững VBA

  quan_pc > 14-04-16, 11:44 PM

  File mẫu tham khảo.
  
  P/s file chạy tốt trên access 07 bạn nhé.
  
  Link tải: File mẫu

• RE: Chập chững VBA

  phuc_thanhtien > 15-04-16, 10:26 AM

  Bạn ơi chọn định dạng cho Textbox nghiem thế nào để có số 0 ở đằng trước khi mà phần nguyên nhỏ hơn 1 vậy:
  
  

  

  
  

  Bạn giúp thêm mình bài này nữa nhé, mình vẫn chưa vỡ vạc ra được:

  Bài 6: h = (q + 26*(m+1)/10 + k + k/4 + j/4  + 5j ) / 7%
  Private Sub CmdNS_Click()
  Dim q As Byte, m As Byte, k As Byte
  Dim y As Integer, j As Byte
  q = Val(txtq.Text)
  m = Val(txtm.Text)
  y = Val(txty.Text)
  If (m = 1) Or (m = 2) Then
      m = m + 12
      y = y - 1
  End If
  k = y Mod 100
  j = y \ 100 + 1
  h = (q + 26 * (m + 1) / 10 + k + k / 4 + j / 4 + 5 * j) Mod 7
  Select Case h
      Case 0
          thu = "thu 7"
      Case 1
          thu = "chu nhat"
      Case 2
          thu = "thu 2"
      Case 3
          thu = "thu 3"
      Case 4
          thu = "thu4"
      Case 5
          thu = "thu 5"
      Case 6
          thu = "thu 6"
  End Select
  MsgBox "Ban sinh vao " & thu
  End Sub

• RE: Chập chững VBA

  quan_pc > 15-04-16, 04:50 PM

  Với trường hợp máy chỉ hiển thị -,22222xxx thì cái này do Windows, bạn chỉ cần thay đổi lại thông số Display leading zeros
  Bạn vào control panel trong máy tìm đến phần Region and language rồi làm theo hình. (Win 7) win khác làm tương tự.
  

• RE: Chập chững VBA

  quan_pc > 15-04-16, 05:08 PM

  Bài bạn sinh vào thứ mấy
  File mẫu

• RE: Chập chững VBA

  phuc_thanhtien > 15-04-16, 09:39 PM

  Cảm ơn bạn quan_pc nhiều mình đã vỡ vạc đôi chút rồi.
  Code chạy tốt nhưng kết quả không đúng. (hôm nay 15/4/16 đáng lẽ là thứ 6 mà nó lại có kết quả là thứ tư.)
  
  

   

  
  

  Bạn nào có code đúng dùng được thì post lên cho xin nhé.

• RE: Chập chững VBA

  ongke0711 > 16-04-16, 01:09 PM

  Tôi sử dụng hàm weekday có sẳn của Access.
  
  

  Mã PHP:

  Private Sub Command17_Click()
    Dim q As Byte, m As Byte, y As Integer, thu As String, h As Byte

   q = Val(txtq.Value)
   m = Val(txtm.Value)
   y = Val(txty.Value)

   h = Weekday(DateSerial(y, m, q))

   Select Case h
       Case 1
           thu = "chu nhat"
       Case 2
           thu = "thu 2"
       Case 3
           thu = "thu 3"
       Case 4
           thu = "thu 4"
       Case 5
           thu = "thu 5"
       Case 6
           thu = "thu 6"
       Case 7
           thu = "thu 7"
   End Select
   MsgBox "Ban sinh vao " & thu
End Sub 


• RE: Chập chững VBA

  phuc_thanhtien > 16-04-16, 01:57 PM

  Cảm ơn ongke0711 nhiều nhiều... 
  Kết quả:
  

  
  
  

  Mạo muội xin hỏi thêm, nếu phải sửa lại bài gốc trên thì sửa lại thế nào cho đúng ạ.

• RE: Chập chững VBA

  phuc_thanhtien > 17-04-16, 02:00 PM

  Mình mới đang làm quen với Code, nên còn bỡ ngỡ quá. Đọc ví dụ muốn làm cái demo kiểm tra nhưng lại bí nữa... thôi thì xin cầu viện các bạn lần nữa:
   
  Ví dụ 3: Kiểm tra một số nguyên (>2) có phải là nguyên tố hay không?
  Dim so As Integer
  Dim uoc As Integer
  Dim nguyento As Boolean
  nguyento = True
  For uoc = 2 To Int(so / 2)
  If so Mod uoc = 0 Then
  nguyento = False
  Exit For
  End If
  Next
  If nguyento Then
  Msgbox "là nguyên tố"
  Else
  Msgbox "không là nguyên tố!"
  End If
  

  Giải thuật đơn giản để xác định một số có phải nguyên tố hay không là: xác định

  xem tất cả các số(uoc) có thể trở thành ước của số(so) cần kiểm tra. Nếu tìm thấy một ước thực sự đầu tiên, kết luận ngay không phải sốnguyên tố bởi lệnh nguyento = False và thoát khỏi vòng lặp bằng lệnh Exit For; trong trường hợp xét toàn bộ các ước có thể mà không tìm được một số nào là ước thực sự, kết luận đây là số nguyên tố(biến nguyento = True như giá trị ban đầu)

   

  Cái mình làm đây: https://drive.google.com/file/d/0B2yhiz0...sp=sharing
  
  Các bạn sửa giúp nhé!
  Cảm ơn!

• RE: Chập chững VBA

  thiennamlong > 18-04-16, 06:01 PM

  Kiểm tra một số nguyên (>2) có phải là nguyên tố hay không?
  
  Của bạn đây: 
  
  
  
  https://drive.google.com/open?id=0B2yhiz...1FxX0tqLTQ
  
  Chúc bạn vui vẻ và thành công nhé.
• Bài trước Bài tiếp