Page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547

Results : trong
Thread / Author Tags
Lấy về số seri CPU, ổ cứng MainBoard trong Access - Noname Access, trong, MainBoard, cứng, ổ, seri, số, về, Lấy,
Đôi khi có 1 số nhu cầu lấy thông tin phần cứng trong chương trình (chẳng hạn để cấp bản quyền). Dưới đây là Đoạn Code cho phép bạn lấy thông tin CPU máy tính:
Download Demo

Chú ý: Một số Main của các máy tính đặc biệt (VAIO, Apple...) không cho lấy thông số, nên hàm lấy main chỉ mang tính tham khảo .
' Lay thong tin CPU
Function GetCPUID()
'ta.o ?o^'i ty'o+.ng di.ch vu. WMI
Set objWMIService = GetObject(winmgmts:\\.\root\cimv2)
'tim các CPU ?ang cha.y cu?a máy
Set colItems = objWMIService.ExecQuery(Select * from Win32_Processor)
'la(.p hie^?n thi. ID cu?a tu+ng CPU
For Each objItem In colItems
GetCPUID = objItem.ProcessorId
...
Hàm Kiểm tra sự tồn tại của 1 file trong Access - Noname Access, trong, file, của, tại, tồn, sự, Kiểm, Hàm,
Function FileExit(fname As String) As Boolean

If Dir(fname) <> Then
FileExit = True
Else
FileExit = False
End If

End Function




Ví dụ: Ở sự kiện Load form của Form chính, bạn chọn cho code này vào:

If not(FileExit(\\May2\DULIEU\LUU.MDB)) then
msgbox Phải cài file dữ liệu
docmd.quit
End if
Hàm Tách Tên, Họ trong Access - Noname Access, trong, Họ, Tên, Tách, Hàm,
Mình xin giới thiệu 1 hàm tự tách tên, họ trong Access:

Public Function Split(Ten As String, Kieu As Byte)
Dim bytSpace As Byte
bytSpace = InStrRev(Ten, , -1)

If bytSpace = 0 Then
Split = Ten
Exit Function
End If

If Kieu = 0 Then
Split = Right(Ten, Len(Ten) - bytSpace)
Else
Split = Left(Ten, bytSpace - 1)
End If
End Function




Chú Thích: Hàm này dùng hiệu quả trong việc tách tên họ. Truyền đối số như sau:
Ten: Tên đầy đủ ( fullname)
Kiểu: 0 : Tách Tên, 1 Tách Họ

Ví Dụ:

Name=Phạm Thị Mỹ Hạnh
msgbox Split(Name,0) => Hạnh
msgbox Split(Name,1) => Phạm Thị Mỹ
Xoá các table theo điều kiện trong Access - Noname Access, trong, kiện, điều, theo, table, các, Xoá,
Hỏi: Tromg file MDB của em có nhiều table để lưu dữ liệu của các năm khác nhau. EM chỉ muốn lưu 3 năm gần nhất thôi. Ví dụ: năm nay là 2009, em chỉ cần lưu dữ liệu của 2007, 2008, 2009; năm tới 2010: chỉ lưu 2008, 2009, 2010.
Em muốn tự khi lưu dữ liệu ngày đầu tiên của năm mới, thì table từ 3 năm về trước sẽ tự động bị xoá đi. Cụ thể: ngày 01/01/2010, em lưu dữ liệu thì table lưu dữ liệu của 2007 bị xoá đi.
Đồng thời, em muốn xoá table với điều kiện nó tồn tại: Cụ thể: câu lệnh để thực hiện:
Nếu tableA có trong MDB thì xoá tableA
Các bác cho em xin đoạn code nhé

Đáp:
Mình gửi bạn 1 đoạn code xóa table:

Code:

Sub DelTable(T As String)
DoCmd.DeleteObject acTable, T

End Sub


Bây giờ bạn có thể tạo 1 table với thông tin: tblTableInfo(tableName,TableDate)
Làm sổ quỹ trong Access - Noname Access, trong, quỹ, sổ, Làm,
Em muốn làm trình kế toán với số liệu thu chi và quỹ còn lại . Ví dụ như sau:
STT___Thu___Chi_______Quỹ còn lại______Diễn giải
1_____0_____100_______500____________mua vật tư
2_____200___0_________700____________kế hoạch a
3_____300___0_________1000___________kế hoạch b

Quỹ còn lại 3 = + -
Bác nào biết cách làm hướng dẫn chi tiết dùm em với, em làm query trong MS Access.

Đáp:

Cái bạn nêu trên thực ra là phần báo cáo(report) . Bạn cần tổ chức CSDL cho hợp lý thì out ra báo cáo dễ dàng hơn.
Ví dụ bạn có thể tổ chức dữ liệu thế này:
Bảng:Nhật ký
Ngày : Date
ThuChi : Yes/No
SốTiền: number(Douple)
Diễn giải: text
….

