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:
- Xin mẫu hợp đồng thuê san lấp núi
- Cho mình hỏi một số hàm Visual Basic dùng trong Access:
- Giúp đở đoạn code SQL trong VBA của Access
- Làm thế nào để hiển thị tiếng việt trong Msg box Yes/No ?
- giúp sửa lỗi reports
- Có bác bào biết cách lấy ảnh từ 1 file dll k???
- Ai giúp mình đoạn code chạy Query với !
- Không đánh biến vào các Qerry nữa
- Kiểu ngày tháng trong access
- Xin giúp em về listview
-
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
Theo phong tục của người M’nông, khi đứa trẻ vừa tròn một mùa rẫy (nghĩa là vừa tròn một năm tuổi), cha mẹ đứa trẻ phải tiến hành làm lễ cắt tóc (krah soh) và lễ xỏ tai (chuh tor) cho con mình, nhằm...
Lễ cắt tóc (krah soh) và lễ xỏ tai (chuh tor) cho trẻ sơ sinh của người M’nông