Thủ Thuật Access - Macro

In nhiều record cùng lúc

Thu, 04 Jan 2024 02:21:41 +0000

Mình có thể in 1 record thành file pdf với nút lệnh Print (mình có để trong file mẫu đó)
nhưng nút lệnh chỉ in ra duy nhất 1 record hiện hành
mình không biết làm sao để in ra toàn bộ record trong ngày
ý mình là sau 1 ngày làm việc thì mình có thể in ra những record có trong ngày làm việc đó
như ngày đó mình có 5 khách thì mình sẽ có 5 file pdf, nhưng chỉ ấn in 1 lần thui
chứ ấn in từng record khá là mợt, nhỡ có 50 khách chắc hư chuột lun quá
Mong mọi người giúp đỡ, cảm ơn mọi người.

Link của mình đây: https://www.mediafire.com/file/u099ayf5e...accdb/file

Tạo thư mục bằng nút lệnh trong Access

Thu, 28 Dec 2023 11:29:18 +0000

Hi mọi người
Mình định tạo một nút lệnh trong Form mà khi bấm vào thì nút lệnh đó có thể tự động tạo ra một thư mục mới trên máy
tên của thư mục mới là tên của một trường trong Table
ý mình là ví dụ mình có trường là tên của khách hàng, như người khách hàng tên Trần Văn Đào chẳng hạn
thì khi mình ấn nút lệnh đó, một thư mục mới sẽ được tạo ra trên máy với tên là Trần Văn Đào
mình thử dùng đoạn mã
MkDir "D:\Tên khách hàng"
thì nó chỉ tạo ra một thư mục với tên là Tên khách hàng
Mình tìm hoài ko ra cách, mong mọi người giúp đỡ, cảm ơn mọi người.

Office 2016 có chạy được các file .mdb không?

Tue, 25 Apr 2023 03:00:57 +0000

Cho minh hỏi này với.
Khi xưa mình tạo 1 phần mềm hồi mà còn office 2003 là file .mdb
sau đó có office 2010, mình chuyển qua 2010, nhưng có một số cái bị lỗi, nên đành phải cài lại 2003 để file chuyển qua 2010 này mới chạy được - -> nên máy tính có 2 phiên bản office 2003 và 2010

giờ mình gở hết các phiên bản, cài 1 office 2016 thì liệu các code viết hồi 2003 có bị lỗi hay không? phần mềm có hoạt động trôi chảy không.

Vì hiện tại mình đã cài mà chưa thấy xảy ra lỗi gì?

Xin mọi người cho ý kiến về phiên bản 2016 này

Câu lệnh If then trong điều kiện có sử dụng hàm and

Sat, 17 Jul 2021 10:36:32 +0000

Em có bảng Chi đoàn (năm học, mã chi đoàn). Năm học và mã chi đoàn là khóa chính
Thực hiện chức năng thêm, sau đó bấm lưu để lưu lại
Trong chức năng lưu em có viết câu lệnh kiểm tra năm học và mã chi đoàn có hay chưa. Nếu có báo nhập lại, ngược lại thì lưu
VD: Nhập Năm học 2019-2020 , mã chi đoàn 10A7
Nếu nhập tiếp 2019-2020, mã chi đoàn 10A8 thì lưu, nhưng nếu nhập 2019-2020, mã chi đoàn 10A7 thì báo nhập lại
Nhờ các anh em chỉ giùm em câu lệnh And trong If viết như vậy sai như thế nào

Private Sub Luu_Click()
If IsNull(Namhoc) = True Then
MsgBox "Ban phai nhap nam hoc"
Namhoc.SetFocus
Exit Sub
End If
If IsNull(Macd) = True Then
MsgBox "Ban phai nhap ma chi doan"
Macd.SetFocus
Else
If (DCount("Macd", "ChiDoan", "Macd='" & Macd & "'") = 1) And (DCount("Namhoc", "ChiDoan", "Namhoc='" & Namhoc & "'") = 1) Then
MsgBox "Trong nam hoc ma chi doan da co. Vui long nhap lai"
Macd.SetFocus
Else
DoCmd.RunCommand acCmdSaveRecord
ListCD.Requery
End If
End If
End Sub

lỗi "enter parameter value" Marco

Mon, 05 Jul 2021 08:09:27 +0000

Chúc mọi người một tuần làm việc hiệu quả.

