hoangthanhhai > 13-07-11, 12:50 PM
domfootwear > 13-07-11, 01:47 PM
(13-07-11, 12:50 PM)hoangthanhhai Đã viết: Chào các Bạn,Bạn muốn kiểm tra record hay là field? Nếu là Field(Tên cột) thì bạn làm rồi. Sửa lại xíu, khi đánh tên field cần kiểm tra vào textbox, nhấn nút "..." để kiểm tra tồn tại của field
Mình muốn Kiểm tra tồn tại của Records trong Table nhưng chưa biết cách làm, các bạn chỉ cách mình làm với nhé.
Đây là file của mình: http://www.mediafire.com/?vbdcdnm45edz53c
Private Sub Comm_Kiemtra_Click()
If DoesFieldExist("T_Tienluong", Kiemtra) Then
MsgBox "Co Field ton tai trong table"
Else
MsgBox "khong co field ton tai trong table"
End If
End Sub
hoangthanhhai > 13-07-11, 02:26 PM
(13-07-11, 01:47 PM)domfootwear Đã viết: Bạn muốn kiểm tra record hay là field? Nếu là Field(Tên cột) thì bạn làm rồi. Sửa lại xíu, khi đánh tên field cần kiểm tra vào textbox, nhấn nút "..." để kiểm tra tồn tại của field
Noname > 13-07-11, 03:28 PM
domfootwear > 13-07-11, 03:39 PM
(13-07-11, 02:26 PM)hoangthanhhai Đã viết: Chào bạn Domfootwear!Bạn dùng hàm Dcount, nếu nó >0 thì có rồi
Ý mình muốn kiểm tra Record cơ, cụ thể là kiểm tra Records trong Field (Check). Theo mình hiểu là sẽ phải sửa lại Hàm DoesFieldExist thành Hàm DoesRecodExist nhưng phần code của hàm DoesRecodExist thì mình chưa biết cách sửa. Hàm DoesFieldExist là mình copy của Bạn Noname.
Private Sub Comm_Kiemtra_Click()
If DCount("Ma_NV", "T_Tienluong", "Ma_NV ='" & Kiemtra & "'") > 0 Then
MsgBox "Co record nay trong bang"
Else
MsgBox "Khong co record nay trong bang"
End If
End Sub
hoangthanhhai > 13-07-11, 04:14 PM
Private Sub Comm_Kiemtra_Click()
If DCount("Ma_NV", "T_Tienluong", "Ma_NV ='" & Kiemtra & "'") > 0 Then
MsgBox "Co record nay trong bang"
Else
MsgBox "Khong co record nay trong bang"
End If
End Sub