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

Nhập dữ liệu trong texbox

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • [Thủ Thuật] Nhập dữ liệu trong texbox
• Nhập dữ liệu trong texbox

• Nhập dữ liệu trong texbox

  quocdung9999 > 07-09-15, 05:13 PM

  Hi! chào mọi người.
  
  - Mong mọi người giúp đỡ mình về nhập dữ liệu trong texbox access. Mình chỉ muốn nhập dữ liệu là số trong  texbox thì có cách nào làm được không? Bạn nào biết thì giúp mình với. Đang rất cần.
  
  Thanks!

• RE: Nhập dữ liệu trong texbox

  tranthanhan1962 > 07-09-15, 07:42 PM

  Mã PHP:

  Private Sub texbox_AfterUpdate()
  If VarType(texbox.Value) <> 2 Then
      MsgBox "du lieu phai la so"
      texbox.Value = 0
  End If
End Sub 


• RE: Nhập dữ liệu trong texbox

  bvchauthanh > 07-09-15, 07:52 PM

  Xin góp thêm 1 cách khác cho bạn
  

  Mã PHP:

  Private Sub txtTextBox_KeyPress(KeyAscii As Integer)
   Select Case Chr$(KeyAscii)
       Case "0" To "9", Chr$(8)
       Case Else
           DoCmd.CancelEvent
   End Select
End Sub 


  ai còn cách nào khác up lên mọi người cùng học hỏi với nào

• RE: Nhập dữ liệu trong texbox

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

  (07-09-15, 07:52 PM)bvchauthanh Đã viết: Xin góp thêm 1 cách khác cho bạn
  

  Mã PHP:

  Private Sub txtTextBox_KeyPress(KeyAscii As Integer)
   Select Case Chr$(KeyAscii)
       Case "0" To "9", Chr$(8)
       Case Else
           DoCmd.CancelEvent
   End Select
End Sub 


  ai còn cách nào khác up lên mọi người cùng học hỏi với nào

  
  Cả một rừng hoa, mình hay làm cùi bắp, Xài thông báo của access luôn như sau:
  
  
  Set thẳng thừng trong tab format : format= General number

• RE: Nhập dữ liệu trong texbox

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

  Nếu Set thẳng thừng trong tab format : format= General number như bạn  thucgia có thể chơi luôn Msgbox tiếng Việt.
  
  
  

  Mã PHP:

  Private Sub Form_Error(DataErr As Integer, Response As Integer)

Response = acDataErrContinue
Select Case DataErr
  Case 2113
    MsgBox "Giá trị nhập phải là số.", vbCritical + vbOKOnly, "Chú ý"
    txtcuuchuong.Value = ""
  End Select
End Sub 


• RE: Nhập dữ liệu trong texbox

  thucgia > 08-09-15, 01:13 AM

  (08-09-15, 12:28 AM)tranthanhan1962 Đã viết: Nếu Set thẳng thừng trong tab format : format= General number như bạn  thucgia có thể chơi luôn Msgbox tiếng Việt.
  
  
  

  Mã PHP:

  Private Sub Form_Error(DataErr As Integer, Response As Integer)

Response = acDataErrContinue
Select Case DataErr
  Case 2113
    MsgBox "Giá trị nhập phải là số.", vbCritical + vbOKOnly, "Chú ý"
    txtcuuchuong.Value = ""
  End Select
End Sub 


  
  ghi vào note book liền liền thôi!!!!!!

• RE: Nhập dữ liệu trong texbox

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

  (08-09-15, 01:13 AM)thucgia Đã viết: ghi vào note book liền liền thôi!!!!!!

  
  Để không bị lỗi font Unicode. Bạn phải tắt bộ gõ tiếng Việt (Ví dụ UniKey hoặc VietKey...) Chọn Keyboard Tiếng Việt của Windows, rồi mới thực hiện việc copy và dán code của mình vào module.
  
  Mình cũng đã giới thiệu cách sử dụng Vietnamese keyboard của Microsoft để viết code VBA tiếng Việt (không cần sử dụng VBA để xử lý font Unicode). Bạn vào đây để tham khảo

• RE: Nhập dữ liệu trong texbox

  quocdung9999 > 08-09-15, 12:56 PM

  Thanks các bạn rất nhiều, rất hay mình đã làm được!

• RE: Nhập dữ liệu trong texbox

  quocdung9999 > 08-09-15, 01:46 PM

  Hi, chào các bạn.
  
  Làm phiền các bạn nữa rồi, như vậy khi nhập số thập phân, ví dụ 258.25 thì mình nhập không được, vì đã khóa bàn phím vơi dấu chấm, vậy bạn nào có cách nào vừa chỉ cho nhập số vừa nhập được số thập phân không?
  
  Thanks!

• RE: Nhập dữ liệu trong texbox

  quocdung9999 > 08-09-15, 04:05 PM

  
• Bài trước Bài tiếp