Lập trình với Access

[syquyen1987]

Kính gửi các Anh/Chị,

Hiện tại em đang lập trình trên nền Access, và em có tạo một Object Excel. Thỉnh thoảng em lưu file excel thì luôn hiện thông báo là "file đã tồn tại, bạn có muốn thay thế nó không? Em muốn có cách nào để mặc định là thay thế không ạ
Em xin cảm ơn ạ

Set xl = CreateObject("Excel.Application")
    xl.Visible = True

    Set wb = xl.Workbooks.Open(CurrentProject.Path & "\04. Form for LapTrinh\Form of KCS.xlsm", , False)
    xl.Sheets("KQPT").Visible = True
    Set ws = xl.ActiveWorkbook.Sheets("KQPT")
    
    Set rst = db.OpenRecordset("TblSearchCOC")
    NoCount = rst.RecordCount
    ws.Cells(11, 3).value = rst.Fields("SampleItem").value
    ws.Cells(10, 3).value = rst.Fields("RegisteredBy").value
    If NoCount > 0 Then
        j = 17
        Do While Not rst.EOF
            ws.Cells(j, 2).value = rst.Fields("SampleName").value
            ws.Cells(j, 3).value = rst.Fields("Ni").value
            j = j + 1
            rst.MoveNext
        Loop
        
        ws.Select
        xl.Run "LamFile" ' Chay Macro in Excel file
        xl.Visible = True
        xl.ActiveWorkbook.SaveAs filePath1
        wb.Close ' Mấu chốt là khi đóng lại là thỉnh thoảng hỏi có muốn thay thế file cũ không vì trùng tên

        Set xl = Nothing
        Set wb = Nothing

 

[ongke0711]

Thỉnh thoảng em lưu file excel thì luôn hiện thông báo là "file đã tồn tại, bạn có muốn thay thế nó không? Em muốn có cách nào để mặc định là thay thế không ạ

- Đơn giản là thêm 2 dòng lệnh nào vào đầu và cuối của Sub/Function là được rồi.

Application.DisplayAlerts = False
... code
...

Application.DisplayAlerts = True

- Lập trình thì không nên dùng từ "thỉnh thoảng" mà phải xác định rõ nguyên nhân phát sinh nhé.

 

[syquyen1987]

- Đơn giản là thêm 2 dòng lệnh nào vào đầu và cuối của Sub/Function là được rồi.

Application.DisplayAlerts = False
... code
...

Application.DisplayAlerts = True

- Lập trình thì không nên dùng từ "thỉnh thoảng" mà phải xác định rõ nguyên nhân phát sinh nhé.

Access không đọc được code đó anh ạ, e đã thử code đó từ đầu nhưng báo lỗi ạ. Từ “thỉnh thoảng” là khi nhầm lẫn mà sửa nội dung file bằng cách lấy một file gốc sẵn để sửa và khi lưu SaveAs đặt tên thì sẽ trùng thì sẽ bị hỏi như vậy ạ

 

[VetMini]

DisplayAlerts:
Bạn có cái Excel Application được khai trong biến xl. Tại sao khong dùng nó mà lại dùng cái Application của Access vậy?

Access không đọc được code đó anh ạ, e đã thử ...

Từ "e" trong ngữ cảnh này có thể hiểu là "ngại".
Khi bàn luận về cách giải quyết vấn đề thì chịu khó viết rõ một chút để tránh hiểu lầm cũng không được sao?

 

[syquyen1987]

DisplayAlerts:
Bạn có cái Excel Application được khai trong biến xl. Tại sao khong dùng nó mà lại dùng cái Application của Access vậy?


Từ "e" trong ngữ cảnh này có thể hiểu là "ngại".
Khi bàn luận về cách giải quyết vấn đề thì chịu khó viết rõ một chút để tránh hiểu lầm cũng không được sao?

Lần sau em rút kinh nghiệm viết đầy đủ ạ. Em cảm ơn anh là em đã làm được như anh gợi ý rồi ạ. Em thật sự ngốc quá ạ. Em cảm ơn anh rất nhiều ạ