Tồn đầu kỳ thực tế chỉ là 1 transaction với diễn giãi là Tồn đầu kỳ, dư nợ sẽ nằm bên phần thu nên thuộc tính của ThuChi là yes.
...
Không in số 0 trong report - Noname report, trong, số, Không,
Khi in 1 trường bằng số thì format #,### sẽ không in nếu dữ liệu bằng 0.
- format : #,###.## : 0 không in ra nhưng 300.00 thì in ra 300. (có 2 khoản trắng phía sau)
- format #,###.00 : 0 thì in ra 0.00; 300.15 in ra 300.15 (đúng)

Mình muốn format trường số với 2 số lẻ (ví dụ trường Ngoại tệ USD) khi dữ liệu bằng 0 sẽ không in ra nếu có dữ liệu thì sẽ in ra với 2 số lẻ:

Trong phần Detail_Format của report, bạn nhập code như sau:
Code:

If Soluongtxt.Value = 0 Then
Soluongtxt.DecimalPlaces = 0
Else
Soluongtxt.DecimalPlaces = 2
End If


soluongtxt là field bạn cần format!
Lệnh Tạm ngưng trong Access - Noname Access, trong, ngưng, Tạm, Lệnh,
Trong Access, khi bạn cần tạm ngưng chương trình trong một khoảng thời gian nào đó trước khi thực hiện lệnh mới. Ta dùng hàm Sleep. Để sử dụng được hàm này, ta khai báo :

Public Declare Sub Sleep Lib kernel32 Alias Sleep (ByVal dwMilliseconds As Long)

Và sử dụng:

Sleep (5000)
để tạm ngưng 5 giây!
Tạo đồng hồ trong Access - Noname Access, trong, hồ, đồng, Tạo,
Đó hỏi: Có cách nào để tạo đồng hồ trong chương trình Access (dưới dạng text box chẳng hạn) đồng bộ với đồng hồ máy tính?


Đây trả lời: Bạn có thể sử dụng thuộc tính Timer Interval và thủ tục xử lý tình huống OnTimer. Cụ thể, trên form vẽ một text box có tên txtDongHo. Gán trị 1000 cho thuộc tính Timer Interval của form, rồi gõ đoạn mã 1 vào thủ tục xử lý tình huống OnTimer của form.
Đoạn mã 1
Private Sub Form_Timer()
txtDongHo = Format(Hour(Time()), 00) & : & _
Format(Minute(Time()), 00) & : & _
Format(Second(Time()), 00)
End Sub


CHƯƠNG CAN CHÍP
Khóa phím close trong Access - Noname Access, trong, close, phím, Khóa,
Hỏi: Tôi đã cung cấp cho người dùng nút đóng trên chương trình Access của tôi và kh6ong muốn họ dùng nút nhất close(x) sẵn của Windows thì phải làm thế nào!

Đáp:
Bạn có thể ẩn nút close bằng đoạn code sau:


Code:

Private Const GWL_EXSTYLE = (-20)
Private Const GWL_STYLE = (-16)

Private Const WS_MAXIMIZEBOX = &H10000
Private Const WS_MINIMIZEBOX = &H20000
Private Const WS_SYSMENU = &H80000

Private Const HWND_TOP = 0
Private Const SWP_NOMOVE = &H2
Private Const SWP_NOSIZE = &H1
Private Const SWP_FRAMECHANGED = &H20
Private Const SWP_DRAWFRAME = SWP_FRAMECHANGED

