-
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
Mã PHP:Private Sub CMDTHEM_Click()
On Error GoTo Loi:
Dim sden As Long, nden As Date, tgia As String, skh As String, nvb As Date, tloai As String, nnhan As String, gchu 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
-
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