hi! tôi đã làm vè thực hành theo như bài giảng và phát hiện có nhiều lỗi xảy ra khi coppy function và sub. tôi đã chỉnh sửa nhưng cuối cùng kết quả trả về là "không có dữ liệu". kính mong giảng viên sửa lại giúp modunSQL. có file đính kèm gửi theo
Chào bạn bạn đẩy file lên giúp gitiho nhé
mong giang viên sửa lại functionSQL
Chào bạn do function gitiho có chỉnh sửa một chút để kết nối được nhiều dữ liệu hoặc bạn có thể tự chỉnh sửa nên arr được sửa lại như sau Thêm phần ThisWorkbook.FullName để thực hiện lấy đường dẫn nhé.
Arr = QuerySQL(Querys, ThisWorkbook.FullName, True)
Option Explicit
Sub Laydulieu()
Dim Querys As String
Sheet4.Range("A4:Z200").ClearContents
Querys = "SELECT * " & _
"FROM Data " & _
"WHERE DATA.MA_DT = 'NCC0004' OR " & _
"DATA.MA_NHAP = 'VT0200'"
Dim Arr As Variant
Arr = QuerySQL(Querys, ThisWorkbook.FullName, True)
If IsArray(Arr) = False Then
Sheet4.Range("A4").Value = Arr
Else
Sheet4.Range("A4").Resize(UBound(Arr, 1), UBound(Arr, 2)) = Arr
End If
End Sub
Chào bạn bạn có thể chụp lỗi lên ko?
ok tôi đã tự sửa được lỗi. nguyên nhân do quá trình viêt code đoạn dấu nháy đơn ' và dấu nhay kép tôi để khoảng trống như này: ' " nguyên tắc là viết liền như này '"
tôi cấn cấp bản quyền của add-ins gitiho cần phải làm gì gửi file *.TXT có nội dung gì không
Bạn copy cái txt đó giúp gitiho nhé
Chào bạn bạn cho gitiho xin ultraview nhé
tôi không hiểu nó là cái gì . xin hướng dẫn cần làm gi, thao tác thế nào
Chào bạn bạn cài cái này và cho gitiho xin id và mk vào giờ hành chính nhé.
id; thanhcham11112011@gmail.com
pass: Vanthanh@1982
43 056 045
5520
Chào bạn bạn cho gitiho xin vào giờ hành chính nhé
hi hôm nay ngày nghỉ hay vẫn làm việc :)
Chào bạn lịch làm việc của gitiho đây bạn nhé
hi! toi cần đăng ký cấp bản quyền add - ins của chương trình
id: 43 056 045
pass 7094
Chào anh Thành,
Gitiho đã hỗ trợ trường hợp này của anh Thành.
Hi! tôi đang chuẩn bị và làm một phần mềm đã tạo xong userform. nhưng quá trình lưu file có 1 cảnh báo xấu xí mà tôi không hiểu lắm. vì sao nó lại như thế, trong file tôi chưa cài đặt gì nhiều . cách khắc phục này như thế nào, hãy hướng dẫn tôi vào giờ hành chính. cảm ơn
Chào bạn bạn gửi lên google drive và cho gitiho xin link công khai nhé.
TÔI ĐANG XOA ĐI VÀ LÀM LẠI NẾU CÒN LỖI TÔI XẼ GỬI SAU. OK
XIN HỎI TRONG KHOÁ HỌC CÓ NÓI VỀ ACCESS MÀ TÔI CHƯA HIỂU KỸ LẮM. TÔI MUỐN HỌC THÊM VỀ ACCESS THÌ CẦN ĐĂNG KÝ KHÓA HỌC NÀO
Chào Thành khoá học access đang được gitiho xây dựng bạn nhé.
phần mềm chuyển đổi file PDF sang EXCELL sau khi thành công lưu ở đâu vậy, tôi tìm ko thấy file
Xin chào! tôi đăng gặp khó khăn trong khắc phục cảnh báo xấu xí mỗi lẫn đóng và lưu file. như hình ảnh đã từng gửi. Tôi không hiểu sao lại có thông báo như vậy post link file để bản tim hiểu và tháo gỡ giúp mình
https://docs.google.com/spreadsheets/...
Nhân tiện cho hỏi phần mềm chuyển đổi File PDF sang EXCELL, WORD được cài đặt kèm theo phần mềm Add ins của gitiho sử dụng như thế nào
file đây https://docs.google.com/spreadsheets/...
tôi có bảng từ ảnh nhu đã convert sang pdf sau đó cuyển sang excel ko được.
Chào bạn phần pdf chỉ dc 1 phần thôi bạn không phải có dc 100% orc của nó là free nên không nhận dc chính xác tuyệt đối được bạn có thể sử dụng trình chuyển đổi khác nhé
Bạn xem giúp tôi file này lỗi thông báo xấu xí mỗi lần lưu và đóng file
Chào bạn bạn có thể do máy bạn nhé, bạn thử copy file sang máy khác xem
Chào bạn bạn làm như sau nhé
sheet1.range("A1").value =DateValue(Format(Me.TextBox1.Text, "dd/MM/yyyy"))