• Tùy chọn
• Đăng nhập
• Đăng ký
• Xem như trên Máy tính
• Accelerated Mobile Pages Theme

FORM LOGIN

• Trang chủ

  • Thủ Thuật Access
  • Access Cơ Bản
  • Forms
  • FORM LOGIN
• FORM LOGIN

• FORM LOGIN

  honglv157 > 26-08-15, 03:35 PM

  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

• RE: FORM LOGIN

  tranthanhan1962 > 26-08-15, 06:27 PM

  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, …)

• RE: FORM LOGIN

  honglv157 > 01-10-15, 02:46 PM

  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
  
  

• RE: FORM LOGIN

  tranthanhan1962 > 01-10-15, 05:07 PM

  (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ố.

• RE: FORM LOGIN

  ongke0711 > 01-10-15, 10:36 PM

  Có vẻ chỗ lệnh Select Case said thì phải

• RE: FORM LOGIN

  honglv157 > 02-10-15, 10:59 AM

  cảm ơn nhiều a!em làm được rồi

• RE: FORM LOGIN

  Vy2312 > 06-11-15, 05:47 PM

  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

• RE: FORM LOGIN

  ledangvan > 06-11-15, 07:58 PM

  (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

• RE: FORM LOGIN

  tranthanhan1962 > 07-11-15, 01:25 PM

  (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
• Bài trước Bài tiếp