maidinhdan > 06-07-15, 09:54 AM
maidinhdan > 07-07-15, 12:46 AM
Private Sub cmdluu_Click()
If Me.txtmkh.Value <> "" Then
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("KHOAHOC", dbOpenDynaset)
rs.AddNew
rs!MAKH = txtmkh
rs!TENKH = txttkh
rs!BD = txtbd
rs!KT = txtkt
rs.Update
rs.Close
MsgBox "Da nhap vao thanh cong, khong tin mo Table Khoa hoc len xem", vbInformation, "Thong bao"
Me.txtmkh = ""
Me.txttkh = ""
Me.txtbd = ""
Me.txtkt = ""
Else
MsgBox "Du lieu khong duoc bo trong", vbInformation, "Canh bao"
End If
End Sub
Private Sub cmdthoat_Click()
DoCmd.Close
End Sub
Private Sub cmdtinh_Click()
If (Me.txtnam.Value Mod 4) = 0 And (Me.txtnam.Value Mod 100) <> 0 Then
Me.txtngay = "366"
Else
Me.txtngay = "365"
End If
End Sub
Private Sub cmdthoat_Click()
DoCmd.Close
End Sub
xuannguyen13 > 07-07-15, 02:30 AM
(07-07-15, 12:46 AM)maidinhdan Đã viết: bạn XuanNguyen thân mến, đây là lần đầu và cũng là lần cuối mình làm Demo này cho bạn xem, vì khi bạn gửi câu hỏi như thế giống như Ban quản trị diễn đàn là Học sinh đang đi thi vậy. ( Đó là vài lời tâm sư) Mình không biết ai cho bạn câu hỏi như thế nửa, có lẽ bạn đang đi học thì phải.Dạ đúng ạ em đang ôn thi để lấy chứng chỉ B, em hứa lần sau em sẽ gửi bài đoàng hoàng, em xin cám ơn thầy nhiều.
Bạn thấy đó, mình đánh từng chữ cho các thành viên trong diễn đàn, từng đoạn code chứ nào copy dẫu rằng biết rất lla2 lâu nhưng vẫn cố gắng...
Lần sau bạn phải tự làm, tự đánh từng chữ những gì bạn thắc mắc -> từ đó bạn sẽ một ngày giỏi hơn. Và đây là Demo và Code hàm triền khai đối với 2 câu hỏi bạn gửi mail cho mình.
Câu hỏi:
Câu 1: Tạo form nhập dữ liệu vào Table [KHOAHOC]
Cú pháp hàm: cho nút lưu
Mã PHP:Private Sub cmdluu_Click()
If Me.txtmkh.Value <> "" Then
Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("KHOAHOC", dbOpenDynaset)
rs.AddNew
rs!MAKH = txtmkh
rs!TENKH = txttkh
rs!BD = txtbd
rs!KT = txtkt
rs.Update
rs.Close
MsgBox "Da nhap vao thanh cong, khong tin mo Table Khoa hoc len xem", vbInformation, "Thong bao"
Me.txtmkh = ""
Me.txttkh = ""
Me.txtbd = ""
Me.txtkt = ""
Else
MsgBox "Du lieu khong duoc bo trong", vbInformation, "Canh bao"
End If
End Sub
Cú pháp hàm: cho nút Thoát
Mã PHP:Private Sub cmdthoat_Click()
DoCmd.Close
End Sub
Câu 2: Tính số ngày trong năm có 366 hay 365 ngày.
Cú pháp hàm: cho nút Tính ngày
Mã PHP:Private Sub cmdtinh_Click()
If (Me.txtnam.Value Mod 4) = 0 And (Me.txtnam.Value Mod 100) <> 0 Then
Me.txtngay = "366"
Else
Me.txtngay = "365"
End If
End Sub
Cú pháp hàm: cho nút Thoát
Mã PHP:Private Sub cmdthoat_Click()
DoCmd.Close
End Sub
Demo: Tải xuống
Thân mến!