• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

Giúp em vấn đề lấy dữ liệu trong FormSub ra TexBox Formmain

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Giúp em vấn đề lấy dữ liệu trong FormSub ra TexBox Formmain
• Giúp em vấn đề lấy dữ liệu trong FormSub ra TexBox Formmain

• Giúp em vấn đề lấy dữ liệu trong FormSub ra TexBox Formmain

  congbinhdh > 03-05-13, 11:07 AM

  Em có 1 FormMain chứa 1 FormSub. E đã tạo ra những TextBox tương ứng với các trường trong Table. Bây giờ e muốn làm sao để khi mình kích chuột vào dữ liệu ở FormSub thì các TextBox ở formMain sẽ hiển thị thông tin tương ứng với các trường trong Form. Giúp em với. E xin cảm ơn
  
  
  
  Form của em đây: http://www.mediafire.com/?d44462pjysatyu2

• RE: Giúp em vấn đề lấy dữ liệu trong FormSub ra TexBox Formmain

  Xuân Thanh > 03-05-13, 12:06 PM

  1/ Cả hai form đều có chung một Recordsouce nên không thể hiện thị được
  2/ Giữ nguyên các textbox của Maiform, xóa RecordSource của MaiForm, Xóa ControlSource của các textbox
  3/ Dùng sự kiện Click của SubForm để lấy dữ liệu đổ vào các textbox của MaiForm
  Thân mến

• RE: Giúp em vấn đề lấy dữ liệu trong FormSub ra TexBox Formmain

  congbinhdh > 03-05-13, 01:07 PM

  (03-05-13, 12:06 PM)Xuân Thanh Đã viết: 1/ Cả hai form đều có chung một Recordsouce nên không thể hiện thị được
  2/ Giữ nguyên các textbox của Maiform, xóa RecordSource của MaiForm, Xóa ControlSource của các textbox
  3/ Dùng sự kiện Click của SubForm để lấy dữ liệu đổ vào các textbox của MaiForm
  Thân mến

  
  Anh có thể dow bài e về rồi demo cho e 1 cái được không ạ. Chứ e không rành về access cho lắm. Có gì a giúp giùm e 1 cái. Chân thành cảm ơn

• RE: Giúp em vấn đề lấy dữ liệu trong FormSub ra TexBox Formmain

  Xuân Thanh > 03-05-13, 03:11 PM

  1/ Làm đúng như đã nói ở trên. Lưu ý tên trường, tên texbox.....TUYỆT ĐỐI KHÔNG DÙNG TIẾNG VIỆT CÓ DẤU. Ví dụ : Niên, phải chuyển thành Nien
  2/ Trong Form Khoi_SubForm dán đoạn code sau vào :
  

  Mã:

  Private Sub Form_Click()
    Forms!Khoi!MaKhoi = Me.MaKhoi
    Forms!Khoi!TenKhoi = Me.TenKhoi
    Forms!Khoi!Nien = Me.Nien
End Sub

  
  Thân mến
  @ : Hỏi đâu chỉ đó

• RE: Giúp em vấn đề lấy dữ liệu trong FormSub ra TexBox Formmain

  congbinhdh > 03-05-13, 04:20 PM

  Cảm ơn a đã chỉ bảo rất tận tình và e đã làm được. Rất cảm ơn anh. Em còn 1 số cái chưa làm được. Có gì a chỉ giáo thêm. Chân thành cảm ơn anh

• RE: Giúp em vấn đề lấy dữ liệu trong FormSub ra TexBox Formmain

  congbinhdh > 03-05-13, 05:11 PM

  Anh ơi! Một vấn đề phát sinh ở đây mà e không thể làm các nút lệnh thêm sửa xóa bằng thủ công nữa phải chuyển qua code và e cũng đã đã làm rất ok rồi.. Nhưng khi mình làm xong bấm vào các nút lệnh thì CSDL mình thấy ở SubForm không thay đổi, Chỉ có tắt đi mở lại mới thay đổi. A có thể bày e làm 1 nút refesh form được k ạ. E xin cảm ơn

• RE: Giúp em vấn đề lấy dữ liệu trong FormSub ra TexBox Formmain

  Xuân Thanh > 03-05-13, 05:20 PM

  Mã:

  Private Sub cmdThem_Click()
    Me.MaKhoi = ""
    Me.TenKhoi = ""
    Me.Nien = ""
    Me.MaKhoi.SeyForcus
End Sub

Private Sub cmdHuy_Click()
    Me.MaKhoi = ""
    Me.TenKhoi = ""
    Me.Nien = ""
    Me.MaKhoi.SetForcus
End Sub

Private Sub cmdLuu_Click()
    Dim rs As Recordset
    Dim CauSQL As String
    CauSQL = "Select * From Khoi Where MaKhoi = '" & Me.MaKhoi & "'"
    Set rs = CurrentDb.OpenRecordset(CauSQL)
    If rs.RecordCount > 0 Then
        rs.Edit
        rs!TenKhoi = Me.TenKhoi
        rsNien = Me.Nien
        rs.Update
    Else
        rs.AddNew
        rs!MaKhoi = Me.MaKhoi
        rs.TenKhoi = Me.TenKhoi
        rs!Nien = Me.Nien
        rs.Update
    End If
    rs.Close
End Sub

Private Sub cmdXoa_Click()
    Dim CauSQL As String
    CauSQL = "Delete * From Khoi Where MaKhoi = '" & Me.MaKhoi & "'"
    DoCmd.SetWarnings False
    DoCmd.RunSQL CauSQL
    DoCmd.SetWarnings True
End Sub
• Bài trước Bài tiếp