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

Xữ lý textbox NgaySinh

• Trang chủ

  • Thủ Thuật Access
  • Access Nâng Cao
  • Thủ thuật VBA
  • Xữ lý textbox NgaySinh
• Xữ lý textbox NgaySinh

• Xữ lý textbox NgaySinh

  huynguyenbd > 01-11-11, 10:05 AM

  Mình gặp vấn đề về textbox NgaySinh, là khi nhấn nút thêm thì vẫn thêm bình thường nếu nhập đúng kiểu ngày tháng là dd/mm/yyyy, khi nhập là số hoặc chuỗi thì nó vẫn báo lỗi dù đã bẫy lỗi mã Err=13 là nhập sai kiểu dữ liệu, mà không biết xữ lý như thế nào. Anh em diển đàn xem hộ mình cái. Thanks!
  
  

  Mã:

  Private Sub cmdthem_Click()
On Error GoTo loi
Dim ma As String, ten As String, ngaysinh As Date, tuoi As Long
Dim bang As Recordset
ma = Me.txtma
ten = Me.txtten
ngaysinh = Me.txtngaysinh
tuoi = Year(Now()) - Year(ngaysinh)
Set bang = CurrentDb.OpenRecordset("select * from sinhvien")
    bang.FindFirst ("masv= '" & ma & "'")
    If Not bang.NoMatch Then
        MsgBox "Masv: " & ma & " da co, nhap lai", vbInformation, "Thong bao"
        bang.Close
        Exit Sub
    Else
        If ngaysinh > Now() Then
            MsgBox "Ngay sinh phai nho hon ngay hien tai", vbInformation, "Thong bao"
            bang.Close
            Exit Sub
        ElseIf MsgBox("Ban co muon them sinh vien nay khong?", vbQuestion + vbYesNo) = vbYes Then
            bang.AddNew
            bang!masv = ma
            bang!ten = ten
            bang!ngaysinh = ngaysinh
            bang!tuoi = tuoi
            bang.Update
        End If
    End If
loi:
Select Case Err
    Case 94
        MsgBox "Vui long nhap day du thong tin can them", vbInformation, "Thong bao"
        Exit Sub
    Case 13
        MsgBox "Ngay sinh phai theo dinh dang dd/mm/yyyy", vbInformation, "Thong bao"
        Exit Sub
End Select

End Sub

  
  Demo: http://www.mediafire.com/?ohagcumefxcce5b
  Mong được hồi âm.

• RE: Xữ lý textbox NgaySinh

  Noname > 01-11-11, 11:40 AM

  Vì thông báo này xuất hiện ngay khi bạn nhập ở textbox, Vì vậy, chúng ta chưa có biện pháp bắt lỗi nếu người dùng nhập sai format.
  Tuy nhiên, bạn có thể ép người dùng nhập liệu theo đúng format bằng cách ràng buột ở thuộc tính Input mask :
  00-00-0000

• RE: Xữ lý textbox NgaySinh

  huynguyenbd > 01-11-11, 03:55 PM

  Thanks anh. Vậy mà trước giờ đành chấp nhận như vậy.
• Bài trước Bài tiếp