Chào mừng, Khách
Bạn cần phải đăng ký trước khi bạn có thể đăng trên trang web của chúng tôi.

Tên người dùng
  

Mật khẩu
  





Diễn đàn Tìm kiếm

(Tìm kiếm nâng cao)

Diễn đàn Thống kê
» Thành viên: 3,411
» Thành viên mới nhất: turekish1
» Các chủ đề diễn đàn: 8,653
» Các bài viết diễn: 37,863

Thống kê đầy đủ

Thành viên online
Hiện đang có 37 người dùng trực tuyến.
» 0 Thành viên | 35 Khách
AhrefsBot, Bing

Chủ đề Mới nhất
Nhờ mọi người giúp Đóng g...
Chuyên mục: Forms
Đăng bởi lần cuối: ngochieu8109
Hôm qua, 11:15 AM
» Bài trả lời: 0
» Lượt xem: 29
Đóng gói bài access
Chuyên mục: Bài tập Access
Đăng bởi lần cuối: ngochieu8109
16-02-19, 11:29 PM
» Bài trả lời: 4
» Lượt xem: 701
Phần mềm Quản lý Thư viện...
Chuyên mục: Thư Viện Ứng Dụng
Đăng bởi lần cuối: ongke0711
16-02-19, 09:25 PM
» Bài trả lời: 2
» Lượt xem: 189
Co dãn report dùng can gr...
Chuyên mục: Report
Đăng bởi lần cuối: lewin260684
15-02-19, 03:34 PM
» Bài trả lời: 4
» Lượt xem: 245
Phần mềm quản lý thiết bị...
Chuyên mục: Thư Viện Ứng Dụng
Đăng bởi lần cuối: vietnc
15-02-19, 11:52 AM
» Bài trả lời: 10
» Lượt xem: 560
Quản lý văn bản điện tử q...
Chuyên mục: Thư Viện Ứng Dụng
Đăng bởi lần cuối: vietnc
15-02-19, 11:46 AM
» Bài trả lời: 134
» Lượt xem: 43,546
[Góc thơ] THAO THỨC
Chuyên mục: Góc Thơ
Đăng bởi lần cuối: Nguyễn Thành Sáng
15-02-19, 01:14 AM
» Bài trả lời: 841
» Lượt xem: 82,691
Cố định các cột ở subform...
Chuyên mục: Vấn đề chung
Đăng bởi lần cuối: Cuong Servenet
14-02-19, 05:10 PM
» Bài trả lời: 6
» Lượt xem: 217
Phần mềm quản lý công văn...
Chuyên mục: Share Code
Đăng bởi lần cuối: soluuhuong85
13-02-19, 03:28 PM
» Bài trả lời: 26
» Lượt xem: 9,494
[Shared Code] Quản lý the...
Chuyên mục: Share Code
Đăng bởi lần cuối: soluuhuong85
13-02-19, 03:24 PM
» Bài trả lời: 56
» Lượt xem: 10,598

 
  Office 2019
Viết bởi: tranthanhan1962 - 20-01-19, 01:42 AM - Chuyên mục: Thư Viện Giáo Trình - Không có hồi đáp

Lang thang trên mạng thấy giới thiệu offce 2019, tải về thấy chạy cũng OK nên giới thiệu cho mọi người
https://icongnghe.com/download-office-2019-full/

In mục này

  Demo Phần 2_Compact & Repaire Back End
Viết bởi: maidinhdan - 19-01-19, 04:45 PM - Chuyên mục: Thư viện thủ thuật - Bài trả lời (3)

Demo Phần 2 Compact & Repaire file Back End giúp làm giảm dung lượng file Back end
So Sánh với phần 1([Thủ Thuật] Demo_Compact & Repaire nhiều file Back End): Bẩy các lỗi phát sinh, và code gọi ngắn gọn hơn


Khả năng ứng dụng và Thông tin phần 2:
- Compact & Repaire file Back End trên chính file đó
- Compact & Repaire file Back End cho ra mộtfile mới ( giống như lệnh sao lưu backup), bạn có thể ứng dụng để sao lưu định kỳ dữ liệu hoặc phục hồi dữ liệu của bạn.

Khả năng tương thích; trên Access 2003 trở lên.
Hàm chính:

Mã PHP:
Public Function CompactFileKhac(DiaChiFileCanNen As StringOptional DiaChiFileDaNen As String ""Optional MatKhauFile As String "")
On Error GoTo Loi
Dim MaLoi 
As SingleTenLoi As String
    Dim objEngine 
As DAO.DBEngine
    Set objEngine 
Application.DBEngine

        DoCmd
.Hourglass True

      
' Compact CSDL hien tai DiaChiFileCanNen.
    If DiaChiFileDaNen = "" Or DiaChiFileDaNen = DiaChiFileCanNen Then
    MaLoi = 1
        DiaChiFileDaNen = Application.CurrentProject.Path & "\TaptinTam.MDB"


        If MatKhauFile = "" Then
            objEngine.CompactDatabase DiaChiFileCanNen, DiaChiFileDaNen
        Else
            objEngine.CompactDatabase DiaChiFileCanNen, DiaChiFileDaNen, , , ";pwd=" & MatKhauFile
        End If
        '
   Delete file Goc.
        Kill DiaChiFileCanNen
        
        
