• 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 acFormBaracRecordsMenuacSaveRecord, , 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.