|
|
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ý Phòng Khám Tư Nhâ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: Le Duc-24-09-26, 12:03 AM- » Bài trả lời: 34- » Lượt xem: 8,344 |
| Tạo Form không có khung v... -Chuyên mục: Thư viện thủ thuật-Đăng bởi lần cuối: ongke0711-05-09-26, 10:12 PM- » Bài trả lời: 0- » Lượt xem: 146 |
| Tải hàng loạt hóa đơn PDF... -Chuyên mục: Thành viên giúp nhau-Đăng bởi lần cuối: dotrung-16-08-26, 10:29 PM- » Bài trả lời: 6- » Lượt xem: 160 |
| Quản lý kho bằng Accesss -Chuyên mục: Thảo Luận Access-Đăng bởi lần cuối: AKBui-09-08-26, 12:52 AM- » Bài trả lời: 77- » Lượt xem: 8,101 |
| Tra cứu Mã số thuế - phần... -Chuyên mục: Share Code-Đăng bởi lần cuối: ongke0711-03-07-26, 02:10 PM- » Bài trả lời: 0- » Lượt xem: 181 |
| Đồ cổ đây - một chút hoài... -Chuyên mục: Góc ảnh-Đăng bởi lần cuối: Noname-12-06-26, 09:21 AM- » Bài trả lời: 1- » Lượt xem: 659 |
| Tra cứu thông tin DN qua ... -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-02-06-26, 11:36 PM- » Bài trả lời: 0- » Lượt xem: 185 |
| Homestay chill đà lat -Chuyên mục: Góc Blogger-Đăng bởi lần cuối: tt1212-01-06-26, 02:51 PM- » Bài trả lời: 0- » Lượt xem: 630 |
| Quản lý quầy thuốc nhỏ lẻ -Chuyên mục: Thư Viện Ứng Dụng-Đăng bởi lần cuối: ongke0711-09-05-26, 11:24 AM- » Bài trả lời: 4- » Lượt xem: 3,615 |
| TẠO THÔNG BÁO NHẮC NHỞ CÔ... -Chuyên mục: Tương tác Chương trình ngoài-Đăng bởi lần cuối: ongke0711-07-04-26, 10:46 AM- » Bài trả lời: 2- » Lượt xem: 285 |
| Diễn đàn Thống kê |
|
» Thành viên: 0 » Thành viên mới nhất: Không có ai » Các chủ đề diễn đàn: 0 » Các bài viết diễn: 0 Thống kê đầy đủ |