làm thông báo hiển thị trùng lặp trên CSDL Access (Giúp đỡ)

[quocsantak]

Chào tất cả mọi người!!!
Mình có 1 CSDL Access nhập thông tin bảo hành sản phẩm. Rất muốn làm một code hay command button để thông báo hiển thị trùng lặp số series của sản phẩm khi nhập vào CSDL bảo hành.
VD: khi nhận bảo hành máy tên là A, số series: 0123. Khi lần sau khách đem đến bảo hành lại, nhập máy này vào CSDL thì sẽ hiển thị thông báo: "Đã bảo hành 1 lần", nếu đem đến lần 3 hay lần 4, ... thì CSDL sẽ hiển thị thông báo tương tự.

Rất mong tất cả giúp đỡ.
Chân thành cảm ơn va trân trọng kính chào!

Phan Ngọc Quốc - 097.565.4447 / 090.888.4645
Email: quocsântk@gmail.com

 

[Hai Lúa Miền Tây]

Chào tất cả mọi người!!!
Mình có 1 CSDL Access nhập thông tin bảo hành sản phẩm. Rất muốn làm một code hay command button để thông báo hiển thị trùng lặp số series của sản phẩm khi nhập vào CSDL bảo hành.
VD: khi nhận bảo hành máy tên là A, số series: 0123. Khi lần sau khách đem đến bảo hành lại, nhập máy này vào CSDL thì sẽ hiển thị thông báo: "Đã bảo hành 1 lần", nếu đem đến lần 3 hay lần 4, ... thì CSDL sẽ hiển thị thông báo tương tự.

Rất mong tất cả giúp đỡ.
Chân thành cảm ơn va trân trọng kính chào!

Phan Ngọc Quốc - 097.565.4447 / 090.888.4645
Email: quocsântk@gmail.com

Bạn dùng code sau để kiểm tra nhé.

Private Sub Command2_Click()
Dim VarX As Variant
Dim StrCriteria As String
StrCriteria = "[Series] = '" & Me.Series & "'"
VarX = DCount("[Series]", "table1", StrCriteria)
If Not IsNull(VarX) Then
MsgBox "Da bao hanh " & VarX & "lan", vbInformation, "Thong bao"
End If
End Sub

Tham khảo thêm file nhé
Thân

 

[quocsantak]

Bạn dùng code sau để kiểm tra nhé.

Private Sub Command2_Click()
Dim VarX As Variant
Dim StrCriteria As String
StrCriteria = "[Series] = '" & Me.Series & "'"
VarX = DCount("[Series]", "table1", StrCriteria)
If Not IsNull(VarX) Then
MsgBox "Da bao hanh " & VarX & "lan", vbInformation, "Thong bao"
End If
End Sub

Tham khảo thêm file nhé
Thân

Rất cảm ơn bạn đã giúp đỡ mình, mình sẽ kiểm tra rồi báo kết quả với bạn.

mình đã cảm ơn = nút cảm ơn rồi đó. có gì mong bạn giúp đỡ nhiều.

 

[quocsantak]

Chào các anh chị cùng các bạn trong diễn đàn!
Chào anh Duyệt!
Mong anh giúp đỡ cho em xin link download các tài liệu về Code của Access (hoặc anh có sẵn up cho em).
Chân thành cảm ơn và trân trọng kính chào!
Phan Ngọc Quốc - 097.565.4447 / 090.888.4645
Email: quocsântk@gmail.com

 

[quocsantak]

Chào tất cả mọi người!!!
Chào anh Duyệt!
Chân thành cảm ơn anh đã giúp em về code kiểm tra sự trùng lặp của Số Series trong CSDL Access. Nhưng hiện tại em có một vấn đề nữa mong anh giúp đỡ giùm.
Khi kiểm tra được sự trùng lặp của số Series thì em muốn hiển thị bảng chi tiết của các số Series trùng lặp đó = bảng Table hoặc Query hoặc Report ... để xem chi tiết.
VD: ta có Table Series như sau:
Series tên_SP tình_trạng
001 a lỗi 1
002 b lỗi 2
001 a lỗi 3

em muốn khi ta làm nút lệnh Kiểm Tra sẽ báo số lần trùng lặp của số Series khi nhận sản phẩm. nếu đã nhận >= 1 lần thì ta sẽ hiển thị thông tin chi tiết của sản phẩm trùng lặp này = nút lệnh "Xem thông tin chi tiết sản phẩm đã có".
Rất mong sự quan tâm giúp đỡ.

Chân thành cảm ơn và trân trọng kính chào!
Phan Ngọc Quốc - 090.888.4645 / 097.565.4447
email: quocsantak@gmail.com

 

[Hai Lúa Miền Tây]

