Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
Lưu thông tin của record cũ trên form khi nhập mới record ?
#1
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.
Chữ ký của hueqlhc Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
ღღღღღTài sản của hueqlhc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#2
(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 
Chữ ký của domfootwear Xin chào Guest, nếu Guest biết thủ thuật nào thì nên chia sẻ cho cộng đồng nhé.
ღღღღღTài sản của domfootwear (View All Items) ღღღღღ
Reply
Những người đã cảm ơn haquocquan , hueqlhc , thuc1605
#3
Cảm ơn huynh domfootwear. Mình đã làm được rồi.
Chữ ký của hueqlhc Hãy chia sẻ kinh nghiệm cùng mình trên ThuThuatAccess nhé! Chúc vui vẻ rose
ღღღღღTài sản của hueqlhc (View All Items) ღღღღღ
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Hướng Dẫn Tạo form hóa đơn bán hàng Mỹ Hạnh 6 193 04-04-18, 09:29 PM
Bài mới nhất: ongke0711
  Tạo form tìm kiếm thông tin Mỹ Hạnh 2 109 29-03-18, 02:28 PM
Bài mới nhất: Mỹ Hạnh
  Lấy dữ liệu từ form khác Mỹ Hạnh 1 83 27-03-18, 04:21 PM
Bài mới nhất: tranthanhan1962
  [Help] Tạo form cập nhật dữ liệu Mỹ Hạnh 4 186 21-03-18, 12:54 AM
Bài mới nhất: vkaccess
  Không thể mở hình ảnh theo đường link ảnh trên access 2016 tvn_hut 0 65 14-03-18, 04:24 PM
Bài mới nhất: tvn_hut

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line