Gán giá trị trong table vào biến trong ACCESS!

[MinhPhuc123]

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:

• Bắt sự kiện Report được in ra máy in?
• Lựa chọn và mặc định máy in trên access
• Thiết lập ngày hệ thống trong Access
• chuyển report access sang excel
• Dữ liệu không cập nhật kịp thời khi In report
• Thêm ảnh chân dung cho từng ID.
• Sao lưu table từ file -> file?
• Chạy một đoạn code được lưu trong biến biến
• gán giá trị vào textbox như thế nào
• Lỗi 424 khi làm TreeView

[diengiadung]

Ðề: 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ẽ.

[Thuy_KTHN]

Ðề: 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

[manangiam]

Ðề: 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

Xin lỗi các bác, em đang tập teng học ACCESS, theo kiểu vừa học vừa làm (vướng đến đâu hỏi đến đó).
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:

[seo012013]

Ðề: 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:

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

Sau đó bạn gọi thủ tục khi bắt đầu ứng dụng

GanGiaTri

Chúc thành công!

[trungtrinh]

Ðề: 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:

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

Sau đó bạn gọi thủ tục khi bắt đầu ứng dụng

GanGiaTri

Chúc thành công!

Lưu ý một chút:
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