Hỏi cách kiểm tra điều kiện trong form (1 người xem)

[mouse1612]

Mấy bác ơi, cho em hỏi, Em tạo 1 form đăng ký học nguồn từ bảng DK(Mahv, Makh, Ngay dk)
em muốn thêm mới 1 đang ký, đồng thời khi nhập giá trị Mahv se tiến hành kiểm tra Mahv này đã có trong bảng HOCVIEN( Mahv,....)
Nếu có thì thông báo thông tin sv này đã tồn tại
else mở form HOCVIEN để nhập thông tin học viên
Em viết lệnh như sau nhưng chỉ kiểm tra được giá trị đầu tiên?
If Me.Ten.Value = DLookup("Mahv", "HOCVIEN") Then
MsgBox "thong tin hoc vien da ton tai", vbOKOnly, "thong bao"
Else
DoCmd.OpenForm "frmhocvien"
End If
Rất mong được giúp đỡ, cảm ơn nhiều

 

[Hai Lúa Miền Tây]

Mấy bác ơi, cho em hỏi, Em tạo 1 form đăng ký học nguồn từ bảng DK(Mahv, Makh, Ngay dk)
em muốn thêm mới 1 đang ký, đồng thời khi nhập giá trị Mahv se tiến hành kiểm tra Mahv này đã có trong bảng HOCVIEN( Mahv,....)
Nếu có thì thông báo thông tin sv này đã tồn tại
else mở form HOCVIEN để nhập thông tin học viên
Em viết lệnh như sau nhưng chỉ kiểm tra được giá trị đầu tiên?
If Me.Ten.Value = DLookup("Mahv", "HOCVIEN") Then
MsgBox "thong tin hoc vien da ton tai", vbOKOnly, "thong bao"
Else
DoCmd.OpenForm "frmhocvien"
End If
Rất mong được giúp đỡ, cảm ơn nhiều

Cái này bạn phải set cái mã đó cho nó làm khóa chính, sau đó trong form bắt mã lỗi là 3022 nhé.

 

[mouse1612]

Mahv đã là khóa chính rồi bạn ơi. bạn có thể hướng dẫn rõ hơn không, tại mình mới học nên không rành lắm. cảm ơn bạn nhiều.

 

[mouse1612]

Bạn ơi. cho mình hỏi cái này nữa nhé.
Khi click chuột vào list box đối với bảng có một khóa chính thì thực hiện như thế này
Private Sub List25_Click()
Me.RecordsetClone.FindFirst "Mahv= '" & Me!List25 & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub
Còn đối với bảng có hai khóa chính thì mình phải làm sao?

 

[Hai Lúa Miền Tây]

Mahv đã là khóa chính rồi bạn ơi. bạn có thể hướng dẫn rõ hơn không, tại mình mới học nên không rành lắm. cảm ơn bạn nhiều.

Bắt lỗi trùng khóa chính trong form:

Private Sub Form_Error(DataErr As Integer, Response As Integer)
If DataErr = 3022 Then
    MsgBox "Ma hoc vien: " & UCase([Mahv]) & " da ton tai.", vbCritical, "Loi trung khoa chinh"
    Response = acDataErrContinue
End If

End Sub

 

[mouse1612]

Bạn ơi. cho mình hỏi cái này nữa nhé.
Khi click chuột vào list box đối với bảng có một khóa chính thì thực hiện như thế này
Private Sub List25_Click()
Me.RecordsetClone.FindFirst "Mahv= '" & Me!List25 & "'"
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub
Còn đối với bảng có hai khóa chính thì mình phải làm sao?

ai giúp mình cái này với!. cảm ơn thật nhiều lun.