Tùy chọn
Thủ Thuật Access
-
Trang chủ
|
Viết bởi: Noname 05-03-12, 03:27 AM Chuyên mục: Góc MyBB - Không có hồi đáp |
Adnan TOPAL
Cài đặt:
- Backup file portal.php
Chép toàn bộ mục upload lên thư mục cài forum của bạn.
Vào:
http://Đường dẫn forum của bạn/portal/install/index.php.
(ví dụ như của mình: http://thuthuataccess/forum/portal/install/index.php.)
Theo các bước nó yêu cầu.
Xong đâu đấy, vào: http://Đường dẫn forum của bạn/portal.php (ex: http://thuthuataccess/forum/portal.php) và hưởng thành quả.
Bạn có thể tùy chỉnh nhiều điều trong ACP=>Pro Portal
ProPortal có có công cụ tạo page với template diễn đàn, và page có link dạng sau:
/portal.php?pages=tênpage
Bạn có thể chỉnh file .htaccess dẫn tới các trang này cho thân thiện:
Mã:
RewriteRule ^page-([0-9A-Za-z]+)\.html$ portal.php?pages=$1 [L,QSA]Uninstall
Để Uninstall, bạn nhớ backup database trước.
vào host tìm tới thư mục cài đặt portal. Xóa file lock.
Sau đó vào trình duyệt web, tìm tới mục install, theo wizard của nó hướng dẫn. Và chỉ việc remove portal ra khỏi host. Chép file portal.php mặc định của mybb lên lại là ok.
Các bạn có thể tham khảo thêm về những thủ thuật gán block cho portal ở đây
http://community.mybb.com/thread-63463.html
Tuy nhiên không thể thảo luận gì về nó vì file gốc và chủ đề bị xóa và bị khóa!
Linkdown Backup:
http://dl.dropbox.com/u/14777478/sharedi...%201.0.zip
|
Viết bởi: 025777 05-03-12, 12:39 AM Chuyên mục: Thủ thuật VBA - Bài trả lời (1) |
Vấn đề xảy ra là :
- khi cboThang = 1 thì mọi thứ ok
- Khi chỉ muốn xem tháng 2, 3, 4, ... (cboThang = 2,3,4, ...) thì query vẫn chọn các hợp đồng trong tháng 1, ,mặc dù đã có điều kiện chặn dưới (tblHopDong.Ngay)>=CDate([Forms]![frmXemKQKD]![cboThang] & '/01/' & [Forms]![frmXemKQKD]![cboNam])
- Điều này không xảy ra khi mình build bằng query design. Nhưng nếu copy đoạn SQL của query các tháng sau vào VBA thì vẫn không sử dụng được điều kiện chặn dưới.
Nhờ các cao thủ xem vấn đề của đoạn code ở đâu.
Sry, do mới tự học Access nên đoạn code hơi gà, rối rắm.
Thx
Trích dẫn:Private Sub cmdXemKQ_Click()
Dim chk As Integer
Dim db As Database
Dim qdf As QueryDef
Dim strSQL As String
Dim strDateFrom As String
Dim strDateTo As String
Dim RevMonth As Double
Dim RevPeriod As Double
Dim ProfitMonth As Double
Dim CostMonth As Double
Dim CostPeriod As Double
Dim ProfitPeriod As Double
Dim dte As Date
Set db = CurrentDb
'Kiem tra loai bao cao
If cboChonBaoCao.Value = "Báo cáo KQKD" Then chk = 1
If cboChon.Value = "Báo cáo l??ng" Then chk = 2
If cboChon.Value = "Báo cáo b?o hi?m" Then chk = 3
If cboChon.Value = "Báo cáo thu? TNCN" Then chk = 4
Select Case chk
Case 1
Set qdf = db.QueryDefs("qryXemKQKD")
'Xem 1 NV theo thang
If cboChon = "Cá nhân" Then
If optGiaiDoan.Value = False Then
If IsNull(cboThang) Or IsNull(cboNam) Or IsNull(txtMaNV) Then
MsgBox "Ban chua chon du thong tin "
Exit Sub
Else
Select Case cboThang
Case "1", "3", "5", "7", "8", "10", "12"
strSQL = "SELECT tblHopDong.MaNV, tblNhanVien.HoTen, tblHopDong.Ngay, tblHopDong.CongTY, tblHopDong.HopDongID, tblHopDong.DoanhThu, tblHopDong.ChiPhi, tblHopDong.LoiNhuan, tblHopDong.ThanhToan, DSum('DoanhThu','tblHopDong','[MaNV] = Forms![frmXemKQKD]![cboMaNV] and [Ngay]>= CDate([Forms]![frmXemKQKD]![cboThang] & '/01/' & [Forms]![frmXemKQKD]![cboNam]) And [Ngay] <=CDate([Forms]![frmXemKQKD]![cboThang] & '/31/' & [Forms]![frmXemKQKD]![cboNam])') AS TongDT, DSum('ChiPhi','tblHopDong','[MaNV] = Forms![frmXemKQKD]![cboMaNV] and [Ngay]>= CDate([Forms]![frmXemKQKD]![cboThang] & '/01/' & [Forms]![frmXemKQKD]![cboNam]) And [Ngay] <=CDate([Forms]![frmXemKQKD]![cboThang] & '/31/' & [Forms]![frmXemKQKD]![cboNam])') AS TongCP, [TongDT]-[TongCP] AS TongLN FROM tblNhanVien INNER JOIN tblHopDong ON tblNhanVien.MaNV = tblHopDong.MaNV WHERE (((tblHopDong.MaNV)=[Forms]![frmXemKQKD]![cboMaNV])" & _
"AND ((tblHopDong.Ngay)>=CDate([Forms]![frmXemKQKD]![cboThang] & '/01/' & [Forms]![frmXemKQKD]![cboNam])) AND ((tblHopDong.Ngay)<=CDate([Forms]![frmXemKQKD]![cboThang] & '/31/' & [Forms]![frmXemKQKD]![cboNam])));"
qdf.SQL = strSQL
DoCmd.OpenReport "rptXemKQKDThang", acViewPreview
Case "2"
strSQL = "SELECT tblHopDong.MaNV, tblNhanVien.HoTen, tblHopDong.Ngay, tblHopDong.HopDongID, tblHopDong.DoanhThu, tblHopDong.ChiPhi, tblHopDong.LoiNhuan, tblHopDong.ThanhToan, DSum('DoanhThu','tblHopDong','[MaNV] = Forms![frmXemKQKD]![cboMaNV] and [Ngay]>= CDate([Forms]![frmXemKQKD]![cboThang] & '/01/' & [Forms]![frmXemKQKD]![cboNam]) And [Ngay] <=CDate([Forms]![frmXemKQKD]![cboThang] & '/28/' & [Forms]![frmXemKQKD]![cboNam])') AS TongDT, DSum('ChiPhi','tblHopDong','[MaNV] = Forms![frmXemKQKD]![cboMaNV] and [Ngay]>= CDate([Forms]![frmXemKQKD]![cboThang] & '/01/' & [Forms]![frmXemKQKD]![cboNam]) And [Ngay] <=CDate([Forms]![frmXemKQKD]![cboThang] & '/28/' & [Forms]![frmXemKQKD]![cboNam])') AS TongCP, [TongDT]-[TongCP] AS TongLN, tblHopDong.CongTy FROM tblNhanVien INNER JOIN tblHopDong ON tblNhanVien.MaNV = tblHopDong.MaNV WHERE (((tblHopDong.MaNV)=[Forms]![frmXemKQKD]![cboMaNV])" & _
"AND ((tblHopDong.Ngay)>=CDate([Forms]![frmXemKQKD]![cboThang] & '/01/' & [Forms]![frmXemKQKD]![cboNam]) And (tblHopDong.Ngay)<=CDate([Forms]![frmXemKQKD]![cboThang] & '/28/' & [Forms]![frmXemKQKD]![cboNam])));"
qdf.SQL = strSQL
DoCmd.OpenReport "rptXemKQKDThang", acViewPreview
Case "4", "6", "9", "11"
strSQL = "SELECT tblHopDong.MaNV, tblNhanVien.HoTen, tblHopDong.Ngay, tblHopDong.CongTY, tblHopDong.HopDongID, tblHopDong.DoanhThu, tblHopDong.ChiPhi, tblHopDong.LoiNhuan, tblHopDong.ThanhToan, DSum('DoanhThu','tblHopDong','[MaNV] = Forms![frmXemKQKD]![cboMaNV] and [Ngay]>= CDate([Forms]![frmXemKQKD]![cboThang] & '/01/' & [Forms]![frmXemKQKD]![cboNam]) And [Ngay] <=CDate([Forms]![frmXemKQKD]![cboThang] & '/30/' & [Forms]![frmXemKQKD]![cboNam])') AS TongDT, DSum('ChiPhi','tblHopDong','[MaNV] = Forms![frmXemKQKD]![cboMaNV] and [Ngay]>= CDate([Forms]![frmXemKQKD]![cboThang] & '/01/' & [Forms]![frmXemKQKD]![cboNam]) And [Ngay] <=CDate([Forms]![frmXemKQKD]![cboThang] & '/30/' & [Forms]![frmXemKQKD]![cboNam])') AS TongCP, [TongDT]-[TongCP] AS TongLN FROM tblNhanVien INNER JOIN tblHopDong ON tblNhanVien.MaNV = tblHopDong.MaNV WHERE (((tblHopDong.MaNV)=[Forms]![frmXemKQKD]![cboMaNV])" & _
"AND ((tblHopDong.Ngay)>=CDate([Forms]![frmXemKQKD]![cboThang] & '/01/' & [Forms]![frmXemKQKD]![cboNam])) AND ((tblHopDong.Ngay)<=CDate([Forms]![frmXemKQKD]![cboThang] & '/30/' & [Forms]![frmXemKQKD]![cboNam])));"
qdf.SQL = strSQL
DoCmd.OpenReport "rptXemKQKDThang", acViewPreview
End Select
End If
End If
End If
End Select
End Sub
|
|
Viết bởi: yuky.alone 04-03-12, 02:35 PM Chuyên mục: Forms - Bài trả lời (2) |
Nay mình lập 2pic này mong được các bạn trong diễn đàn giúp mình các câu hói sau ( tại vì thứ 3 phải nộp mong mọi người dành chút thời gian )
1. Tạo form đặt tên Form2A dạng MAIN/SUB Form như hình sau , trong đó nút xóa có hiện MsgBox cảnh báo tiếng việt trước khi xóa.
2. Tạo Form2B như hình :
- Khi click vào nút "Mở Form2A" thì Form2A được mở.
- Khi click vào nút "NHÂN VIÊN" thì bảng NHANVIEN được mở lên.
- Khi click vào nút "INTERNET" thì ứng dụng INTERNET được mở lên.
- Khi click vào nút "THOÁT" thì đóng Form lại.
nhờ các bạn làm dùm mình ( các bạn làm thằng vào file của mình nha sau đó post lại file có phần bài làm lại dùm mình ) mình cám ơn
|
|
Viết bởi: meohenmiao 03-03-12, 02:41 PM Chuyên mục: Forms - Bài trả lời (6) |
![[Hình: sieuthiNHANH201203036209yjhjyzu2yz12016_1.jpeg]](http://upnhanh.sieuthinhanh.com/tmpimages/images/sieuthiNHANH201203036209yjhjyzu2yz12016_1.jpeg)
Nghĩa là khi mình bấm vào một dòng thì nó sẽ bôi đen cả dòng luôn, và khi mình bấm đúp vào nó sẽ mở ra một form khác?
|
|
Viết bởi: nghiazboy 03-03-12, 10:47 AM Chuyên mục: Thư Viện Ứng Dụng - Bài trả lời (7) |
![[Hình: 2894739f4a625ba4be8886ebd0fb6b9a_41525650.loi.jpg]](http://nj0.upanh.com/b1.s13.d5/2894739f4a625ba4be8886ebd0fb6b9a_41525650.loi.jpg)
| 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,890 |
| 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: 162 |
| Đồ 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: 596 |
| 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: 530 |
| 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 đủ |