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

[haquocquan]

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é.

 

[LoveBlue]

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

 

[haquocquan]

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

 

[phatnq2002]

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