• 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ủ
•   cơ sở dữ liệu QL Quán Karaoke
  

  Viết bởi: hieucntt 02-07-12, 08:25 AM Chuyên mục: Table - Bài trả lời (1)

• Chào các anh và các bạn.
  Mình đang làm báo cáo kết thức môn về đề tài QL Quán karaoke, nhưng mà mới chit thiết kế được database không biết có đúng ko nữa, vì Thầy này chấm database trước, đúng thì mới chấm tiếp các phần còn lại.
  Mong các anh và các bạn xem dùm mình link kèm theo, có gì sai hướng dẫn giúp nhé.
  
  Link: QLQuanKaraoke
  
  Thank ALL!!!
  


• huong dan tạo form dang nhap co phan quyen
  

  Viết bởi: cuongvan09 01-07-12, 03:17 PM Chuyên mục: Forms - Bài trả lời (2)

• mấy bác ơi xin hướng dẫn và hỗ trợ e làm cái form dang nhập có phân quyền với, tình hình là e muốn khi mình đăng nhập với tên user này và password này với quyền này thì sẽ mở lên form này còn đăng nhập với tên user này và pass này với quyền này thì mở form khác ah, e có tạo cái table user gồm có 4 trường ah: id, tên user, password và quyền, mong mấy bác giúp đỡ và hỗ trợ e với, mấy bác download bài của e về coi và hỗ trợ e với, em xin cảm ơn nhiều ah, e có tham khảo tất cả các bài trong forum hết rồi mà ko có bài nào làm đc vấn đề nay ah, e mong các bác giúp và hỗ trợ cho e với
  đây là link bài của e ah
  http://maxup.vn/tai-ve/q28vr8cr6fkqkxj/d...3.mdb.html
  Cry_smileCry_smileCry_smileCry_smile
  


•   Khôi phục lại table đã vô tình xóa
  

  Viết bởi: Xuân Thanh 01-07-12, 12:17 PM Chuyên mục: Thư viện thủ thuật - Không có hồi đáp

• Đã có khi nào bạn vô tình xóa một table? Và bạn không có dự phòng? Có một cách bạn có thể khôi phục lại nó nếu bạn chưa xóa thêm một table khác hoặc bạn chưa đóng cơ sở dữ liệu của bạn. Bằng thủ thuật sau đây, bạn có thể chèn tất cả các trường của bảng đã xóa vào một bảng mới
  
  
  Mã:

  Function Undo() Dim db As DAO.Database, strTablename As String Dim i As Integer, StrSqlString As String Set db = CurrentDb() For i = 0 To db.TableDefs.Count - 1 If Left(db.TableDefs(i).Name, 4) = "~tmp" Then strTablename = db.TableDefs(i).Name StrSqlString = "SELECT DISTINCTROW [" & strTablename & _ "].* INTO MyUndeletedTable FROM [" & strTablename & "];" DoCmd.SetWarnings False DoCmd.RunSQL StrSqlString DoCmd.SetWarnings True MsgBox "A table has been restored as MyUndeletedTable", _ vbOKOnly, "Restored" GoTo Exit_Undo End If Next i MsgBox "No Recoverable Tables Found", vbOKOnly, "Not Found" Exit_Undo: Set db = Nothing Exit Function Err_Undo: MsgBox Err.Description Resume Exit_Undo End Function
  
  Lưu ý : Phải bổ sung thư viện DAO trong cửa sổ VBA bạn nhé, nếu không sẽ bị lổi đấy
  Thân mến
  


•   Hàm Work_Days để tính thời gian làm việc giữa BegDate và EndDate
  

  Viết bởi: Xuân Thanh 01-07-12, 11:58 AM Chuyên mục: Thư Viện Hàm - Bài trả lời (1)

• Mã:

  Function Work_Days(BegDate As Variant, EndDate As Variant) As Long Dim WholeWeeks As Variant Dim DateCnt As Variant Dim EndDays As Integer On Error GoTo Err_Work_Days BegDate = DateValue(BegDate) EndDate = DateValue(EndDate) WholeWeeks = DateDiff("w", BegDate, EndDate) DateCnt = DateAdd("ww", WholeWeeks, BegDate) EndDays = 0 Do While DateCnt <= EndDate If Format(DateCnt, "ddd") <> "Sun" And _ Format(DateCnt, "ddd") <> "Sat" Then EndDays = EndDays + 1 End If DateCnt = DateAdd("d", 1, DateCnt) Loop Work_Days = WholeWeeks * 5 + EndDays Exit Function Err_Work_Days: If Err.Number = 94 Then Work_Days = 0 Exit Function Else MsgBox "Error " & Err.Number & ": " & Err.Description End If End Function
  
  P/S : Hàm tính cho một tuần làm việc 5 ngày, trừ thứ 7 và chủ nhật. Các bạn tự chế lại theo yêu cầu sử dụng
  Thân mến
  


•   Ngăn chặn không cho Access tự động lưu record
  

  Viết bởi: Xuân Thanh 01-07-12, 11:46 AM Chuyên mục: Thư viện thủ thuật - Bài trả lời (17)

• Chúng ta biết rằng Access luôn tự động lưu lại các record mỗi khi ta nhập mới hoặc sửa đổi. Để ngăn không cho access tự động lưu, muốn lưu phải hỏi trước, nếu đồng ý thì lưu, nếu không thì undo lại giá trị trước khi thay đổi, ta dùng thủ thuật sau của sự kiện BeforeUpdate của form
  
  
  Mã:

  Private Sub Form_BeforeUpdate(Cancel As Integer) 'If the form data has changed a message is shown asking if 'the changes should be saved. If the answer is no then 'the changes are undone On Error GoTo BeforeUpdate_Error If Me.Dirty Then 'if record has been changed the dirty property 'is set to true Display message to save the record If MsgBox("The record has changed - do you want to save it?", _ vbYesNo + vbQuestion, "Save Changes") = vbNo Then Me.Undo End If End If BeforeUpdate_Exit: Exit Sub BeforeUpdate_Error: MsgBox Err.Description Resume BeforeUpdate_Exit End Sub
  
  



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,315

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: 133

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: 150

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: 7,913

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: 170

Đồ 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: 613

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: 178

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: 562

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,598

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: 275




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 đủ