Chủ đề: Đăng ký người sử dụng
-
08-01-2010, 11:53 PM #1
Junior 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:
- Xin giúp đỡ cách truyền giá trị giữa 2 Form, Report
- Hai khúc mắc trong VBA
- Cho mình hỏi có cách nào để kiểm tra 1 Control có nhận Focus hay không ?
- tìm tên khách hàng và hiển thị tất cả các dữ liệu liên quan lên form và subform
- Chèn dòng trong Form Access
- Có bác bào biết cách lấy ảnh từ 1 file dll k???
- Hỏi query Xuất Nhập Tồn
- Sử dụng chức năng phân quyền truy cập của access
- Các phần phụ của 1 phần mềm.
- phần mềm quản lý nhân sự
-
08-02-2010, 07:29 PM #2
Junior 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 #3
Junior 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 #4
Silver 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 #5
Silver 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 #6
Junior 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 #7
Junior 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 #8
Junior 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 #9
Junior 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
Trứng rung Private Massager hay còn được gọi với cái tên trứng rung cá heo là sản phẩm nức danh giờ. Công dụng chính là giúp massage “cô bé”, hỗ trợ tạo cảm giác hưng phấn, mới lạ cho chị em “tự...
Các cặp đôi hoàn toàn có thể sử dụng chày rung điều khiển từ xa ở nơi công cộng