-
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àm sao để sắp xếp cố định các trường xuống dòng trong 1 Textbox của Report
- Xuất report access sang word,excell
- Giúp mình bị lỗi phóng to chữ trong Form của Access !
- Combox????
- Cần Giúp đỡ về giải thuật Tính Toán " Giá Trị Hàng Tồn Kho "
- Hiển thị Tiếng việt tại các MsgBox
- Giúp đỡ về việc nhập dữ liệu trên Access chép từ VB
- Import hoặc link data từ 1 host khác như thế nào?
- Có cách nào để tạo 1 button mở 1 file power point dưới dạng trình chiếu ?
- Cách kết hợp VBA với access
-
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
Súng massage cầm tay FASCIAL GUN Đứng ở vị trí trước nhất trong danh sách chính là súng massage cầm tay FASCIAL GUN được thiết kế đẹp mắt với tông màu đen qua. Máy có mẫu mã nhỏ gọn, chắc chắn nên...
Thông kê mẫu chày massage chuẩn nhất trên thị trường hiện nay