Một số vấn đề Form mong được hướng dẫn
nhokkungfubmt > 26-05-13, 11:21 AM
Lúc mình tạo form chọn New có chọn Design View, Form Wizard...
Nếu chọn form Wizard thì nó chọn sẵn hình nền cho mình và nó tự điều chỉnh hình cho vừa với khung Nhưng nếu lỡ mình chọn Design view rồi thì làm sao để chọn được hình như bên wizard vậy? Mình chọn hình nhưng nếu cái form mình to quá nó lại ko đủ. Ai giúp mình với
2. Mình có xem một số câu lệnh trên đây nhưng trong câu lệnh có mây cái Error... ở đầu với cuối câu lênh là gì vậy? mình xóa đi được không?
Ví dụ nút xóa
BÌnh thường mình chỉ cần
DoCmd.SetWarnings False
If MsgBox("Ban Có Muôn Xóa Không?", vbExclamation + vbYesNo, "Thông Báo") = vbYes Then
DoCmd.RunCommand acCmdDeleteRecord
DoCmd.Requery
End If
DoCmd.SetWarnings True
End Sub
Nhưng mình thấy trên mạng lại như vậy:
Private Sub Cmdxoa_Click()
On Error GoTo Err_CmXoa_Click
If MsgBox("Ban muon xoa mau tin nay", vbOKCancel) = vbCancel Then Exit Sub
If Year(Me.NgayNhap) = Year(Date) Then
If Month(NgayNhap) <> Month(Date) Then
MsgBox "Mau tin nay da thong ke khong xoa duoc"
Exit Sub
End If
End If
Me.AllowEdits = True
Me.Repaint
DoCmd.SetWarnings (False)
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings (True)
Me.AllowEdits = False
Me.Repaint
Exit_CmXoa_Click:
Exit Sub
Err_CmXoa_Click:
MsgBox Err.Description
Resume Exit_CmXoa_Click
End Sub