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

Tạo bảng cửu chương có kiểm tra số nhập vào

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Hỏi] Tạo bảng cửu chương có kiểm tra số nhập vào
• Tạo bảng cửu chương có kiểm tra số nhập vào

• Tạo bảng cửu chương có kiểm tra số nhập vào

  NganNguyen > 07-09-15, 11:44 AM

  Mình muốn viết bảng cửu chương rồi sau đó truyền dữ liệu vào TextBox mà nó chỉ lấy được giá trị cuối của vòng lặp For-Nxet thôi. Mọi người sửa lại hộ nhé! Ví dụ:
  Nhập vào kí tự là text thì xuất ra " Ki tu khong hop le"
  Nhập vào không phải số nguyên dương thì xuất ra " Ban phai nhap vao so nguyen duong"
  Nhập vào 5 thì in ra (vào ô txtBox) phải có dạng:
  05 x 01 = 05
  05 x 02 = 10 
  ....
  Mình không chèn mã php được nên mọi người xem code của mình dưới link nhé!
  Cảm ơn trước!
  https://www.dropbox.com/s/ku82q63p0q5wls...g.txt?dl=0

• RE: Tạo bảng cửu chương có kiểm tra số nhập vào

  tranthanhan1962 > 07-09-15, 04:37 PM

  Hiểu chết liền 

• RE: Tạo bảng cửu chương có kiểm tra số nhập vào

  NganNguyen > 07-09-15, 09:41 PM

  Đây là ý tưởng làm của mình, nhưng viết code VBA thì lỗi vòng for - next không chạy được
  https://www.dropbox.com/s/b6tzndn9bd1jlq...g.png?dl=0

• RE: Tạo bảng cửu chương có kiểm tra số nhập vào

  tranthanhan1962 > 08-09-15, 12:16 AM

  (07-09-15, 09:41 PM)NganNguyen Đã viết: Đây là ý tưởng làm của mình, nhưng viết code VBA thì lỗi vòng for - next không chạy được
  https://www.dropbox.com/s/b6tzndn9bd1jlq...g.png?dl=0

  
  OK! Hiểu rồi.
  Phân tích những vướng mắc của bạn trong code.
  
  

  Mã PHP:

  MsgBox " Ban can nhap so truoc"
ElseIf Val(txtSo) = False Then
MsgBox " Ki tu ban nhap khong hop le"
Else
    For i = 1 To 10 Step 1
    txtcuuchuong = Val(txtSo) & "x" & i & "=" & Val(txtSo) * i & vbNewLine
    Next i
End If
End Sub 


  
  1/ Tôi không hiểu bạn đưa code vào event nào hết. Vì chỉ có End Sub chứ không có Private Sub
  2/ Khi bạn sử dụng txtcuuchuong, txtSo Access sẽ không hiểu bạn tham chiếu giá trị của txtcuuchuong,  txtSo. Chắc chắn nó sẽ báo lỗi. Bạn phài tham chiếu đúng tham số của đối tượng (Ví dụ txtcuuchuong.Value hoặc Me.txtcuuchuong). Cái này tôi đã xử lý cho bạn một lần rồi
  3/Bạn thiếu một cái If đầu tiên. Nếu như thế nào nó sẽ cho ra msgbox.
  4/Cấu trúc For Next khi mỗi lần thay thế i sẽ thay thế giá trị txtcuuchuong và bạn chỉ có thể nhận giá trị cuối cùng i x 10 (ví dụ: 6x10=60). Mỗi lần chạy tham số i bạn phải lấy giá trị mới thêm vào giá trị đã có.
  5/ Bạn không có cái gì để xử lý cho việc biến 6 thành 06 nên bạn sẽ không có giá trị 06 x 10 = 60. vì biểu thức của bạn chưa đủ.
  6/ Nếu bạn không post dữ liệu lên thì mình sẽ không làm hộ cho bạn nữa. Sorry.
  Cách post bài bạn có thể xem tại đây.
  Hướng Dẫn Kiểu file gửi lên để được giúp đỡ
  
  Code đầy đủ của nó đây.
  
  

  Mã PHP:

  Option Compare Database
