Tìm kiếm trên form - Nhờ giúp đỡ (1 người xem)

[loinguyen212]

Chào các anh chị em của GPE,

Em tạo form để nhập liệu, trên form (file đính kèm) khi nhập xong texbox Thứ tự phiếu thì sẽ kiểm tra được số phiếu đã tồn tại trong cột F (Số phiếu) chưa? Nếu chưa thì chấp nhận ghi vào Số phiếu, nếu đã tồn tại thì báo một msgbox, rồi để con trỏ chuột tại texbox Thứ tự phiếu trên form để điền số khác.

Cảm ơn các anh chị em.

 

[huuthang_bd]

Chào các anh chị em của GPE,

Em tạo form để nhập liệu, trên form (file đính kèm) khi nhập xong texbox Thứ tự phiếu thì sẽ kiểm tra được số phiếu đã tồn tại trong cột F (Số phiếu) chưa? Nếu chưa thì chấp nhận ghi vào Số phiếu, nếu đã tồn tại thì báo một msgbox, rồi để con trỏ chuột tại texbox Thứ tự phiếu trên form để điền số khác.

Cảm ơn các anh chị em.

Tiêu đề và nội dung câu hỏi của bạn không liên quan gì với nhau cả.
Form của bạn không có "Nút" nào hết thì bạn nhập xuống sheet bằng cách nào? Tôi đã thêm 2 CommandButton cho bạn.

 

[loinguyen212]

Cảm ơn anh. Mục đích của em là khi điền Thứ tự phiếu xong (lúc mình ấn Enter hoặc Tab) thì Số Phiếu sẽ tự động được hình thành như công thức ở cột F đó anh (lúc này chưa cần hiển thị số phiếu đó ra, cứ xem như nó là TẠM). tiếp theo là rà soát trong cột F, nếu đã có thì báo msgbox, nếu chưa có thì mới bắt đầu cho số phiếu đó tự động hiển thị luôn vào textbox. Xong thì mới ghi xuống sheet anh à. Nhờ anh và mọi người xem lại giúp em. Chân thành cảm ơn.

 

[loinguyen212]

Nhờ mọi người giúp đỡ!

 

[loinguyen212]

Chào mọi người, dựa trên file anh Hữu Thắng gửi em đã sửa lại cho đúng ý định.
Chỉ duy một vấn đề là khi ở Txtbox4 khi mà nhập trùng thì đã báo nhưng khi ok thì con trỏ chuột lại nhảy sang txtbox5, mặc dù em đã để setforcus tại txtbox4. Nhẽ ra khi báo trùng thì nó sẽ để con trỏ chuột lại txtbox4 để mình điền lại số khác.
Em sửa mãi vẫn chưa được, nhờ thầy cô anh chị góp ý giúp đỡ.

 

[loinguyen212]

Nhờ mọi người giúp đỡ.

 

[loinguyen212]

Nhờ mọi người giúp đỡ.

 

[huuthang_bd]

Chào mọi người, dựa trên file anh Hữu Thắng gửi em đã sửa lại cho đúng ý định.
Chỉ duy một vấn đề là khi ở Txtbox4 khi mà nhập trùng thì đã báo nhưng khi ok thì con trỏ chuột lại nhảy sang txtbox5, mặc dù em đã để setforcus tại txtbox4. Nhẽ ra khi báo trùng thì nó sẽ để con trỏ chuột lại txtbox4 để mình điền lại số khác.
Em sửa mãi vẫn chưa được, nhờ thầy cô anh chị góp ý giúp đỡ.

Bạn thay

Private Sub TextBox4_AfterUpdate()
...
End Sub

Bằng

Private Sub TextBox4_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
Dim Rng As Range, iStr As String
iStr = "SS25" & Me.TextBox2.Value & Me.TextBox3.Value & Me.TextBox4.Value
Set Rng = ActiveSheet.[F:F].Find(What:=iStr, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)
If Rng Is Nothing Then
    TextBox5.Value = iStr
Else
    Cancel = True
    MsgBox "Trung"
End If
End Sub

 

[loinguyen212]

Cảm ơn anh Hữu Thắng đã giúp đỡ. Em đã gỡ được thêm một nút thắt. Chúc anh sức khỏe. Chào anh.