-
11-16-2009, 08:23 PM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 5
Gán giá trị trong table vào biến trong ACCESS!
Em có một table khai báo các tham số dùng chung và được nhập tại frmKhaibao.
Em muốn gán giá trị các trường trong table đó cho các biến dùng chung để sử dụng cho toàn bộ chương trình.
Các bác cho em xin giải pháp nhé.View more random threads:
- Lưu contact trên access vào Outlook và ngược lại
- Đi tìm đường dẫn của BACK END
- NotInlist Event (Nhiều người gặp phải)
- Hỏi về Lọc dữ liệu
- TIP :Cho Access thoát khỏi .... Access !
- Tree View Control trong Access
- Một hàm tự viết thay thế cho DLOOKUP của Access
- Combox????
- nho huong dan sua loi code va huong dan lam do an lap trinh access
- Nhờ trợ giúp về thuật toán đối chiếu công nợ
-
11-16-2009, 08:51 PM #2Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 3
Ðề: Gán giá trị trong table vào biến trong ACCESS!
Tôi có 1 giải pháp thế này:
- Bạn thiết kế table gồm 3 trường: Khoa (khóa), Ten (Tên tham số), GiaTri (Giá trị của tham số)
- Viết một hàm fLayThamSo(Khoa)
Khi cần lấy giá trị của một tham số nào đó, ta gọi hàm fLayThamSo(Khoa) với Khoa là khóa tương ứng với giá trị của tham số ta cần lấy.
ACE có giải pháp khác xin chia sẽ.
-
11-16-2009, 09:56 PM #3Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Gán giá trị trong table vào biến trong ACCESS!
Bạn tạo 1 module, bạn chỉ cần khai báo biến dạng public là có thể dùng đến khi đóng chương trình. Sau đó gán nó giá trị nào thì nó mang giá trị nấy
Vì dụ:
Public rs2 As Recordset
Public SQL As String
-
11-16-2009, 10:13 PM #4Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Gán giá trị trong table vào biến trong ACCESS!
Gửi bởi LoveBlue
Em có ví dụ nhé:
Em có 1 table có 3 trường: donvi, thumuc, tendoitac (ba trường này là 3 dữ liệu khác nhau, không có liên quan và luôn chỉ có 1 record duy nhất), giá trị của 3 trường này em gán bằng frmKhaibao
Em có 3 biến để sử dụng chung cho cả chương trình: bién, bien2, biẻn. Em muốn gán cho 3 biến này giá trị của 3 trường trong table trên.
Các bác giúp em với.
.........
Em làm được rồi các bác ơi.:khocdudoi:
-
11-17-2009, 03:40 PM #5Silver member
- Ngày tham gia
- Apr 2016
- Bài viết
- 271
Ðề: Gán giá trị trong table vào biến trong ACCESS!
Bạn khai báo 3 biến: bien1, bien2, bien3 là 3 biến public ở modul như LoveBlue đã giới thiệu và dùng thủ tục sau để gán giá trị cho 3 biến:
Mã:Sub GanGiaTri() Dim db As Database, rs As Recordset Set db = CurrentDb Set rs = db.OpenRecordset("table", DB_OPEN_DYNASET) If rs.RecordCount > 0 Then bien1 = rs!DonVi bien2 = ThuMuc bien3 = TenDoiTac End If rs.Close Set db = Nothing End Sub
GanGiaTri
Chúc thành công!
-
11-17-2009, 08:24 PM #6Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Gán giá trị trong table vào biến trong ACCESS!
Gửi bởi dongnamnb
Không biết phiên bản mới ra sao chứ nếu bạn Set rs xong, mà bạn check rs.RecordCount liền thì:
rs không có record nào, RecordCount sẽ trả về 0
rs có record, RecordCount luôn luôn trả về là 1, cho dù rs có bao nhiêu record đi chăng nữa.
Do vậy để RecordCount trả đúng số record của table, chúng ta nên cho cái đoạn này sau lệnh Set:
On Error Resume Next
rs.MoveLast
rs.MoveFirst
On Error Goto 0
Hiện nay, trên mạng cũng có rất nhiều diễn đàn mà cánh nam giới chia sẻ với nhau về nghệ thuật bế tinh và coi đó là bí kíp để gìn giữ sức khỏe và tư thế đàn ông. Tuy nhiên, theo giáo sư Trần Quán...
Tư thế yêu mà không xuất của quý ông. Tác hại như thế nào?