Hiện tại e đang viết marco cho cột [Contact Name] trong form [CONTACTQRsubform]
Khi thao tác kích chọn tên trong cột [Contact Name] thì form [CONTACT-FORM] hiện lên với đầy đủ thông tin.

Lỗi: viết marco xong nhưng khi kích thì hiện lỗi "enter parameter value" ID. mọi ng chỉ giúp em đây là lỗi gì với ạ

Marco:

SetTempVar
Name: temcontact
Expression: [ID]
OpenForm
Form Name: CONTACT-FORM
View:form
Filter Name:
Where Condition=: [ID]=[TempVars]!temcontact
Data Mode: Edit
window Mode: Normal

https://drive.google.com/file/d/1S7ktkm8...sp=sharing

Tạo Macro tô màu cho Texbox

Tue, 25 Aug 2020 09:27:43 +0000

Nhờ các anh giúp đỡ.
Form F_congvandi : em lưu thì những textbox còn thiếu thì tô màu .
Nhờ anh xem giúp e Form timtungaydenngay thì e nhập ngày vào tìm không ra, bắt nhập tháng trước, ngày sau thì ra.
Nhờ các anh xem giúp e.
Em rất cám ơn.

https://drive.google.com/file/d/11SOWjHm...sp=sharing

Không hiểu Macro này và không làm theo được

Mon, 03 Feb 2020 06:25:14 +0000

Mình có đọc 1 quyển sách bảo tạo Macro này
Macro Name: Keyf2
Action : SendKeys
Arguments: Keystrokes[F2]
wait:NO
Xin cho hỏi Macro này có tác dụng gì vậy?
Và làm theo không được. Nhờ mọi người giúp mình vơí.

Tạo Thông báo "Chưa nhập dữ liệu khóa chính"

Sun, 17 Nov 2019 06:30:19 +0000

Như tiêu đề. Mình có 1 Form dữ liệu. Trong đó có 1 Textbox khóa chính. Mình muốn khi người dùng nhập thiếu Dữ liệu khóa chính thì sẽ có thông báo, thì viết Macro thế nào anh em. Xin cảm ơn nhiều ạ!

Hệ thống lỗi: Unrecognized Database Format

Fri, 02 Feb 2018 07:25:28 +0000

hi cả nhà. Hệ thống đáng sử dụng ngon, tự dựng bị lỗi này: Unrecognized Database Format. Không biết tại sao lại bị vậy và cách giải quyết nó như nào. nhờ mọi người giúp với. Tìm trên google thì họ nói do version. hiện tại phòng ban mình đều sử dụng access 2013. cám ơn mọi người trước

tự động thực hiện sub khi mở File

Mon, 16 Oct 2017 03:43:30 +0000

xin chào các bạn, mình có một vấn đề như sau, mình muốn thể hiện 1 câu thông báo khi vừa mở file access lên, mình biết có thể để trong sự kiện Form_Load của form cài đặt startUp, nhưng mình muốn hỏi thêm là có thủ tục nào viết trong module mà tự khởi chạy không, giống như bên excel mình chèn module sau đó thêm sub bên dưới là nó sẽ tự động khởi chạy

Mã:
Sub auto_open()

    MsgBox "hello"

End Sub

PMT

Giúp tôi Modules đọc số này với

Mon, 08 May 2017 03:35:16 +0000

Tôi có đoạn mã ở dưới. Vấn đề ở chỗ khi đọc số m2 bị lỗi hiện tượng sau:
- VD1: 42 m2 nó đọc là: (Bốn mươi hai phẩy không m2) cái này rất đúng;
- VD1: 42,7 m2 nó đọc thành (Bốn mươi hai phẩy bảy mươi m2)
- VD2: 42, 73 m2 nó đọc thành (Bốn mươi hai phẩy bảy mươi ba m2)
- VD4: 42,1 m2 nó đọc thành[i] (Bốn mươi hai phẩy mươi m2)[/i]
Tôi chỉ muốn nó đọc là (Bốn mươi hai phẩy bảy m2) hoặc (Bốn mươi hai phẩy bảy ba m2) hoặc[i] [i](Bốn mươi hai phẩy một m2)[/i][/i]
Mong các cao thủ giúp đỡ.

