tạo button lưu trên form từ ascess

[hongdaisu]

Chào mọi người
mình có làm 1 file ascess -nộitrong form mình có tạo 1 nút GHI với nôi dung như sau
Private Sub cmdghi_Click()
If IsNull(mamh) = True Then
MsgBox " khoa chinh rong "
mamh.SetFocus
ElseIf DCount("mamh", "sach", "mamh='" & mamh & "'") = 1 Then
MsgBox " khoa chinh trung "
mamh.SetFocus
Else
DoCmd.RunCommand acCmdSaveRecord
End If
End Sub

có file đính kèm-ai giúp mình với -không chạy được nút GHI

file đính kèm đây các bạn

 

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

Chào mọi người
mình có làm 1 file ascess -nộitrong form mình có tạo 1 nút GHI với nôi dung như sau
Private Sub cmdghi_Click()
If IsNull(mamh) = True Then
MsgBox " khoa chinh rong "
mamh.SetFocus
ElseIf DCount("mamh", "sach", "mamh='" & mamh & "'") = 1 Then
MsgBox " khoa chinh trung "
mamh.SetFocus
Else
DoCmd.RunCommand acCmdSaveRecord
End If
End Sub

có file đính kèm-ai giúp mình với -không chạy được nút GHI

file đính kèm đây các bạn

Bạn chỉnh lại như sau:

Private Sub cmdghi_Click()
    If IsNull(mamh) = True Then
        MsgBox " khoa chinh rong "
        mamh.SetFocus
    ElseIf DCount("[mamh]", "sach", "[mamh]=" & Me.mamh) >= 1 Then
        MsgBox " khoa chinh trung "
        mamh.SetFocus
    Else
        DoCmd.RunCommand acCmdSaveRecord
    End If
End Sub

Ngoài ra bạn có thể bắt lỗi trùng khóa chính là 3022

 

[hongdaisu]

tạo nút lưu trong access với điều kiện không rỗng

Chào mọi người
Mình có 1 form cập nhập
có 2 text box là maso và năm
code của nút LƯU hiện tại.
Private Sub cmdluu_Click()
If IsNull(maso) = True Then
MsgBox " Khoa chinh rong nhap vao "
maso.SetFocus
ElseIf DCount("[maso]", "capnhap", "[maso]=" & Me.maso) >= 1 Then
MsgBox " Khoa chinh trung "
maso.SetFocus
Else
DoCmd.RunCommand acCmdSaveRecord
End If
End Sub
giờ mình muốn khi nhập xong " maso" mà khong nhập vào textbox "Năm" và LƯU thì không cho Lưu và báo Nam rỗng
Mọi người giúp với

 

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

Chào mọi người
Mình có 1 form cập nhập
có 2 text box là maso và năm
code của nút LƯU hiện tại.
Private Sub cmdluu_Click()
If IsNull(maso) = True Then
MsgBox " Khoa chinh rong nhap vao "
maso.SetFocus
ElseIf DCount("[maso]", "capnhap", "[maso]=" & Me.maso) >= 1 Then
MsgBox " Khoa chinh trung "
maso.SetFocus
Else
DoCmd.RunCommand acCmdSaveRecord
End If
End Sub
giờ mình muốn khi nhập xong " maso" mà khong nhập vào textbox "Năm" và LƯU thì không cho Lưu và báo Nam rỗng
Mọi người giúp với

Bạn thêm xử lý lỗi vào là được.

If IsNull(txtName.Text) = True Then
    MsgBox "Nam khong duoc de trong"
    txtName.SetFocus
    Exit Sub
    
End If

 

[hongdaisu]

chèn vào đoạn nào cho nó hợp lý bạn-mình cũng thử rồi nhưng toàn là nó lưu trước rồi mới đến báo rỗng "nam".khi nhập "nam" vào và lưu thì báo trùng khóa chính.Có thể kết hợp nó với cái điều kiện rỗng maso được ko

 

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

chèn vào đoạn nào cho nó hợp lý bạn-mình cũng thử rồi nhưng toàn là nó lưu trước rồi mới đến báo rỗng "nam".khi nhập "nam" vào và lưu thì báo trùng khóa chính.Có thể kết hợp nó với cái điều kiện rỗng maso được ko

Vậy bạn chèn vào chổ nào sao không đưa xem thử, lưu ý là tôi chỉ gợi ý cho bạn thôi nhé.

 

[hongdaisu]

file chi tiết đây bạn xem jup mình với

 

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

file chi tiết đây bạn xem jup mình với

Bạn thiếu dòng màu đỏ sau:

If IsNull(nam) = True Then
   MsgBox " Nhap vao nam dang ky"
   nam.SetFocus
   [COLOR=#ff0000]Exit Sub[/COLOR]
End If

 

[hongdaisu]

Nhập vào maso -->lưu-->báo năm rỗng-->nhập vào năm-->lưu-->báo trùng khóa chính
Nó vừa lưu mà vừa báo năm rỗng bạn ah...ý mình là năm rỗng thì ko lưu được...

 

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

Nhập vào maso -->lưu-->báo năm rỗng-->nhập vào năm-->lưu-->báo trùng khóa chính
Nó vừa lưu mà vừa báo năm rỗng bạn ah...ý mình là năm rỗng thì ko lưu được...

Thì cái code ở trên nếu như textbox nam bị rỗng thì bắt nó dừng lại thôi mà, đâu có cho lưu đâu bạn