Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Tạo form cập nhật dữ liệu cho table
#1
BÀI TẬP
ĐỀ BÀI
Từ trước tới giờ em chưa làm qua bài tập dạng tạo menu cấp 1 - 2 - 3, nên hôm nay post lên đây mong các tiền bối chỉ dạy cho em về dạng này ạh.
Chữ ký của xuannguyen13 Xin chào, mình là xuannguyen13, Tham gia http://thuthuataccess.com/forum từ ngày 17-04 -15.
Reply
Những người đã cảm ơn
#2
1. Câu hỏi không liên quan gì đến tiêu đề.
2. Dạng cập nhật dữ liệu cho table này chỉ cần dùng các lệnh truy vấn liệt kê các filed là ra, việc còn lại bố trí sao cho đẹp là được. Không cần code hay hướng dẫn gì cả. Đọc giáo trình là làm được rồi.

Thân mến! ( ít ai trên đây dùng Access 2007, nên không thể hỗ trợ được)
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn xuannguyen13
#3
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.

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) = 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!
Chữ ký của maidinhdan * Để được hỗ trợ tốt nhất, nhấn vào link dưới đây để xem.
1. [Hướng dẫn] Kiểu file gửi lên để được giúp đỡ
2. [Hướng dẫn] Nội quy diễn đàn
3. [Hướng dẫn] Cách Đưa file và hình vào diễn đàn
4.[Hướng dẫn] Để xây dựng một ứng dụng hoàn hảo và lời cảm tạ
5. Cần tìm Demo hay ứng dụng sử dụng thanh tìm kiếm phía trên cùng, bên phải của diễn đàn.
* Nếu muốn cảm ơn, hãy nhấn nút thank, không cần viết thêm bài nào nửa.



ღღღღღTài sản của maidinhdan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn xuannguyen13
#4
(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.

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) = 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!
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.
Chữ ký của xuannguyen13 Xin chào, mình là xuannguyen13, Tham gia http://thuthuataccess.com/forum từ ngày 17-04 -15.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Refresh Form và tiếp tục hoạt động Godspear 2 74 11 Giờ trước
Bài mới nhất: Godspear
  [Hỏi] Cách thêm dữ liệu vào form Main_Sub NganNguyen 1 38 06-12-16, 02:23 AM
Bài mới nhất: maidinhdan
  Tự động hiện Form khi loading hết thời gian ChiMai 1 49 02-12-16, 08:59 PM
Bài mới nhất: ongke0711
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 209 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 195 22-11-16, 09:23 AM
Bài mới nhất: jason

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