• 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ủ
•   không thể chạy update query ?
  

  Viết bởi: darkmoon 31-12-11, 05:07 PM Chuyên mục: Query - Bài trả lời (2)

• Mình có 2 table:
  Table1: Mã 1, .....
  Table2: Mã 2,.....Mã 1
  (Table 1 và 2 quan hệ 1-n qua mã 1)
  
  Khi mình chạy form (không có record source), trong đó các field của Form được thiết kế giống table 2, mình sửa Mã 1 của form là rỗng và thực hiện update từ Form vào table 2 thì báo lỗi.
  Nếu mình xóa quan hệ của table 1 và table 2 đi thì không còn báo lỗi nữa.
  
  Mình phải làm sao để không phải xóa relationship đi mà vẫn có thể update được từ form vào table 2 ?
  
  Thanks./.
  


•   Làm sao xóa tất cả dữ liệu của Form ?
  

  Viết bởi: darkmoon 31-12-11, 03:44 PM Chuyên mục: Forms - Bài trả lời (3)

• Mình muốn xóa tất cả dữ liệu đang hiển thị trên form thì phải làm sao ? Thay vì cứ phải gõ từng dòng lệnh me.Field1.value ="",...
  
  Xin cám ơn.
  
  


•   Gỡ password protect sheet bằng VBA
  

  Viết bởi: Noname 30-12-11, 05:28 PM Chuyên mục: Ms Excel - Bài trả lời (2)

• Cách làm trong Excel 2007/2010 như sau: bấm Alt + F11 để hiện ra bảng Visual Basic Editor rồi sau đó thực hiện theo bước 3 như phía dưới.
  
  Cách làm trong Excel 2003 như sau:
  1. Mở file Excel có chứa các Sheet có pass
  2 Chọn menu Tools -> Macro -> Visual Basic Editor
  3 Nhấp đúp vào Sheet mà bạn muốn phá pass
  
  Nếu bạn chưa thấy các Sheet bên phía trái của màn hình thì bấm: Ctrl + R để hiện các Sheet.
  
  ( Nhiều máy khi bấm Alt + F11 thì không thấy cửa sổ bên trái hiện các Sheet )
  
  4. Copy đoạn mã sau vào và nhấn menu Run -> Run Sub/UserForm
  
  5. Máy hỏi bạn có muốn CHƠI nó không ? Nếu muốn bấm YES
  
  6. Bạn chờ một lúc máy sẽ phá Pass cho bạn. Có thông báo sau khi phá Pass
  
  
  Sao mà ghét cái thằng nào nó . . . không muốn chia sẻ thông tin cho người khác ghê.
  
  
  
  Mã:

  Sub PasswordBreaker() If ActiveSheet.ProtectContents = False Then MsgBox "Sheet '" & ActiveSheet.Name & "' is unprotected!", vbInformation Else If MsgBox("Sheet '" & ActiveSheet.Name & "' is protected, do you want to unprotect it?", _ vbYesNo + vbQuestion, "Unprotect Active Sheet") = vbNo Then Exit Sub Dim i As Integer, j As Integer, k As Integer Dim l As Integer, m As Integer, n As Integer Dim i1 As Integer, i2 As Integer, i3 As Integer Dim i4 As Integer, i5 As Integer, i6 As Integer On Error Resume Next For i = 65 To 66: For j = 65 To 66: For k = 65 To 66 For l = 65 To 66: For m = 65 To 66: For i1 = 65 To 66 For i2 = 65 To 66: For i3 = 65 To 66: For i4 = 65 To 66 For i5 = 65 To 66: For i6 = 65 To 66: For n = 32 To 126 ActiveSheet.Unprotect Chr(i) & Chr(j) & Chr(k) & _ Chr(l) & Chr(m) & Chr(i1) & Chr(i2) & Chr(i3) & _ Chr(i4) & Chr(i5) & Chr(i6) & Chr(n) Next: Next: Next: Next: Next: Next Next: Next: Next: Next: Next: Next If ActiveSheet.ProtectContents = False Then MsgBox "Sheet '" & ActiveSheet.Name & "' is unprotected!", vbInformation End If End Sub
  
  Nguồn: http://tranhung.vnweblogs.com
  


•   Update table từ query ?
  

  Viết bởi: darkmoon 30-12-11, 02:15 PM Chuyên mục: Query - Bài trả lời (2)

• Mình không thể update 1 table từ 1 query được. Nó toàn báo lỗi "Operation must use an updateable query"
  
  Query1 có cấu trúc vầy:
  
  Mã:

  SELECT Left(tblSoDuTaiKhoan.MaTaiKhoan,Len([Forms]![frmSoDuTaiKhoan]![MaTaiKhoan])-1) AS MaTaiKhoan, Sum(tblSoDuTaiKhoan.DuNo) AS DuNo FROM tblSoDuTaiKhoan GROUP BY Left([tblSoDuTaiKhoan].[MaTaiKhoan],Len([Forms]![frmSoDuTaiKhoan]![MaTaiKhoan])-1), Len([tblSoDuTaiKhoan].[MaTaiKhoan]) HAVING (((Left([tblSoDuTaiKhoan].[MaTaiKhoan],Len([Forms]![frmSoDuTaiKhoan]![MaTaiKhoan])-1))=Left([Forms]![frmSoDuTaiKhoan]![MaTaiKhoan],Len([Forms]![frmSoDuTaiKhoan]![MaTaiKhoan])-1)) AND ((Len([tblSoDuTaiKhoan].[MaTaiKhoan]))>Len([Forms]![frmSoDuTaiKhoan]![MaTaiKhoan])-1));
  
  Update query:
  
  Mã:

  UPDATE tblSoDuTaiKhoan INNER JOIN Query1 ON tblSoDuTaiKhoan.MaTaiKhoan=Query1.MaTaiKhoan SET tblSoDuTaiKhoan.DuNo = Query1.DuNo;
  
  Xin cám ơn.
  


•   Điều Chỉnh Kết Quả
  

  Viết bởi: pmtandhqn 30-12-11, 11:58 AM Chuyên mục: Query - Bài trả lời (2)

• Em đang làm CSDL quản lí sinh viên, em tạo một query tính điểm trung bình với các trường Mã SV, Họ Và Tên trong bảng SV, các trường Điểm Môn 1, Điểm Môn 2, Điểm Môn 3 trong bảng DIEM...tạo thêm một trường tính điểm trung bình thì nhiều lúc ra toàn số lẻ sau dấu phẩy rất nhiều. Bây giờ em muốn nó làm tròn sau dấu phẩy 1 số thôi thì phải làm sao. Cảm ơn mọi người.
  



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

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

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

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

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

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

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

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

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

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




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