Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
FORM LOGIN
#1
Em thiết kế form login nhưng khi viết code bị lỗi. nhờ mọi người chỉnh sửa giúp e với a. Đây là file của em.
http://www.mediafire.com/download/ptkl04...281%29.mdb
Thanks
Chữ ký của honglv157 Xin chào, mình là honglv157, Tham gia http://thuthuataccess.com/forum từ ngày 27-05 -15.
Reply
Những người đã cảm ơn
#2
Cái này đơn giản thôi không cần gọi table lên cho mất công. Chỉ cần xử lý trên các field của txtuser là được rồi.
 
Của bạn đây

Góp ý cùng bạn.
Trong module phải có các tùy chọn 
Option Compare Database: Tùy chọn so sánh cơ sở dữ liệu.
Option Explicit: Tùy chọn tường minh các khai báo
Cũng có thể còn nhiều option khác tùy theo yêu cầu. Bạn có thể không cần sử dụng hết các option, nhưng Option Compare Database bắt buột phải có. Vì nếu không có nó modul sẽ không làm việc (không cho so sánh thì lấy gì mà tính toán)
 
Đặt tên cũng nên gợi nhớ. Ví dụ combobox txtuser nên đặt là combouser hoặc cmbouser dễ gợi nhớ và ít lẫn lộn (ví dụ txt: textbox, cmb: combobox, cmd: command, frm: form, …)
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn honglv157 , maidinhdan , khanghychu
#3
Cho em hỏi khi em đăng nhập vào chương trình, nhập user thì báo lỗi: 
" Runtime  erro "5", Invaild procedure call o r argument"
Code form đăng nhập của em: 

Option Compare Database

Option Explicit

Private Sub cmdLogin_Click()
If IsNull(Me.txtuser) Or Me.txtuser = "" Then
    MsgBox "Khong co nhan vat dang nhap cu the, de nghi nhap user!", vbCritical
    Me.txtuser.SetFocus
Else
    
    Select Case Me.txtpass
        Case Me.txtuser.Column(1)
            MsgBox "DANG NHAP THANH CONG"
            Me.Visible = True
              DoCmd.Close
        Case Is <> Me.txtuser.Column(1)
            MsgBox "Mat khau hoac ten dang nhap khong dung"
        Case Else
            MsgBox "ban khong co quyen truy cap"
  End Select
  End If
End Sub

Private Sub txtuser_AfterUpdate()
    QUYEN.Value = DLookup("[Quyen]", "tadmin", "[user] = txtuser.Value")
    CommandBars("thucdon").Controls(1).Visible = True
      CommandBars("thucdon").Controls(2).Visible = True
      CommandBars("thucdon").Controls(3).Visible = True
    Select Case QUYEN.Value
     Case 1
    CommandBars("thucdon").Controls(1).Controls(1).Visible = False
    CommandBars("thucdon").Controls(1).Controls(2).Visible = True
    CommandBars("thucdon").Controls(1).Controls(3).Visible = True
    CommandBars("thucdon").Controls(1).Controls(4).Controls(1).Visible = True
    CommandBars("thucdon").Controls(1).Controls(4).Controls(2).Visible = True
    CommandBars("thucdon").Controls(1).Controls(4).Controls(3).Visible = True
    CommandBars("thucdon").Controls(1).Controls(4).Controls(4).Visible = True
    CommandBars("thucdon").Controls(2).Visible = True
    CommandBars("thucdon").Controls(3).Visible = True
      Case 2
    CommandBars("thucdon").Controls(1).Controls(1).Visible = False
    CommandBars("thucdon").Controls(1).Controls(2).Visible = True
    CommandBars("thucdon").Controls(1).Controls(3).Controls(1).Visible = True
    CommandBars("thucdon").Controls(1).Controls(3).Controls(2).Visible = True
    CommandBars("thucdon").Controls(1).Controls(4).Controls(1).Visible = True
    CommandBars("thucdon").Controls(1).Controls(4).Controls(2).Visible = True
    CommandBars("thucdon").Controls(1).Controls(3).Controls(3).Visible = True
    CommandBars("thucdon").Controls(1).Controls(3).Controls(4).Visible = False
    CommandBars("thucdon").Controls(2).Visible = True
    CommandBars("thucdon").Controls(3).Visible = True
     Case 3
    CommandBars("thucdon").Controls(1).Controls(1).Visible = False
    CommandBars("thucdon").Controls(1).Controls(2).Visible = False
    CommandBars("thucdon").Controls(1).Controls(3).Visible = False
    CommandBars("thucdon").Controls(1).Controls(4).Controls(1).Visible = False
    CommandBars("thucdon").Controls(1).Controls(4).Controls(2).Visible = False
    CommandBars("thucdon").Controls(1).Controls(4).Controls(3).Visible = False
    CommandBars("thucdon").Controls(1).Controls(4).Controls(4).Visible = True
    CommandBars("thucdon").Controls(2).Visible = False
    CommandBars("thucdon").Controls(3).Visible = False
      Case 4
    CommandBars("thucdon").Controls(1).Controls(1).Visible = True
    CommandBars("thucdon").Controls(1).Controls(2).Visible = False
    CommandBars("thucdon").Controls(1).Controls(3).Visible = False
    CommandBars("thucdon").Controls(1).Controls(4).Visible = False
    CommandBars("thucdon").Controls(2).Visible = False
    CommandBars("thucdon").Controls(3).Visible = False
    End Select