Private Declare Function SetWindowLong Lib user32 _
Alias SetWindowLongA (ByVal hwnd As Long, _
ByVal nIndex As Long, ByVal dwNewLong As Long) _
As Long
Private Declare Function GetWindowLong Lib user32 _
Alias GetWindowLongA (ByVal hwnd As Long, _
...
Kiểm tra 1 form trong chương trình đã được mở hay chưa! - Noname chưa, mở, được, đã, trình, chương, trong, form, Kiểm,
Trong access, đôi khi bạn cần kiểm tra một form có đang load hay chưa để lấy về thông số, tránh động tác thừa vì đôi khi load lên một form dạng bảng, có nhiều đối tượng là rất lâu.
Function dưới đây sẽ giúp bạn giải quyết vấn đề đó một cách dễ dàng

Code:

Function fIsLoaded(ByVal strFormName As String) As Boolean
'Giá trị trả về là 0 nếu chưa mở, -1 là đã mở rồi
If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> 0 Then
If Forms(strFormName).CurrentView <> 0 Then
fIsLoaded = True
End If
End If
End Function
'****** Code End ********

===================================================
Cách 2:
Đơn giản hơn ta xét Function :

If CurrentProject.AllForms(YourFormName).IsLoaded = True Then
do something
Else:
...
Xuống dòng trong Msgbox - Noname Msgbox, trong, dòng, Xuống,
Access 97 trở về trước khi xuống dòng dùng ký tự @. Access gần đây dùng vbCrLf để xuống dòng. Việc chủ động xuống dòng trong Msgbox giúp hiển thị thông báo rõ ràng hơn.

MsgBox 1. Hello! & vbCrLf & 2. Xin chào các bạn! & vbCrLf & 3. Seeuagain!, vbInformation, Message
Ký Tự xuống dòng trong SQL - Noname trong, dòng, xuống, Tự, Ký,
Hỏi
Cho tôi hỏi khi mình nhập bằng textare có ký bấm enter để xuống dòng vậy phim enter này lưu xuống SQl bằng ký tự gì vậy? bạn nào biết chỉ dùm nha, tôi đã dùng thử \n nhưng không đúng

Đáp

Nguyên văn bởi huynhvantham
Nó là kết hợp 2 ký tụ: CHAR(13) và CHAR(10)

Ví dụ bạn muốn Insert:

Chạy trong Sql Query: In sert into tablename(firstname,lastname) values('Nguyen' + CHAR(13) + CHAR(10) + 'Van', 'A')

Nếu bạn dùng TEXTAREA thì khi insert vào database thì bạn không cần phài thêm ký tụ xuống dòng. Vì TEXTAREA nó đả hổ trợ bạn chỉ cần gán giá trị của TEXTAREA cho Field dưới database là ok.
Sử dụng Unicode tiếng Việt trong MS Access - Noname Access, trong, Việt, tiếng, Unicode, dụng, Sử,
TG:Võ hùng- PC world


Trong Access 2K trở lên chạy trên Windows XP/2K, không cần phải thay thế font hệ thống bằng các font TCVN, VNI, Vietware..., bạn vẫn có thể sử dụng font Unicode tiếng Việt trong các thành phần từ khi lập trình cho đến khi sử dụng: ô nhập liệu, tiêu đề trên form, menu, toolbar... Quan trọng nhất, bạn có thể viết code sử dụng font Unicode để tạo các message box hiển thị tiếng Việt. Điểm mấu chốt là khi tạo các form, report, menubar, toolbar, bạn sử dụng font Unicode dựng sẵn, nhưng khi lập trình (viết code) bạn dùng font Unicode tổ hợp. Lưu ý: khi viết code nhớ chọn font có chữ Vietnamese ở đằng sau, ví dụ font Times New Roman (Vietnamese).

Cài đặt hệ điều hành 2K/XP

Vào Control panel->Regional and Language Options. Trong bảng này có 3 tab:

+ Tab Regional options (gọi là Tab 1)
...
Phân quyền sửa Chương trình trong Access - Noname Access, trong, trình, Chương, sửa, quyền, Phân,
Hỏi
Bạn nào có biết cách phân quyền sử dụng trong Access không chỉ cho mình với. Có nghĩa là với chương trình mình tạo ra thì chỉ có mình mới có thể sửa source code được, có thể sửa design... được thôi, người sử dụng chỉ được quyền sử dụng và không có quyền truy cập vào source code cũng như table... để sửa chương trình. Ở bên mình mọi người cũng có kiến thức về Access nên biết là cứ bấm F11 là vào được data của chương trình.
Đáp
Nguyên văn bởi hungtano
Bạn phải làm 2 việc :

1) Vào Tools --> Startup : bỏ chọn tất cả các check box trên biểu mẫu này. (không cho users sử dụng các phím tắt)

Còn muốn triệt để hơn, không cho xem code thì .mdb --> .mde


2) Disable phím SHIFT

Nguyên lý : trong database có 1 thuộc tính (property) gọi là : AllowBypassKey. Thuộc...
Chuyển Cột thành dòng trong Excel - Noname Excel, trong, dòng, thành, Cột, Chuyển,
Đôi khi bạn trình bày dữ liệu trong Excel theo dạng cột nhưng lại nhận ra rằng trình bày chúng theo dạng hàng sẽ tiện lợi hơn. Lúc này, bạn sẽ cần sử dụng đến chức năng Paste Special của Excel để chuyển cột thành hàng và ngược lại. Thủ thuật này áp dụng được cho Excel 2003/2007 và 2010.

Khởi động Microsoft Excel rồi mở tập tin Excel cần thao tác. Tô khối nội dung cần chuyển đổi, bấm chuột phải chọn Copy. Đặt con trỏ chuột vào ô cần dán nội dung, bấm chuột phải chọn Paste Special.



Một cửa sổ hiện ra, tại đây, bạn đánh dấu chọn vào ô Transpose rồi nhấn OK để xác nhận.

Similar Thread Tags
Phân quyền sửa Chương trình trong Access, Phân quyền sửa Chương trình trong Access, Phân quyền sửa Chương trình trong Access, Phân quyền sửa Chương trình trong Access, Phân quyền sửa Chương trình trong Access, Phân quyền sửa Chương trình trong Access, Phân quyền sửa Chương trình trong Access, Phân quyền sửa Chương trình trong Access,
Ask keywords
huong dan tao dang nhap trong access, kết nối csdl vào form trong access, MEMO trong table, tat chu chay trong form access 2003, vào table trong cơ sở dữ liệu access, jpg, dpf, command để lưu tên văn bản dạng doc, chỉnh sữa trong lập trình, tạo DTPicker trong form, cac ham trong report, dữ liệu không chạy khi rê chuột trong form, listbox trong form,
Simple TagCloud Plugin by Kupo v 0.9a - CSS i 1.6
Page: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547
Liên hệ | Thủ Thuật Access | Lên trên | Nội dung | Bản rút gọn | Tin RSS