Chủ đề: Đăng ký người sử dụng
-
08-01-2010, 11:53 PM #1Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 7
Đă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ênView more random threads:
- Lập trình bảo mật cơ sở dữ liệu Access
- ACCESS: tìm kiếm và xóa file bằng VBA!
- Học Access bằng cách xây dựng một ứng dụng cụ thể - Quản lý Mua và Bán hàng - Phần 1 - Mô tả
- Giúp sinh mã quản lý cho từng sản phẩm
- hướng dẫn cách tạo autorun cho powerpoint
- [Tip] Code hiển thị thông tin File
- Xin giúp đỡ về code tìm ngày ạ!
- Đổi từ Yes thành Có và No thành Bỏ qua
- Thay đổi dữ liệu 1 textbox khi 1 textbox thay đổi?
- Từ chuyện tưởng như vớ vẩn mà học VBA...
-
08-02-2010, 07:29 PM #2Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 3
Ðề: Đăng ký người sử dụng
Gửi bởi phuyen89
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
default value = gettext()
-
08-02-2010, 07:49 PM #3Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Đăng ký người sử dụng
Gửi bởi haquocquan
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ý
-
08-02-2010, 09:16 PM #4Silver member
- Ngày tham gia
- Apr 2016
- Bài viết
- 64
Ðề: Đăng ký người sử dụng
Gửi bởi phuyen89
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
-
08-02-2010, 09:28 PM #5Silver member
- Ngày tham gia
- Sep 2015
- Bài viết
- 16
Ðề: Đă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 à .
-
08-05-2010, 12:31 AM #6Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Đăng ký người sử dụng
Gửi bởi glasseggs
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 đỡ.
-
08-05-2010, 03:15 AM #7Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Đă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.
-
08-05-2010, 04:43 PM #8Junior Member
- Ngày tham gia
- Aug 2015
- Bài viết
- 0
Ðề: Đăng ký người sử dụng
Gửi bởi phuyen89
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
-
08-05-2010, 06:47 PM #9Junior Member
- Ngày tham gia
- Nov 2015
- Bài viết
- 0
Ðề: Đă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
Du lịch Singapore là đã không còn là điểm đến xa lạ đối với những người yêu thích xê dịch. Tuy có diện tích bé nhỏ, nguồn tài nguyên ít ỏi nhưng “đảo quốc sư tử” đã biết biến những điều không thể...
Nên đi những địa điểm nào trong tour Du lịch Singapore của Dulichviet