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

Lưu thông tin của record cũ trên form khi nhập mới record ?

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • Lưu thông tin của record cũ trên form khi nhập mới record ?
• Lưu thông tin của record cũ trên form khi nhập mới record ?

• Lưu thông tin của record cũ trên form khi nhập mới record ?

  hueqlhc > 05-10-11, 10:40 AM

  Mình có CSDL như sau:
  http://www.mediafire.com/?gyggpzdlfduhr1u
  Mình muốn khi thêm record mới dữ liệu tại F_Tiepnhan thì trường "Người nộp hồ sơ" và "Họ tên chủ hộ" vẫn giữ nguyên thông tin cũ của record trước có được không ?
  Mong các bạn giúp đỡ mình nha.
  Thanks.

• RE: Lưu thông tin của record cũ trên form khi nhập mới record ?

  domfootwear > 05-10-11, 11:49 AM

  (05-10-11, 10:40 AM)hueqlhc Đã viết: Mình có CSDL như sau:
  http://www.mediafire.com/?gyggpzdlfduhr1u
  Mình muốn khi thêm record mới dữ liệu tại F_Tiepnhan thì trường "Người nộp hồ sơ" và "Họ tên chủ hộ" vẫn giữ nguyên thông tin cũ của record trước có được không ?
  Mong các bạn giúp đỡ mình nha.
  Thanks.

  Khai bái 2 biến sau vào module
  
  

  Mã PHP:

  Option Compare Database

Public sNguoiNop As String
Public sChuHo As String 


  
  Thêm code vào nút lưu, khi nhập xong dữ liệu, nhấn lưu thì nó sẽ lưu tên biến đó.
  
  

  Mã PHP:

  Private Sub Command40_Click()
On Error GoTo Err_Command40_Click


    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    sNguoiNop = Nguoinophoso
    sChuHo = HotenCH
    
Exit_Command40_Click:
    Exit Sub

Err_Command40_Click:
    MsgBox Err.Description
    Resume Exit_Command40_Click
    
End Sub 


  
  Khi muốn nhập mới thì nhấn vào nút thêm, lúc này nó sẽ ghi cái biến lưu lúc nãy vào 2 textbox bạn muốn.
  
  

  Mã PHP:

  Private Sub Command13_Click()
On Error GoTo Err_Command13_Click

    Dim soCT
    DoCmd.GoToRecord , , acNewRec
    Me.Label52.Visible = False
    Me.Box51.Visible = False
    Me.Label57.Visible = False
    Me.Gioitinh.Visible = False
    Me.Label46.Visible = False
    Me.Ngaysinh.Visible = False
    Me.Label45.Visible = False
    Me.CMND.Visible = False
    Me.Label47.Visible = False
    Me.Noisinh.Visible = False
    Me.Dantoc.Visible = False
    Me.Label59.Visible = False
    Me.Tongiao.Visible = False
    Me.Label50.Visible = False
    Me.Lydochuyen.Visible = False
    Me.Label44.Visible = False
    Me.Nguyenquan.Visible = False
    Me.Label55.Visible = False
    Me.HK07NK_subform.Visible = False
    Me.Q_Hosomoinhan_subform1.Visible = True
    Me.Label37.Visible = True
    soCT = DMax("[SoBN]", "Tiepnhan")
    SoBN = Format(soCT + 1, "0000")
    Nguoinophoso = sNguoiNop
    HotenCH = sChuHo

Exit_Command13_Click:
    Exit Sub

Err_Command13_Click:
    MsgBox Err.Description
    Resume Exit_Command13_Click
    
End Sub 


• RE: Lưu thông tin của record cũ trên form khi nhập mới record ?

  hueqlhc > 05-10-11, 02:59 PM

  Cảm ơn huynh domfootwear. Mình đã làm được rồi.
• Bài trước Bài tiếp