End Sub

Chữ ký của honglv157 Xin chào, mình là honglv157, Tham gia http://thuthuataccess.com/forum từ ngày 27-05 -15.
Reply
Những người đã cảm ơn
#4
(01-10-15, 02:46 PM)honglv157 Đã viết: Cho em hỏi khi em đăng nhập vào chương trình, nhập user thì báo lỗi: 
" Runtime  erro "5", Invaild procedure call or argument"
Code form đăng nhập của em: 

Option Compare Database

Option Explicit

Private Sub cmdLogin_Click()
If IsNull(Me.txtuser) Or Me.txtuser = "" Then
......
Về cú pháp thì không sai nhưng Access báo là bạn gọi thủ tục hoặc tham số không hợp lệ.
Bạn vào Debug chạy lệnh Compile xem nó báo lỗi tại chỗ nào. Mẹo: Nếu lệnh Compile bị mờ, gõ đại vài ký tự sau đó xóa nó đi thì nút Compile sẽ hiện lại.
Nên tập thói quen Compile trước khi thực hiện lệnh. Nhớ chỉ khi có "Option Explicit" thì access mới kiểm tra tham số.
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#5
Có vẻ chỗ lệnh Select Case said thì phải
Chữ ký của ongke0711 If you BORN poor, it's not your mistake. But if you DIE poor, It's your mistake!
ღღღღღTài sản của ongke0711 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn
#6
cảm ơn nhiều a!em làm được rồi
Chữ ký của honglv157 Xin chào, mình là honglv157, Tham gia http://thuthuataccess.com/forum từ ngày 27-05 -15.
Reply
Những người đã cảm ơn
#7
Mọi người cho em hỏi. Em muốn khi mở access lên thì form TRANGCHU sẽ hiển thị lên ngay đầu tiên thì phải làm sao? Mọi người chỉ em với. Em xin cảm ơn!
 file access đây
Chữ ký của Vy2312 Vy2312,gia nhập Thủ Thuật Access từ 30-10 -15.
Reply
Những người đã cảm ơn
#8
(06-11-15, 05:47 PM)Vy2312 Đã viết: Mọi người cho em hỏi. Em muốn khi mở access lên thì form TRANGCHU sẽ hiển thị lên ngay đầu tiên thì phải làm sao? Mọi người chỉ em với. Em xin cảm ơn!
 file access đây

Bạn tạo một Macro có tên : Autoexec -> Mục Action bạn thêm OpenForm -> Form name = TRANGCHU là được
Chữ ký của ledangvan Xin chào, mình là ledangvan, Tham gia http://thuthuataccess.com/forum từ ngày 22-08 -11.
ღღღღღTài sản của ledangvan (View All Items) ღღღღღ
Reply
Những người đã cảm ơn tranthanhan1962 , Vy2312 , maidinhdan
#9
(06-11-15, 07:58 PM)ledangvan Đã viết:
(06-11-15, 05:47 PM)Vy2312 Đã viết: Mọi người cho em hỏi. Em muốn khi mở access lên thì form TRANGCHU sẽ hiển thị lên ngay đầu tiên thì phải làm sao? Mọi người chỉ em với. Em xin cảm ơn!
 file access đây

Bạn tạo một Macro có tên : Autoexec -> Mục Action bạn thêm OpenForm -> Form name = TRANGCHU là được

Tools/Startup/Display Form cũng là một biện pháp
Chữ ký của tranthanhan1962 Kết quả cuối cùng của một đời người, không phải bạn có được bao nhiêu tiền bạc, tài sản. Mà bạn còn bao nhiêu người bạn  thumbs up
ღღღღღTài sản của tranthanhan1962 (View All Items) ღღღღღ
Reply
Những người đã cảm ơn Vy2312 , maidinhdan


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  [Hỏi] Refresh Form và tiếp tục hoạt động Godspear 2 82 Hôm qua, 12:48 PM
Bài mới nhất: Godspear
  [Hỏi] Cách thêm dữ liệu vào form Main_Sub NganNguyen 1 38 06-12-16, 02:23 AM
Bài mới nhất: maidinhdan
  Tự động hiện Form khi loading hết thời gian ChiMai 1 49 02-12-16, 08:59 PM
Bài mới nhất: ongke0711
Photo [Hỏi] Mở Form trên access 2007 báo lỗi jason 5 195 22-11-16, 09:23 AM
Bài mới nhất: jason
  Query hiện lên trên form? feeling 4 166 09-11-16, 09:49 PM
Bài mới nhất: toancvp

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