Update thông tin 1 cầu thủ mới

[taocao1m8]

Giả sử trên form chính của em có 1 button là " Cập nhật cầu thủ mới".
Khi mình bấm vào nút đó nó sẽ hiện lên bảng thongtincauthu để mình nhập dữ liệu mới vào.

Private Sub Command45_Click()
Set db = CurrentDb
Set rs = db.OpenRecordset("Thong tin cau thu")
rs.AddNew
rs.Fields("masoao") = ""
rs.Fields("tencauthu") = ""
rs.Fields("ngaysinh") = ##
rs.Fields("chieucao") = ""
rs.Fields("cannang") = ""
rs.Fields("quoctich") = ""
rs.Fields("vitrisotruong") = ""
rs.Fields("tongchiso") = ""
rs.Fields("chisovitri") = ""
rs.Fields("tongquat") = ""
rs.Fields("tancong") = ""
rs.Fields("chuyen/rebong") = ""
rs.Fields("phongngu") = ""
rs.Fields("giugon") = ""
rs.Fields("hinhanh") = ""
End If
End Sub

em viết code như thế mà không được. Anh chị nào pro vào giúp em với, hic mới học được có nữa tháng à.

 

[phatnq2002]

Ðề: Update thông tin 1 cầu thủ mới

Giả sử trên form chính của em có 1 button là " Cập nhật cầu thủ mới".
Khi mình bấm vào nút đó nó sẽ hiện lên bảng thongtincauthu để mình nhập dữ liệu mới vào.

Private Sub Command45_Click()
Set db = CurrentDb
Set rs = db.OpenRecordset("Thong tin cau thu")
rs.AddNew
rs.Fields("masoao") = ""
rs.Fields("tencauthu") = ""
rs.Fields("ngaysinh") = ##
rs.Fields("chieucao") = ""
rs.Fields("cannang") = ""
rs.Fields("quoctich") = ""
rs.Fields("vitrisotruong") = ""
rs.Fields("tongchiso") = ""
rs.Fields("chisovitri") = ""
rs.Fields("tongquat") = ""
rs.Fields("tancong") = ""
rs.Fields("chuyen/rebong") = ""
rs.Fields("phongngu") = ""
rs.Fields("giugon") = ""
rs.Fields("hinhanh") = ""
End If
End Sub

em viết code như thế mà không được. Anh chị nào pro vào giúp em với, hic mới học được có nữa tháng à.

Bạn chỉ cần tạo một cái form có Record Source là table của bạn.
Sau đó bạn có thể chế thêm cái command button để nó chạy cái lệnh:
DoCmd.RunCommand acCmdRecordsGotoNew

 

[taocao1m8]

Ðề: Update thông tin 1 cầu thủ mới

em vẫn không hiểu lắm, để em làm rồi post lên anh xem nhé. Ý của em là tạo 1 nút ở form chính rồi bấm 1 cái là xuất hiện 1 form để cập nhật thêm thông tin. Cám ơn anh

 

[glasseggs]

Ðề: Update thông tin 1 cầu thủ mới

Bác này người ta gọi là mang dao mổ trâu đi giết gà,nhìn lệnh mà em choáng,nhìn lệnh chắc bác là dân lập trình,tự làm khó mình.
Để mở bảng cập nhật thì vô cùng đơn giản, vẽ voi vẽ vượn ra làm gì :

DoCmd.OpenTable "Tablename", acViewNormal, acAdd

Còn nếu muốn mở Form thì đây,trên Form chính tạo nút lệnh sau :
DoCmd.OpenForm "Formname", acNormal, , , , acWindowsNormal

Formname là cái Form bác đã làm để cập nhật cầu thủ.