• Không kiểm tra được Record đã tồn tại trong Table hay chưa.
  • Không kiểm tra được Record đã tồn tại trong Table hay chưa.

    huynguyenbd > 07-08-14, 11:15 AM

    Huy đang viết 1 Form cập nhật thông tin của các công văn đến. không biết phải do bỏ lâu quá rồi quên hay sao mà Huy ko kiểm tra được thông tin của SoDen đã có trong Table Congvanden hay chưa?
    Ví dụ như Huy nhập số công văn là 500 thì sẽ kiểm tra trong table đã có hay chưa và thông báo cho người dùng. Anh em xem code và kiểm tra giúp Huy. Demo: https://www.mediafire.com/?7dz8a1z101ntcfy
    [Hình: photo.php?fbid=603855576401848&set=gm.52...=1&theater]

    Mã PHP:
    Private Sub CMDTHEM_Click()
    On Error GoTo Loi:
    Dim sden As Longnden As Datetgia As Stringskh As Stringnvb As Datetloai As Stringnnhan As Stringgchu As String
    Dim bang 
    As Recordset
    sden 
    Me.TXTSODEN
    nden 
    Me.TXTNGAYDEN
    tgia 
    Me.TXTTACGIA
    skh 
    Me.TXTSOKH
    nvb 
    Me.TXTNGAYVB
    tloai 
    Me.TXTTRICHDAN
    nnhan 
    Me.TXTNGUOINHAN
    gchu 
    Me.TXTGHICHU
    Set bang 
    CurrentDb.OpenRecordset("Select * From congvanden")
    If 
    bang.EOF Then
        
    GoTo them:
    End If
    bang.FindFirst ("soden = '" sden "'")
    If 
    Not bang.NoMatch Then
        MsgBox 
    "Gia tri " sden " da co"vbInformation"Thong bao!"
        
    bang.Close
        
    Exit Sub
    End 
    If
    them:
    If 
    MsgBox("Ban co muon them cong van khong?"vbQuestion vbYesNo) = vbYes Then
        bang
    .AddNew
        bang
    !soden sden
        bang
    !ngayden nden
        bang
    !tacgia tgia
        bang
    !sokyhieu skh
        bang
    !ngayvb nvb
        bang
    !tenloai tloai
        bang
    !nguoinhan nnhan
        bang
    !ghichu gchu
        bang
    .Update
    Else
    bang.Close
    End 
    If
    Thoat:
    Loi:
    Select Case Err:
        Case 
    94
            MsgBox 
    "Ban vui long dien day du thong tin"vbInformation"Thong bao"
            
    Exit Sub
        
    Case 13
            MsgBox 
    "Vui long nhap dung kieu du lieu"vbInformation"Thong bao"
            
    Exit Sub
    End Select
    End Sub 
  • RE: Không kiểm tra được Record đã tồn tại trong Table hay chưa.

    Xuân Thanh > 07-08-14, 11:35 AM

    Điều kiện tìm của bạn đang để giá trị text trong khi soden của bạn là số nên không tìm được là đương nhiên
    Thân mến
  • RE: Không kiểm tra được Record đã tồn tại trong Table hay chưa.

    huynguyenbd > 07-08-14, 11:51 AM

    (07-08-14, 11:35 AM)Xuân Thanh Đã viết: Điều kiện tìm của bạn đang để giá trị text trong khi soden của bạn là số nên không tìm được là đương nhiên
    Thân mến

    Mình đã khai báo biến Sden as Long và đồng thời gán Sden cho textbox txtSoden rôi mà? Kiểu dử liệu trong table mình nó vẫn Number, giá trị số nguyên Long.
  • RE: Không kiểm tra được Record đã tồn tại trong Table hay chưa.

    Xuân Thanh > 07-08-14, 12:39 PM

    Ý tôi là dk tim của bạn trong code tìm kiém (FindFirst) của bạn đang tim dữ liệu dạng text chứ không phải số
    Thân mến
  • RE: Không kiểm tra được Record đã tồn tại trong Table hay chưa.

    huynguyenbd > 07-08-14, 03:43 PM

    (07-08-14, 12:39 PM)Xuân Thanh Đã viết: Ý tôi là dk tim của bạn trong code tìm kiém (FindFirst) của bạn đang tim dữ liệu dạng text chứ không phải số
    Thân mến

    Vậy cách khắc phục lỗi này như thế nào Xuân Thanh, Huy chưa gặp trường hợp này bao giờ. Vì vẫn có tìm theo ngày tháng năm vẫn khai báo như vậy thôi.
  • RE: Không kiểm tra được Record đã tồn tại trong Table hay chưa.

    Xuân Thanh > 09-08-14, 10:32 PM

    Thay bằng cái này

    Mã PHP:
    ....
    bang.FindFirst ("soden = " sden)
    .... 
  • RE: Không kiểm tra được Record đã tồn tại trong Table hay chưa.

    huynguyenbd > 11-08-14, 08:59 AM

    (09-08-14, 10:32 PM)Xuân Thanh Đã viết: Thay bằng cái này

    Mã PHP:
    ....
    bang.FindFirst ("soden = " sden)
    .... 

    Cam on Xuân Thanh rất nhiều nhé.
    Ma cho Huy hỏi, nếu Huy bỏ trống 1 ô thì sẽ báo bắt phải nhập, vậy nếu huy không muốn nhập mà vẫn thêm vào được thì làm thế nào?
  • RE: Không kiểm tra được Record đã tồn tại trong Table hay chưa.

    Xuân Thanh > 13-08-14, 03:05 PM

    Dùng thêm Msgbox Yes-No nữa
    Thân mến