Đăng ký người sử dụng

[sinhvienpy89]

Cho hỏi là khi mở FrmDangký lên,gõ người dùng vào,nhấn OK thì làm sao txt của frmGiaoDien nó hiện tên vào txt này.

Còn thiếu nút OK nữa nhen.CHụp hình bị quên

 

[haquocquan]

Ðề: Đăng ký người sử dụng

Cho hỏi là khi mở FrmDangký lên,gõ người dùng vào,nhấn OK thì làm sao txt của frmGiaoDien nó hiện tên vào txt này.

Còn thiếu nút OK nữa nhen.CHụp hình bị quên

Sau khi bạn bấm OK thì form DangKy sẽ đóng, để lại frmGiaodien đang mở.
Có nhiều cách, nhưng mình dùng cách này:
- Tạo một function lấy giá trị text tại form Dangky:

Function gettext()
gettext = Dangky!text
End function

- Gán giá trị cho text trên frmGiaodien

default value = gettext()

Bạn thử xem.

 

[phatnq2002]

Ðề: Đăng ký người sử dụng

Sau khi bạn bấm OK thì form DangKy sẽ đóng, để lại frmGiaodien đang mở.
Có nhiều cách, nhưng mình dùng cách này:
- Tạo một function lấy giá trị text tại form Dangky:
- Gán giá trị cho text trên frmGiaodien

Bạn thử xem.

Chi cực khổ quá.
Cho một biến Public curUser As String

Khi OK form đăng ký thì:
curUser = txtUser
Forms("frmGiaoDien").txtUser = curUser

Làm như trên để khi nào có form khác muốn hiện tên user nữa thì chỉ cần:

Private Sub Form_Load()
txtUser = curUser
End Sub

Còn chỉ mỗi frmGiaodien thôi thì khỏi cần khai báo biến curUser, chỉ cần:

Khi OK form đăng ký thì:
Forms("frmGiaoDien").txtUser = txtUser ' của form đăng ký

 

[xuanthanh]

Ðề: Đăng ký người sử dụng

Cho hỏi là khi mở FrmDangký lên,gõ người dùng vào,nhấn OK thì làm sao txt của frmGiaoDien nó hiện tên vào txt này.

Còn thiếu nút OK nữa nhen.CHụp hình bị quên

Đơn giản nhất là dùng câu lệnh sau cho nút OK của form DangKy:

Forms!frmGiaoDien.txtGiaoDien=Me.txtDangKy
DoCmd.Close frmDangKy
DoCmd.Open frmGiaoDien,acNormal

Trong đó txtDangKy là textbox trên frmdangKy, txtGiaoDien là textbox trên frmGiaoDien

Thân

 

[glasseggs]

Ðề: Đăng ký người sử dụng

Theo mình đoán mò thì sau khi nhập tên người đang ký thì phải cho dữ liệu vào table lưu, để Form Giao diện cứ thế lấy ra mà hiển thị . Chứ làm như thế thì nó chỉ lưu mỗi lúc đó, hay cứ mỗi lần mở phần mềm lại phải đăng ký lại 1 lần à .

 

[sinhvienpy89]

Ðề: Đăng ký người sử dụng

Theo mình đoán mò thì sau khi nhập tên người đang ký thì phải cho dữ liệu vào table lưu, để Form Giao diện cứ thế lấy ra mà hiển thị . Chứ làm như thế thì nó chỉ lưu mỗi lúc đó, hay cứ mỗi lần mở phần mềm lại phải đăng ký lại 1 lần à .

Đúng như thế bạn ah.Mình định tạo một Table để lưu vào nhưng chưa biết làm sao để cho nó lưa vào Table nữa đấy.Khi mà nó kiểm tra là đã có rồi thì không bắt đăng ký nữa.
Mình làm thấy cách Xuanthanh đơn giản nên làm theo.Còn cái còn lại là lưu vào Table xin nhờ các bạn giúp đỡ.

 

[glasseggs]

Ðề: Đăng ký người sử dụng

Mình chưa hiểu rõ lắm về cách đăng ký của bạn.
Nhưng nếu để insert dữ liệu vào table thì bạn thêm câu lệnh sau vào nút OK, mình lấy luôn cách của xuanthanh nhé :
Bạn có table ABC và có trường user nhé .

Dim n As String
n = txtDangKy.Value
Forms!frmGiaoDien.txtGiaoDien = Me.txtDangKy
DoCmd.RunSQL "INSERT INTO ABC( user ) SELECT '" & n & "' AS a"
DoCmd.Close frmDangKy
DoCmd.Open frmGiaoDien,acNormal

Câu lệnh SQL kia mình chưa thử trên VBA, nếu không được thì bạn thay bằng chạy 1 cái query lấy txtDangKy append vào table thôi.

 

[xuanthanh]

Ðề: Đăng ký người sử dụng

Đúng như thế bạn ah.Mình định tạo một Table để lưu vào nhưng chưa biết làm sao để cho nó lưa vào Table nữa đấy.Khi mà nó kiểm tra là đã có rồi thì không bắt đăng ký nữa.
Mình làm thấy cách Xuanthanh đơn giản nên làm theo.Còn cái còn lại là lưu vào Table xin nhờ các bạn giúp đỡ.

Thêm đoạn này vào phía trên của đoạn code vừa nêu :

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset("tblLuu", dbOpenTable)
If rs.RecordCount>0 Then
Exit Sub
Else
rs.AddNew
rs!Ten = Me.txtDangKy
rs.Update
rs.Close
End If
............

Trong đó tblLuu là tên table để lưu tên đăng ký, có một trường duy nhất là trường Ten

 

[haquocquan]

Ðề: Đăng ký người sử dụng

Mời các bác xem DEMO. Tôi vẫn làm theo cách này.
http://www.mediafire.com/?m44cyqrtu34dtys