'   Doi ten File Da nen thanh file Goc.
        Name DiaChiFileDaNen As DiaChiFileCanNen
        
    ' 
Compact CSDL va xuat sang mot tap tin moi (DiaChiFileDaNen).
    Else
        If MatKhauFile "" Then
            objEngine
.CompactDatabase DiaChiFileCanNenDiaChiFileDaNen
        
Else
            objEngine.CompactDatabase DiaChiFileCanNenDiaChiFileDaNen, , , ";pwd=" MatKhauFile
        End 
If
    End If
    MsgBox "Da Compact xong file: " LaytenFile(DiaChiFileCanNen), vbInformation"Thông báo thanh cong"
KetThuc_Loi:
    DoCmd.Hourglass False
    Set objEngine 
Nothing
    
Exit Function
Loi:
    MaLoi Err.Number
    Debug
.Print MaLoi
    Select 
Case MaLoi
        
Case 3031TenLoi "Mat khau: [ " MatKhauFile " ]  khong chinh xac"
        Case 3204TenLoi "File nen: [ " DiaChiFileDaNen " ] dang ton tai, vui long xem lai"
        Case 3024TenLoi "File chon khong phai la file Access"
        Case Else: TenLoi "Chua xac dinh dc loi"
    End Select
    MsgBox 
"Nguyen nhan Loi: " TenLoivbCritical"Loi ham Compact and Repaire"
    Resume KetThuc_Loi