Option Explicit
''--------------------------------------------------
Private Sub txtSo_AfterUpdate()
   Dim i As Integer
    txtSo.Value = Val(txtSo.Value)
    For i = 1 To 10 Step 1
      If i = 1 Then
        txtcuuchuong.Value = Format(txtSo.Value, "00") & " x " & Format(i, "00") & " = " & Format(txtSo.Value * i, "00")
      Else
        txtcuuchuong.Value = txtcuuchuong.Value & vbNewLine & Format(txtSo.Value, "00") & " x " & Format(i, "00") & " = " & Format(txtSo.Value * i, "00")
      End If
    Next i
End Sub
'---------------------------------------------------
Private Sub Form_Error(DataErr As Integer, Response As Integer)
  Response = acDataErrContinue
  Select Case DataErr
    Case 2113
      MsgBox " Gia tri ban nhap pai la so nguyen", vbCritical + vbOKOnly, "Chu y"
      txtcuuchuong.Value = ""
  End Select
End Sub 


• RE: Tạo bảng cửu chương có kiểm tra số nhập vào

  thucgia > 08-09-15, 12:23 AM

  (07-09-15, 04:37 PM)tranthanhan1962 Đã viết: Hiểu chết liền 

  
  hix anh an 1962 làm biếng vừa vừa thôi.
  
  

  Mã PHP:

  Public Function CuuChuong(so As Integer) As String
    Dim kq As String
   kq = ""
   For i = 1 To 10
       kq = kq & so & " x " & i & " = " & so * i & vbCrLf
   Next
   CuuChuong = kq
End Function
Private Sub Form_Load()
   MsgBox CuuChuong(5)
End Sub 


• RE: Tạo bảng cửu chương có kiểm tra số nhập vào

  tranthanhan1962 > 08-09-15, 12:45 AM

  (08-09-15, 12:23 AM)thucgia Đã viết: hix anh an 1962 làm biếng vừa vừa thôi.

  
  Hic! Mình cũng làm biếng thiệt đó. Để cho các bạn cần trợ giúp làm siêng thêm một chút. Hình như các bạn ấy còn lười hơn mình nữa   . Dù sau mình cũng đã xử lý rồi mà. Đừng trách mình nữa nha.   Mà làm theo cách của bạn sẽ bị dư một hàng phía dưới cùng đó (thừa vbCrLf cuối)

• RE: Tạo bảng cửu chương có kiểm tra số nhập vào

  NganNguyen > 08-09-15, 01:04 AM

  Thanks nhé!
  Form này làm gì có dữ liệu mà gửi lên bác, nó chỉ là dạng hiển thị thôi chứ có lưu lại gì đâu mà gửi lên. Nếu có gửi thì gửi Blank Access lên à nên bác cũng thông cảm cho em nhé. Với lại mình không nhập được PHP nên mình có gửi link file txt rồi mà
  Mà chắc từ bỏ quá, code dài vậy sao nhớ nổi trời )))))

• RE: Tạo bảng cửu chương có kiểm tra số nhập vào

  tranthanhan1962 > 08-09-15, 08:12 AM

  (08-09-15, 01:04 AM)NganNguyen Đã viết: Thanks nhé!
  Form này làm gì có dữ liệu mà gửi lên bác, nó chỉ là dạng hiển thị thôi chứ có lưu lại gì đâu mà gửi lên. Nếu có gửi thì gửi Blank Access lên à nên bác cũng thông cảm cho em nhé. Với lại mình không nhập được PHP nên mình có gửi link file txt rồi mà
  Mà chắc từ bỏ quá, code dài vậy sao nhớ nổi trời )))))

  
  1/ Dù cho là Form trắng với 2 cái texbox và cái code bi lỗi bạn cũng giúp anh em đỡ mất công thiết kế cái form, đồng thời chạy code biết ngay bạn bị lỗi tại chỗ nào.
  2/ Code này đâu có dài. Phải nói là thuộc loại cực kỳ ngắn đó.
  3/ Nếu không nhập được PHP cứ nhập thẳng vào bài anh em cũng hiểu mà.
  4/ Cách nhập code vào khung PHP.
  
  5/Đừng từ bỏ khi mới bắt đầu. Nếu bạn thật sự mong muốn nghiên cứu. Anh em sẵn sàng giúp bạn. Nhưng bạn cũng nên nghiên cứu nội quy diễn đàn trước nhé.

• RE: Tạo bảng cửu chương có kiểm tra số nhập vào

  NganNguyen > 08-09-15, 11:40 AM

  Code tạo bảng cửu chương rất đẹp, cảm ơn bác nhiều
  Tạm thời thì viết trực tiếp sau này  quen rồi viết thủ tục vậy
• Bài trước Bài tiếp