Bằng những thao tác được hướng dẫn dưới đây, bạn có thể tận dụng được hết những tính năng của Office 2007 để file kết quả vẫn xem được trên những máy tính khác không có Office 2007.
Đối với Excel 2007:
Mở Excel rồi nhấn vào icon của office 2007 ở góc bên trái. Trong thanh menu, bạn nhất chuột lên thẻ Excel Options.
Bây giờ bạn nhấn chuột lên mục Save ở bảng bên trái, sau đó trong dòng Safe files in this format, bạn nhấn phím sổ xuống, rồi chọn định dạng lưu mặc định mới là Excel 97 - 2003 Workbook. Nhấn OK để xác nhận chọn lựa.
Vậy là từ nay, file Excel soạn bằng Office 2007 có thể đọc được trên office 2003.
Đối với Word 2007
Mở Word, nhấn chuột vào biểu tượng của Office. Nhấn tiếp vào phím Word Options.
Nhấn vào thẻ Save, sau đó trong dòng Save files in this format, bạn đổi thành Word 97 - 2003 Document > OK.
Bây giờ, bạn có thể lưu mặc định Word 2007 dưới dạng Word 2003 để có thể xem được trên bất kỳ máy nào.
Mời các bạn tham khảo và cho ý kiến nhận xét nhé !
Ví dụ mình có chương trình, trong forms khởi động mình viết code : Lấy thông số main và Thông số ổ cứng (Riêng thông số ổ cứng mình lấy thông số ổ cứng trên máy người sử dụng rồi +, -, *, / cho các số nào đó => Ra một kết quả ví dụ như : sdsdjssdss1215451 (Không cho hiện lên người sd biết) rồi đem số này so sánh với Table (Bắt buộc người sd phải đăng ký vào đây), nếu đúng thì cho khởi động, sai thì thoát ra. Trước khi thoat ra thì có hiện lên 1 forms lấy thông số Main và ổ cứng (Để người sd biết mà cung cấp 2 số này cho tác giả)
Để có thông tin để nhập vào Table của máy người sử dụng, mình viết code trên file DangKy gồm có các ô : Thông tin main, Thông tin ổ cứng, nút bấm Tạo số đăng ký và ô Số đăng ký sử dụng. Người SD cung cấp số cho mình thì sẽ có số đăng ký sử dụng....
Mình kèm theo file DangKy.mdb
Hướng dẫn này cho phép chúng ta tạo 1 form chỉ cho phép người dùng mở 5 lần.
Có thể dùng ràng buộc người dùng phải đăng ký để dùng tiếp.
----------------------------------------------------------
Tác giả và demo: Cafe Via He
Site: http://thuthuataccess.com/forum
Vui lòng giữ tên tác giả và site nếu bạn dùng hoặc chia sẻ code này.
------------------------------------------------
Tạo 1 table tên là FormInfo(FormName,times)
Formname: Text
Times: number
1 Form tên là demo
Trong đó, vẽ 1 textbox tên là txtT để thể hiện số lần mở form. Các yếu tố màu mè khác. Form sẽ có dung nhan như sau
Trong sự kiện Openform, bạn dùng code sau:
Mã:
Private Sub Form_Open(Cancel As Integer)
DoCmd.SetWarnings False
Dim frm As String
Dim t As Integer
frm = DCount("formname", "Forminfo", "formname='" & Me.Name & "'")
t = Nz(DLookup("times", "Forminfo", "formname='" & Me.Name & "'"), 0)
If frm = 0 Then 'Neu form chua mo lan nao
t = t + 1
DoCmd.RunSQL "Insert into Forminfo(formname,times) values('" & Me.Name & "'," & t & ")"
txtT = t
ElseIf frm > 0 And t < 5 Then 'Cong don so lan mo form
t = t + 1
DoCmd.RunSQL "Update FormInfo set Times =" & t
txtT = t
ElseIf frm > 0 And t = 5 Then ' Neu da mo form duoc 5lan
MsgBox "This form was opened 5 times" & vbCrLf & vbCrLf & "Expired!!!"
Cancel = True
End If
End Sub
Và nếu form này mở quá 5 lần thì chương trình sẽ không cho mở form nữa!
Tôi cũng thực thực hiện khóa phím close trên Access, theo câu lệnh trên diễn đàn, nhưng khi chạy thì báo lỗi:
Run-time error '453'
Cannot find DLL entry point getwindowlongA in user32
Nhờ Anh Noname giúp đỡ dùm, cám ơn A nhiều