End 
Function 
Cú pháp gọi hàm:
Mã PHP:
CompactFileKhac "Địa chỉ file cần nén" 
hoặc file không có mật khẩu
Mã PHP:
CompactFileKhac "Địa chỉ file cần nén"Nz("Địa chỉ file đã nén với tên mới:"
hoặc file có mật khẩu
Mã PHP:
CompactFileKhac "Địa chỉ file cần nén", , Nz("Mật khẩu file cần nén"
hoặc công thức chung
Mã PHP:
CompactFileKhac "Địa chỉ file cần nén"Nz("Địa chỉ file đã nén với tên mới:"), Nz("Mật khẩu file cần nén"

Ghi chú:
- chữ Nz để phòng hờ bạn không điền dữ liệu nó sẽ lấy công thức đầu tiên để nén file
- Ô màu đỏ trong hình không cần nhập vào.

Hình minh họa[/b][/color]
[Hình: demoNenfileBackend2.png]

[b]Nếu cần nghiên cứu xin để lại Email.


Phần tiếp theo: Demo Compact & Repaire  liên quan đến file Front End trên Access 2003 và các phiên bản cao hơn.
Lý do: Access 2003 và các phiên bản cao hơn phải dùng những hàm khác nhau để thực hiện.
 
[/b]



File đính kèm
.zip   Demo_ComPactRepaire fil BackEnd_Phan 2(maidinhdan).zip (Kích cỡ: 18.55 KB / Tải về: 4)
In mục này

  Hỗ trợ các bạn Up ảnh lên trang web
Viết bởi: tranthanhan1962 - 17-01-19, 04:27 PM - Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (1)

Gận đây nhận thấy các nhiều bạn up ảnh lên bài bị lỗi. Trước giờ mình dùng trang web https://imgur.com/ để post ảnh lên forum cũng thấy OK nên làm bài này hỗ trợ các bạn.
Đầu tiên các bạn vào https://imgur.com/ 

[Hình: FjcbX9l.png]

Nếu bạn nào chưa có tài khoản thì chọn Sign up để đăng ký, nếu đã có tài khoản thì chọn Sign in để đăng nhập.
Sau khi đã đăng nhập thì chọn New post để up ảnh lên imgur
Khi chọn New post, imgur sẽ xuất hiện giao diện để bạn chọn ảnh từ máy tính hoặc ảnh trên trang web

[Hình: B9pVwu3.png]

Browse : mở thư mục để chọn ảnh.
- Cũng có thể kéo ảnh từ thư muc vào thẳng khung này để post ảnh
- Một cách khác các bạn có thể dán đường dẫn ảnh từ máy tính hoặc từ trang web vào khung Paste Image or URL cũng được.

[Hình: nXw5cE8.png]

Khi ảnh được pste lên xong, đưa trỏ chuột vào góc phải của ảnh, nó sẽ hiện lên một bản đen với các dòng chữ: Edit image, Get share links, Download image, Delete image.

[Hình: bpcYXAQ.png]

Để xử lý việc post ảnh lên trang web, chúng ta sẽ chọn Get share links. Một giao diện mở ra Chúng ta bấm vào nút Copy nơi BBCode (Forums).

[Hình: Fv3Zswm.png]

sau đó dán trực tiếp đoan mã vừa mới Copy vào bài viết trên forum là xong.
Trang web này, mình chưa thấy xóa ảnh của thành viên bao giờ, nên không sợ bị die

In mục này

  Thay đổi kiểu Cursor (con trỏ chuột) khi MouseMove
Viết bởi: ongke0711 - 17-01-19, 03:49 PM - Chuyên mục: Forms - Bài trả lời (5)

[Hình: 39808280713_de84977a1f_o.png]


Tôi có sưu tầm của một bạn về cách thay đổi con trỏ chuột (Cursor) khi có sự kiện MouseMove trên một Control nào đó (Command Button, Lable...).

Yêu cầu:
- Có file ảnh dạng cursor mà bạn thích và phải đổi tên là: Cursor.cur
- Lưu file cursor trên cùng thư mục file Access (.mdb, .accdb)
- Copy code này vào module:


Mã PHP:
Option Explicit

Public Const IDC_APPSTARTING 32650&
Public Const 
IDC_ARROW 32512&
Public Const 
IDC_CROSS 32515&
Public Const 
IDC_IBEAM 32513&
Public Const 
IDC_ICON 32641&
Public Const 
IDC_NO 32648&
Public Const 
IDC_SIZE 32640&
Public Const 
IDC_SIZEALL 32646&
Public Const 
IDC_SIZENESW 32643&
Public Const 
IDC_SIZENS 32645&
Public Const 
IDC_SIZENWSE 32642&
Public Const 
IDC_SIZEWE 32644&
Public Const 
IDC_UPARROW 32516&
Public Const 
IDC_WAIT 32514&

Declare Function 
LoadCursorBynum Lib "user32" Alias "LoadCursorA" _
 
(ByVal hInstance As LongByVal lpCursorName As Long) As Long

Declare Function LoadCursorFromFile Lib "user32" Alias _
 
"LoadCursorFromFileA" (ByVal lpFileName As String) As Long

Declare Function SetCursor Lib "user32" _
 
(ByVal hCursor As Long) As Long

Const curNAME "Cursor.cur"
Private mhCursor As Long
Private mstrCursorPath As String
Private Const ERR_INVALID_CURSOR vbObjectError 3333

Function MouseCursor(CursorType As Long)
 Dim lngRet As Long
 lngRet 
LoadCursorBynum(0&, CursorType)
 lngRet SetCursor(lngRet)
End Function

Function 
PointM(strPathToCursor As String)
   If mhCursor 0 Then
       mhCursor 
LoadCursorFromFile(strPathToCursor)
   End If
   Call SetCursor(mhCursor)
End Function

Public 
Sub GetCursor()
On Error GoTo ErrHandler
   If Len
(mstrCursorPath) = 0 Then
       mstrCursorPath 
CurrentDb.Name
       mstrCursorPath 
Left(mstrCursorPathInStr(mstrCursorPathDir(mstrCursorPath)) - 1)
       mstrCursorPath mstrCursorPath curNAME
       If Len
(Dir(mstrCursorPath)) = 0 Then
           mstrCursorPath 
vbNullString
       End 
If
   End If
   If Len(mstrCursorPath) = 0 Then
       Err
.Raise ERR_INVALID_CURSOR
   Else
       PointM 
(mstrCursorPath)
   End If
ExitHere:
   Exit Sub
ErrHandler
:
   With Err
       If 
.Number ERR_INVALID_CURSOR Then
           MsgBox 
"Error: " & .Number vbCrLf _
               
"Invalid Cursor type"_
               vbCritical 
Or vbOKOnly_
               
"Cursor Function"
       Else
           MsgBox 
"Error: " & .Number vbCrLf _
               
.Description_
               vbCritical 
Or vbOKOnly_
               
"Cursor Function"
       End If
   End With
   Resume ExitHere
End Sub 


Link demo: http://www.mediafire.com/file/7f8kqc7g8g7n1f8/Demo_ChangeCursor.rar/file

In mục này

  Cập nhật hàng loạt nội dung đã được Hyperlink
Viết bởi: mrtoanbin - 16-01-19, 11:16 PM - Chuyên mục: Table - Bài trả lời (8)

Xin chào các bác ạ!

Mình có một nhu cầu thế này không biết được không: Table mình đã nhập dữ liệu có 01 Filed kiểu Hyperlink, nội dung mình nhập hơi dài dòng. Giờ muốn cập nhật lại thành chữ ngắn gọn bất kỳ (ví dụ từ “Xem”) nhưng vẫn còn giữ được link đã liên kết. Như vậy có được không?

Mình đã làm thủ công nhập bình thường nhưng bị mất link phải làm lại từ đầu thì mắc công quá (500 record ạ)

Xin được chỉ giáo, cảm ơn ạ!


 

In mục này

Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ| PMA Nha Trang| Gỗ Acrylic Không Đường Line| Phần mềm quản lý bán hàng, công nợ- tồn kho- nhà phân phối