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

Thủ Thuật Access

• Trang chủ

  • Thủ Thuật Access
  • Trang chủ
•   Bật tắt ribbon trên form
  

  Viết bởi: changkhoonline77 26-07-13, 08:52 AM Chuyên mục: Forms - Bài trả lời (5)

• Mình dùng code Docmd.Showtoolbar "Ribbon", acToolBarNo để ẩn ribbon. Mình đặt ở form đầu tiên khi mở
  Mình muốn làm 1 button để bật tắt lệnh này thì làm như thế nào mọi người?
  


•   Ẩn/Hiển button của SubForm khi Click button trên MainForm
  

  Viết bởi: sorryikillyo 25-07-13, 03:38 PM Chuyên mục: Forms - Bài trả lời (7)

• Chào mọi người.
  
  Mình đã cố tìm trên diễn đàn về chủ đề này nhưng không thấy, nên xin đưa câu hỏi lên đây. Nếu các bạn có thấy chủ để tương tự, vui lòng chỉ mình đường Link để mình tham khảo.
  
  Mình có thiết kế MainForm và SubForm. Trên MainForm có cmdNutLenhA, trên SubForm có cmdNutLenhB
  
  Mình muốn khi mở MainForm lên, cmdNutLenhB sẽ bị mờ. Khi bấm cmdNutLenhA thì cmdNutLenhB sẽ sáng lên, bấm cmdNutLenhA lần nữa thì cmdNutLenhB sẽ mờ trở lại.
  
  Mình chỉ biết cách viết code làm ẩn/hiện nút lệnh ngay tại chính Form đó:
  
  Mã PHP:

  cmdNutLenhB.Enabled = False
'hoặc
cmdNutLenhB.Enabled = True 

  Còn thực hiện từ Main sang Sub mình không biết viết như thế nào. Mong các bạn giúp đỡ.
  


•   Tao form Login, bam OK dei ve chuong trinh thi lam sao day ???
  

  Viết bởi: thquanks 25-07-13, 12:30 PM Chuyên mục: Forms - Bài trả lời (5)

• Mình có Form Login
  
  Đã có 1 bảng:
  
  
  
  
  mã code:
  -------------------
  
  Option Compare Database
  Private intLogonAttempts As Integer
  
  Private Sub cboEmployee_NotInList(NewData As String, Response As Integer)
  MsgBox "Ban phai nhap dung 'User name' cua ban.", vbInformation, Me.Caption
  Response = acDataErrContinue
  
  End Sub
  
  Private Sub cmdCancel_Click()
  On Error GoTo Err_cmdCancel_Click
  DoCmd.Quit
  Exit_cmdCancel_Click:
  Exit Sub
  Err_cmdCancel_Click:
  MsgBox Err.Description
  Resume Exit_cmdCancel_Click
  End Sub
  
  Private Sub cmdLogin_Exit(Cancel As Integer)
  
  End Sub
  
  Private Sub Form_Open(Cancel As Integer)
  Me.cboEmployee.SetFocus
  End Sub
  
  Private Sub cboEmployee_AfterUpdate()
  txtstrAccess = DLookup("strAccess", "tblEmployees", "[lngEmpID]=" & Me.cboEmployee.Value)
  Me!txtUserName = Me!cboEmployee.Column(1)
  Me.txtPassword.SetFocus
  End Sub
  
  Private Sub cmdLogin_Click()
  If IsNull(Me.cboEmployee) Or Me.cboEmployee = "" Then
  MsgBox "Ban phai chon 'User Name' cua ban.", vbCritical, "User name"
  Me.cboEmployee.SetFocus
  Exit Sub
  End If
  If IsNull(Me.txtPassword) Or Me.txtPassword = "" Then
  MsgBox "Ban phai nhap mat khau cua ban vao o 'Password'.", vbCritical, "Nhap mat khau"
  Me.txtPassword.SetFocus
  Exit Sub
  End If
  If Me.txtPassword.Value = DLookup("strEmpPassword", "tblEmployees", "[lngEmpID]=" & Me.cboEmployee.Value) Then
  lngMyEmpID = Me.cboEmployee.Value
  MsgBox "Ban da dang nhap thanh cong...", vbOKOnly, "Dang nhap..."
  DoCmd.Close
  DoCmd.OpenForm "frmadmin"
  Me.Visible = False
  Else
  MsgBox "Mat khau khong dung. Vui long nhap lai.", vbExclamation, "Sai mat khau!"
  Me.txtPassword.SetFocus
  End If
  intLogonAttempts = intLogonAttempts + 1
  If intLogonAttempts > 2 Then
  MsgBox "Mat khau khong dung, chuong trinh se thoat. Vui long lien he voi Admin.", vbCritical, "Mat khau!"
  Application.Quit
  End If
  End Sub
  
  -----
  
  Để bấm OK về frmadmin chương trình thì ko về được >> HELP
  


•   Forms Login
  

  Viết bởi: danhxetnghiem 25-07-13, 12:02 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (9)

• Dạo này thấy trên diển đàn mọi người hay hỏi về forms login
  mình cũng tìm trên mạng về forms login, chia sẻ cho mọi người nhé.
  click vào đây để tải forms login
  tên đăng nhập: Admin
  mật khẩu: 123
  mật khẩu vào VBA: ladieskiller
  


•   Xin Được giúp đỡ Macro Tạo Enabled
  

  Viết bởi: lovevirus1 24-07-13, 10:19 PM Chuyên mục: Macro - Bài trả lời (2)

• Mình tạo 1 Macro để Enable nút Button1, mình hỏi chọn SetValue trong đó có
  Item và Expression nhưng mình không biết điền.
  Bạn nào có thể giúp mình với.Mac dinh nút ỏ Form1 đã Enable bang False. chi su dung khi Bật Form lên và sử dung Maro Name
  ^{U} thi no mởi bật nút Command0 lên
  
  VD :
  Item : [Forms]![Form1]![Command0].Enabled
  Expression : = "True"
  mà không đúng xin được giúp đỡ
  



Chủ đề Mới nhất

Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,345

Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 146

Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 160

Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 8,101

Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 182

Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 660

Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 186

Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 632

Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,615

TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 285




Diễn đàn Thống kê

» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