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,125
» Thành viên mới nhất: cuongdk
» Các chủ đề diễn đàn: 8,407
» Các bài viết diễn: 35,808

Thống kê đầy đủ

Thành viên online
Hiện đang có 16 người dùng trực tuyến.
» 1 Thành viên | 15 Khách
ongke0711

Chủ đề Mới nhất
ACCESS CÓ HÀM TƯƠNG TỰ SU...
Chuyên mục: Query
Đăng bởi lần cuối: ongke0711
24 Phút trước
» Bài trả lời: 3
» Lượt xem: 45
You cannot add or change ...
Chuyên mục: Forms
Đăng bởi lần cuối: ongke0711
11 Giờ trước
» Bài trả lời: 1
» Lượt xem: 30
Tạo query giống excel và ...
Chuyên mục: Query
Đăng bởi lần cuối: toidjtjmtoi
, 09:49 PM
» Bài trả lời: 6
» Lượt xem: 203
Phương thức findfirst
Chuyên mục: Forms
Đăng bởi lần cuối: ongke0711
, 08:52 PM
» Bài trả lời: 41
» Lượt xem: 1,743
In report từ dữ liệu hiện...
Chuyên mục: Report
Đăng bởi lần cuối: MTNQ
16-06-18, 10:25 AM
» Bài trả lời: 7
» Lượt xem: 327
Biểu mẫu thống kê theo mà...
Chuyên mục: Report
Đăng bởi lần cuối: DooHoaangPhuuc
16-06-18, 01:31 AM
» Bài trả lời: 4
» Lượt xem: 183
[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
16-06-18, 12:03 AM
» Bài trả lời: 668
» Lượt xem: 41,787
Kết nối dữ liệu từ cổng C...
Chuyên mục: Forms
Đăng bởi lần cuối: thanhtruong
15-06-18, 04:03 PM
» Bài trả lời: 2
» Lượt xem: 115
giúp tạo form on top all ...
Chuyên mục: Thư viện thủ thuật
Đăng bởi lần cuối: paulsteigel
14-06-18, 10:38 PM
» Bài trả lời: 2
» Lượt xem: 98
Trùng Mã số Autonumber
Chuyên mục: Table
Đăng bởi lần cuối: ongke0711
14-06-18, 01:17 PM
» Bài trả lời: 10
» Lượt xem: 422

 
  Nhập đường dẫn 1 file ảnh vào chương trình để lưu!
Viết bởi: Noname - 21-08-10, 11:25 AM - Chuyên mục: Thư viện thủ thuật - Bài trả lời (29)

Hôm nay tôi sẽ giới thiệu các bạn cách để nhập liệu đường dẫn ấy sao cho người dùng chỉ cần click chuột.
Trên form, bạn vẽ 1 textbox đặt tên là txtPic, một nút nhấn tên cmdInsertPic,1 đối tượng ảnh đặt tên là image
bạn phải tạo 1 funtcion để lấy về đường dẫn file ảnh

Chú ý, để sử dụng được các đối tượng có sẵn của Office, bạn phải khai báo sữ dụng thư viện Office bằng cách vào cửa sổ VBA, Menu Tool--> references, chọn Microsoft Office 11.0 library.
[Hình: OfficeLib.JPG]

Copy đoạn code hàm sau dán vào Module

Mã:
Function getFile(Tit As String, formatName As String, formatType As String)
    Dim dlgOpen As FileDialog
    Set dlgOpen = Application.FileDialog(msoFileDialogOpen)
    With dlgOpen
    .Title = Tit
    .Filters.Clear
    .Filters.Add formatName, formatType
    .AllowMultiSelect = False
    result = .Show
    If (result <> 0) Then
    getFile = Trim(dlgOpen.SelectedItems.Item(1))
    End If
    End With

    End Function


Bây giờ trong hành động click của nút nhấn, ta nhập đoạn code sau:

Code:

Mã:
Me![TxtPic] = GetFile("c:\", "Select the Picture File","*.jpg;*.bmp")
    Me![TxtPic] = LCase(Me![TxtPic])
    Me![Image].Picture = Me!TxtPic

Các bạn xem demo:Download

In mục này

  Xử lý multil select datasheet form.
Viết bởi: The Wind - 20-08-10, 03:02 PM - Chuyên mục: Forms - Bài trả lời (4)

Mình làm phiền bạn lần nữa ^^! sorry.
Mình có 1 subform datasheet (Form2)trên form main. vì vậy mình cần viết 1 nút delete record trên main với lệnh:

Mã:
Me.Form2.Form.Recordset.Delete
vấn đề sảy ra khi người dùng multi select record trên datasheet. với câu lệnh này sẽ phát sinh lỗi không thực hiện được.
Các sử lý của đa phần mọi người trong trường hợp này là viết dòng lệnh chỉ xóa record đầu tiên trong những record được chọn. Nhưng mình không thấy hướng dẫn nào trên mạng để làm được việc này.

Nomane có phương án, các sử lý nào thì giúp mình với!

In mục này

  Tự động tạo một đường viền cho report
Viết bởi: Noname - 20-08-10, 10:51 AM - Chuyên mục: Report - Bài trả lời (1)

Hỏi: Tôi muốn tạo một đường viền cho report giống như boder style của word khi in mà kô phải mất công kẻ bằng tay được ko?

Đáp:
Cho đoạn code sau vào report!

Mã:
Private Sub Report_Page()
           On Error Resume Next
             Me.DrawWidth = 6   ' do rong duong line
             Me.DrawStyle = 0   ' 0 den 6 => kieu duong mat dan
             ' Sử dụng công thức object.Line (x1, y1) - (x2,y2), color, [Box=B]
             Me.Line (0, 0)-(Me.ScaleWidth, Me.ScaleHeight), vbred, B
           End Sub

In mục này

  Thẻ Post hình bên trái bài viết ImgL
Viết bởi: Noname - 19-08-10, 03:05 PM - Chuyên mục: Chức năng diễn đàn - Bài trả lời (1)

Thẻ Post hình bên phải bài viết ImgL

Hỗ trợ người dùng post hình phía bên phải bài viết!
Phát Biểu

Mã:
[imgL]Link Hình [/imgL]

Hoặc tùy biến chiều cao hình
Mã:
[imgL h=chiều cao]Link Hình [/imgL]
Ví dụ:
Mã:
[imgL]http://i39.photobucket.com/albums/e193/duytuan2002/Linhtinh/285491040.jpg[/imgL]
Trong một trường mẫu giáo, thằng bé hỏi cô giáo: Cô ơi, con nít có bầu được không cô? Cô giáo nói: Con nít không có bầu được con ạ! Thằng bé quay sang con bé bên cạnh: Đó, cưng thấy chưa. Cứ lo lắng lung tung!


Kết quả là:

http://i39.photobucket.com/albums/e193/d...491040.jpg" imageanchor="1" style="clear: left; float: left; margin-bottom: 1em; margin-right: 1em;">http://i39.photobucket.com/albums/e193/d...491040.jpg" />
Trong một trường mẫu giáo, thằng bé hỏi cô giáo:
-Cô ơi, con nít có bầu được không cô?
Cô giáo nói:
-Con nít không có bầu được con ạ!
Thằng bé quay sang con bé bên cạnh:
- Đó, cưng thấy chưa. Cứ lo lắng lung tung!

In mục này

  Thẻ Post hình bên phải bài viết ImgR
Viết bởi: Noname - 19-08-10, 02:51 PM - Chuyên mục: Chức năng diễn đàn - Bài trả lời (4)

Thẻ Post hình bên phải bài viết ImgR

Hỗ trợ người dùng post hình phía bên phải bài viết!
Phát Biểu

Mã:
[imgR]Link Hình [/imgR]
Hoặc tùy biến chiều cao
Mã:
[imgR h=chiều cao]Link Hình [/imgR]
Ví dụ:
Mã:
[imgR]http://i39.photobucket.com/albums/e193/duytuan2002/Cat/12360332723119_yume_photo.jpg[/imgR]
Thuở trung nguyên kiếm hiệp.. 1 anh vớ được 1 quyển bí kíp võ công..anh giở ra và ngay trang đầu có ghi :
-nếu muốn học được môn võ này..người phải thiến.. Vì khao khát muốn được làm minh chủ võ lâm..anh ta chấp nhận.. Sau khi thiến xong giở trang sau thì có ghi tiếp : nhưng không thiến thì cũng cũng không sao.. ...Về sau môn võ này được lưu truyền với cái tên “uất ức thần chưởng “


Kết quả là:

http://i39.photobucket.com/albums/e193/d..._photo.jpg" imageanchor="1" style="clear: right; float: right; margin-bottom: 1em; margin-left: 1em;">http://i39.photobucket.com/albums/e193/d..._photo.jpg" />

Thuở trung nguyên kiếm hiệp.. 1 anh vớ được 1 quyển bí kíp võ công..anh giở ra và ngay trang đầu có ghi :
- nếu muốn học được môn võ này..người phải thiến..

Vì khao khát muốn được làm minh chủ võ lâm..anh ta chấp nhận..
Sau khi thiến xong giở trang sau thì có ghi tiếp :
-nhưng không thiến thì cũng cũng không sao.. ...

Về sau môn võ này được lưu truyền với cái tên “uất ức thần chưởng “

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