Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Hỏi] Tạo bảng cửu chương có kiểm tra số nhập vào
#1
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
Chữ ký của NganNguyen Xin chào, mình là NganNguyen, Tham gia http://thuthuataccess.com/forum từ ngày 19-10 -14.
Reply
Những người đã cảm ơn
#2
Hiểu chết liền  big green
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#3
Đâ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 big green
https://www.dropbox.com/s/b6tzndn9bd1jlq...g.png?dl=0
Chữ ký của NganNguyen Xin chào, mình là NganNguyen, Tham gia http://thuthuataccess.com/forum từ ngày 19-10 -14.
Reply
Những người đã cảm ơn
#4
(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 big green
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 1 To 10 Step 1
    txtcuuchuong 
Val(txtSo) & "x" "=" Val(txtSo) * 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 1 To 10 Step 1
      
If 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 
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn NganNguyen
#5
(07-09-15, 04:37 PM)tranthanhan1962 Đã viết: Hiểu chết liền  big green

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 " " = " so vbCrLf
   Next
   CuuChuong 
kq
End 
Function
Private 
Sub Form_Load()
   MsgBox CuuChuong(5)
End Sub 
Chữ ký của thucgia Hix, Access quả nhiên lợi hại !!!! http://vibigaba.esy.es/
ღღღღღTài sản của thucgia (View All Items) ღღღღღ
Reply
Những người đã cảm ơn tranthanhan1962
#6
(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  007 . Dù sau mình cũng đã xử lý rồi mà. Đừng trách mình nữa nha.  big green 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)
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#7
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à rolling on the floor
Mà chắc từ bỏ quá, code dài vậy sao nhớ nổi trời rolling on the floor)))))
Chữ ký của NganNguyen Xin chào, mình là NganNguyen, Tham gia http://thuthuataccess.com/forum từ ngày 19-10 -14.
Reply
Những người đã cảm ơn
#8
(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à rolling on the floor
Mà chắc từ bỏ quá, code dài vậy sao nhớ nổi trời rolling on the floor)))))

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.
[Hình: bk5BVJu.png]
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é.
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#9
Big Grin 
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
Chữ ký của NganNguyen Xin chào, mình là NganNguyen, Tham gia http://thuthuataccess.com/forum từ ngày 19-10 -14.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
Question [Help] Link tất các table trong một file.mdb bằng VBA MinhnHang 6 140 29-11-16, 05:18 PM
Bài mới nhất: MinhnHang
  Summary bằng VBA trong MS Access. MinhnHang 6 313 08-11-16, 08:36 AM
Bài mới nhất: MinhnHang
  [Help] xin hỗ trợ bằng Thủ thuật VBA Trần Linh 3 235 13-07-16, 09:06 PM
Bài mới nhất: ongke0711
  Gửi tin nhắn SMS bằng Access lmthu 6 336 25-06-16, 12:23 AM
Bài mới nhất: zinzin8x
  [Help] lệnh tìm kiếm và hiển thị kết quả tìm kiếm trên form tvn_hut 12 1,009 25-06-16, 12:22 AM
Bài mới nhất: zinzin8x

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