|
|
Viết bởi: Accessv07 28-06-23, 06:15 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (6) |
For i = 1 To rs.RecordCount Step 1
ki = (.Cells(i, 7).Value)
If ki <> "" Then
.Cells(i, 7).Value = ki
End If
Next i
|
|
Viết bởi: huyhoang22 24-06-23, 07:08 PM Chuyên mục: Forms - Bài trả lời (44) |
|
|
Viết bởi: longkd_bvct@yahoo.com.vn 23-06-23, 03:45 PM Chuyên mục: Thủ thuật VBA - Bài trả lời (2) |
Sub TimGiaTriTrungNhau()
Dim db As DAO.Database
Dim rs1 As DAO.Recordsets
Dim rs2 As DAO.Recordsets
Dim giaTri As Variant
Dim trungNhau As String
Set db = CurrentDb
Set rs1 = CurrentDb.OpenRecordset(qrydaxuat)
Set rs2 = CurrentDb.OpenRecordset(tbldanhap)
rs1.MoveFirst
Do Until rs1.EOF
giaTri = rs1.Fields("MaHH").Value
rs2.FindFirst "MaHH='" & giaTri & "'"
If Not rs2.NoMatch Then
trungNhau = trungNhau & giaTri & ", "
End If
rs1.MoveNext
Loop
rs1.Close
rs2.Close
db.Close
If Len(trungNhau) > 0 Then
trungNhau = Left(trungNhau, Len(trungNhau) - 2)
End If
MsgBox "Các giá tr? trùng nhau: " & trungNhau
End Sub
|
|
Viết bởi: tt1212 21-06-23, 12:27 AM Chuyên mục: Tương tác Chương trình ngoài - Bài trả lời (3) |
|
|
Viết bởi: nam8384 16-06-23, 09:17 PM Chuyên mục: Table - Bài trả lời (1) |
| Chủ đề Mới nhất |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: hoandokhai-18-10-25, 04:48 PM- » Bài trả lời: 70- » Lượt xem: 5,717 |
| Thơ Nhạc Nhất Lang - Cảm ... -Chuyên mục: Góc Thơ -Đăng bởi lần cuối: Nguyễn Thành Sáng-09-10-25, 03:12 PM- » Bài trả lời: 1- » Lượt xem: 29 |
| Quản Lý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: tt1212-09-09-25, 05:03 PM- » Bài trả lời: 32- » Lượt xem: 7,184 |
| Thử nghiệm upload hình -Chuyên mục: Phòng thử nghiệm-Đăng bởi lần cuối: Noname-29-08-25, 09:44 AM- » Bài trả lời: 2- » Lượt xem: 720 |
| Quản Lý Công Văn -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Adung-23-07-25, 10:05 AM- » Bài trả lời: 8- » Lượt xem: 12,987 |
| (Update v.1.0.85 - 30/06/... -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: Adung-22-07-25, 10:46 AM- » Bài trả lời: 270- » Lượt xem: 113,527 |
| Video Tự học Access ( Cơ ... -Chuyên mục: Thư Viện Giáo Trình-Đăng bởi lần cuối: Nguyễn Đình Thọ-21-07-25, 10:42 AM- » Bài trả lời: 7- » Lượt xem: 9,116 |
| E chia sẽ Quản lý nhà trọ -Chuyên mục: Forms-Đăng bởi lần cuối: hoaithanh-18-07-25, 02:28 PM- » Bài trả lời: 0- » Lượt xem: 201 |
| E xin chia sẻ kiểm phiếu ... -Chuyên mục: Forms-Đăng bởi lần cuối: hoaithanh-18-07-25, 09:17 AM- » Bài trả lời: 14- » Lượt xem: 899 |
| Giải pháp Chuyển đổi từ đ... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-09-07-25, 09:52 PM- » Bài trả lời: 6- » Lượt xem: 257 |
| Diễn đàn Thống kê |
|
» Thành viên: 7,003 » Thành viên mới nhất: ridehausx » Các chủ đề diễn đàn: 9,899 » Các bài viết diễn: 48,827 Thống kê đầy đủ |