Public Function MET2(SoLuong)
Dim KetQua, SoTien, Nhom, Chu, Dich, S1, S2, S3 As String
Dim n, k, ViTri As Byte, S As Double
Dim Hang, DonVi, Dem
    If SoLuong = 0 Then '1
        KetQua = "Không m2"
    Else
        If Abs(SoLuong) > 1E+15 Then '2
            KetQua = "Số quá lớn"
        Else
            If SoLuong < 0 Then
                KetQua = "Trừ" & Space(1)
            Else
                KetQua = Space(0)
            End If
                SoTien = Format(Abs(SoLuong), "#################0.00")
                SoTien = Right(Space(15) & SoTien, 18)
                Hang = Array("None", "trăm", "mươi", "gì đó")
                DonVi = Array("None", "ngàn tỷ", "tỷ", "triệu", "ngàn", "phẩy", "m2")
                Dem = Array("None", "một", "hai", "ba", "bốn", "năm", "sáu", "bảy", "tám", "chín")
                For n = 1 To 6
                    Nhom = Mid(SoTien, n * 3 - 2, 3)
                    If Nhom <> Space(3) Then
                        Select Case Nhom
                            Case "000"
                                If n = 5 Then
                                    Chu = "phẩy" & Space(1)
                                    'Chu = "m2" & Space(1)
                                Else
                                    Chu = Space(0)
                                End If
                            Case ".00", ",00"
                                Chu = "không m2"
                            Case Else
                                S1 = Left(Nhom, 1): S2 = Mid(Nhom, 2, 1): S3 = Right(Nhom, 1)
                                Chu = Space(0): Hang(3) = DonVi(n)
                                For k = 1 To 3
                                    Dich = Space(0): S = Val(Mid(Nhom, k, 1))
                                    If S > 0 Then
                                        Dich = Dem(S) & Space(1) & Hang(k) & Space(1)
                                    Else
                                        If k = 1 And n > 1 And n < 6 And Val(Mid(SoTien, (n - 1) * 3 - 2, 3)) > 0 Then
                                            Dich = "không" & Space(1) & Hang(k) & Space(1)
                                        End If
                                    End If
                                Select Case k
                                    Case 2 And S = 1
                                        Dich = "mươì" & Space(1)
                                    Case 3 And S = 0 And Nhom <> Space(2) & "0"
                                        Dich = Hang(k) & Space(1)
                                    Case 3 And S = 5 And Val(S2) > 0
                                        Dich = "l" & Mid(Dich, 2)
                                    Case 2 And S = 0 And S3 <> "0"
                                        If n > 1 And Val(Mid(SoTien, (n - 1) * 3 - 2, 3)) > 0 Or (Val(S1) > 0) Then
                                            Dich = "không" & Space(1)
                                        End If
                                End Select
                                Chu = Chu & Dich
                                Next k
                        End Select
                        ViTri = InStr(1, Chu, "mươi một")
                        If ViTri > 0 Then
                            Mid(Chu, ViTri, 9) = "mươi mốt"
                        End If
                            KetQua = KetQua & Chu
                   End If '4
                Next n
        End If '2
    End If '1
    MET2 = UCase(Left(KetQua, 1)) & Trim(Mid(KetQua, 2))
End Function

Thêm cột

Wed, 08 Feb 2017 11:07:56 +0000

Các anh chị cho em hỏi,em muốn thêm cột trong acess thì làm thế nào ạ
Em cảm ơn

Liên Kết SQL,Acess,Excel liên kết với nhau

Thu, 19 Jan 2017 06:07:10 +0000

Các anh chị cho em hỏi là em em muốn làm acess của em liên kết với SQL nhưng khi em làm báo cáo thì em phải kết xuất ra excel để ggửi báo cáo đi thì có làm cách nào để liên kết được cả sang file excel không,khi muốn chuyển dữ liệu sang thì em hay phải kết xuất từ acess sang giừo em muốn cứ nhập vào acess nó sẽ sang cả excel ,Có thế làm được không ạ

Liên kết

Mon, 09 Jan 2017 09:42:31 +0000

Các anh chị cho em hỏi chút ạ,lỗi như thế này là bị sao ạ

giúp đở về trỏ chuột trong acess

Fri, 16 Dec 2016 10:07:25 +0000

Em có một file như ví dụ. Giờ em muốn khi mình kích vào nút thêm mới thì con trỏ chuột sẽ nhảy đến ô Mã sinh viên. Kính nhờ các pro trong diển đàn giúp đỡ.
https://drive.google.com/open?id=0B4ejsF...TVwaGxWOW8