Chào tất cả mọi người!!!
Chào anh Duyệt!
Chân thành cảm ơn anh đã giúp em về code kiểm tra sự trùng lặp của Số Series trong CSDL Access. Nhưng hiện tại em có một vấn đề nữa mong anh giúp đỡ giùm.
Khi kiểm tra được sự trùng lặp của số Series thì em muốn hiển thị bảng chi tiết của các số Series trùng lặp đó = bảng Table hoặc Query hoặc Report ... để xem chi tiết.
VD: ta có Table Series như sau:
Series tên_SP tình_trạng
001 a lỗi 1
002 b lỗi 2
001 a lỗi 3

em muốn khi ta làm nút lệnh Kiểm Tra sẽ báo số lần trùng lặp của số Series khi nhận sản phẩm. nếu đã nhận >= 1 lần thì ta sẽ hiển thị thông tin chi tiết của sản phẩm trùng lặp này = nút lệnh "Xem thông tin chi tiết sản phẩm đã có".
Rất mong sự quan tâm giúp đỡ.

Chân thành cảm ơn và trân trọng kính chào!
Phan Ngọc Quốc - 090.888.4645 / 097.565.4447
email: quocsantak@gmail.com

Bạn xem file đính kèm coi có đúng ý chưa nhé.
Thân

 

[quocsantak]

Xin chào tất cả mọi người!!!

Mong mọi người có thể giúp đỡ cho mình về vấn đề như sau:

Khi nhập vào Form các thông tin như trên File mình gửi kèm. Mình muốn làm nút lệnh thực hiện lệnh Copy và Paste. Khi nhập thông tin cho Record 1, 2 ... đầy đủ xong, đến Record thứ 10 thì các thông tin như: sp, ten, dc trùng với Record 1, 2. Khi đó, mình sẽ chuyển về Record 1 và chọn lệnh Copy thì sẽ Copy các thông tin như: sp, ten, dc, sau đó chuyển đến Record 10, chọn nút lệnh Paste thì sẽ dán các thông tin như: sp, ten, dc vào Record 10.
(Ghi chú: Nút lệnh Copy và Paste khi viết Code sẽ chỉ định các Field của Record cần Copy và Paste các Field này vào Record cần)

Rất mong mọi người giúp đỡ mình, chân thành cảm ơn và trân trọng kính chào

Phan Ngọc Quốc
097.565.4447 / 090.888.4645
E-mail: quocsantak@gmail.com

 

[ngockinh56]

Chào tất cả mọi người!!!
Mình có 1 CSDL Access nhập thông tin bảo hành sản phẩm. Rất muốn làm một code hay command button để thông báo hiển thị trùng lặp số series của sản phẩm khi nhập vào CSDL bảo hành.
VD: khi nhận bảo hành máy tên là A, số series: 0123. Khi lần sau khách đem đến bảo hành lại, nhập máy này vào CSDL thì sẽ hiển thị thông báo: "Đã bảo hành 1 lần", nếu đem đến lần 3 hay lần 4, ... thì CSDL sẽ hiển thị thông báo tương tự.

Rất mong tất cả giúp đỡ.
Chân thành cảm ơn va trân trọng kính chào!

Phan Ngọc Quốc - 097.565.4447 / 090.888.4645
Email: quocsântk@gmail.com

Cũng với câu hỏi như trên nhưng muốn dùng macro để làm trong access. Xin vui lòng giúp đỡ
Điện thoại 0903757722 hoặc email ngockinh1956@yahoo.com

 

[khonggianviet]

Chào các anh chị trong diễn đàn, cùng với câu hỏi như vậy nhưng là áp dụng trong vba của excel thì code như thế nào. Mình cũng đã thử chuyển code từ access sang vba excel nhưng không được, nhờ cả nhà hướng dẫn dùm. Cảm ơn anh chị trên diễn đàn rất nhiều

 

[khonggianviet]

thanks cả nhà em mày mò ra rồi đưa lên để bác nào cần

Private Sub TextBox30_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)

Dim STT As String

Dim c As Range

If Me.TextBox30.Value <> "" Then

With Sheet6.Range("Data!AF:AF")

Set c = .Find(Me.TextBox30.Text, LookIn:=xlValues, LookAt:=xlPart)

If Not c Is Nothing Then

    If Me.TextBox30.Value = c.Value Then

    STT = c.Offset(0, 0)

    Me.TextBox30.BackColor = &HFF&

    Msg "  Va8n ba3n na2y d9a4 nha65p ro62i  " & Chr(13) & "Kie63m tra va8n ba3n co1 so61 d9e61n la2 : " & STT

    Me.TextBox30.SetFocus

    End If

End If

End With

End If

    Me.TextBox30.SetFocus

End Sub

code này sẽ kiểm tra sheet Data cột AF khi người dùng nhập dữ liệu vào textbox30, nếu dữ liệu nhập vào mà trùng sẽ hiện thông báo số bị trùng và hiện màu đỏ trong textbox,