Chào mừng đến với Diễn đàn Dân Kế Toán - Kế toán tổng hợp thực tế.
Kết quả 1 đến 4 của 4
  1. #1
    Ngày tham gia
    Aug 2015
    Bài viết
    19

    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.

    Mã:
    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 à.

  2. #2
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Ðề: Update thông tin 1 cầu thủ mới




    Trích dẫn Gửi bở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.

    Mã:
    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

  3. #3
    Ngày tham gia
    Nov 2015
    Bài viết
    0
    Ðề: 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

  4. #4
    Ngày tham gia
    Nov 2015
    Bài viết
    0
    Ðề: 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ủ.

 

 

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •