Tạo MsgBox trong Form

[doanhhoang79]

Chào các anh chi,

Tôi tạo các textbox và comboBox để nhập liệu:
Giả sử hai comboBox "Mã nhân viên" và "Đơn vị" là 2 thông tin bắt buộc phải có, tôi đã tạo MesgBox thông báo.
Hai thông tin còn lại là "Tên khoá đào tạo" và "Ngày đào tạo" có thể có hoặc có thể không.

Tôi muốn: Nếu người nhập để trống hai thông tin này thì không có thông báo gì, nhưng nếu chỉ nhập thông tin này mà không nhập thông tin kia thì MesgBox sẽ xuất hiện thông báo phải nhập đầy đủ cả 02 thông tin (Tránh trường hợp nhập tên khoá đào tạo mà không nhập ngày đào tạo hoặc ngược lại)

Tôi gửi file đính kèm mong mọi người giúp đỡ hoàn thiện code

Xin cảm ơn,

 

[sealand]

Bạn sửa tý ty là được:

Private Sub OK_Click()
If [COLOR=Red]Donvi = "" And Ma = ""[/COLOR] Then
MsgBox ("Khong du thong tin luu"), vbKey0, "Thông báo!"
Ma.SetFocus
Exit Sub
End If
If [COLOR=Red]Donvi <> ""[/COLOR] And Ma = "" Then
MsgBox ("Ban chua nhap ma nhan vien"), vbKey0, "Thông báo!"
Ma.SetFocus
Exit Sub
End If
If [COLOR=Red]Ma <> ""[/COLOR] And Donvi = "" Then
MsgBox ("Ban chua nhap don vi"), vbKey0, "Thông báo!"
Donvi.SetFocus
Exit Sub
End If

  On Error GoTo Thoat
  Application.ScreenUpdating = False
  With Sheet1.Range("A56636").End(xlUp)
    .Offset(1, 0) = Ma
    .Offset(1, 1) = Donvi
    .Offset(1, 2) = TenDT
    .Offset(1, 3) = Ngay
  End With
    Application.ScreenUpdating = True
Thoat:
End Sub

 

[hoangdanh282vn]

Chào các anh chi,

Tôi tạo các textbox và comboBox để nhập liệu:
Giả sử hai comboBox "Mã nhân viên" và "Đơn vị" là 2 thông tin bắt buộc phải có, tôi đã tạo MesgBox thông báo.
Hai thông tin còn lại là "Tên khoá đào tạo" và "Ngày đào tạo" có thể có hoặc có thể không.

Tôi muốn: Nếu người nhập để trống hai thông tin này thì không có thông báo gì, nhưng nếu chỉ nhập thông tin này mà không nhập thông tin kia thì MesgBox sẽ xuất hiện thông báo phải nhập đầy đủ cả 02 thông tin (Tránh trường hợp nhập tên khoá đào tạo mà không nhập ngày đào tạo hoặc ngược lại)

Tôi gửi file đính kèm mong mọi người giúp đỡ hoàn thiện code

Xin cảm ơn,

Mã nhân viên và đơn vị là khóa chính thì sao có thể để trống mà vẫn cho qua được nhỉ. Làm theo ý bạn vậy. Nếu không muốn bỏ qua thì bạn bò dòng code đầu đi nha.

Private Sub OK_Click()
If Ma.Value = vbNullString And Donvi.Value = vbNullString Then GoTo tiep
If Ma.Value = vbNullString Then
    MsgBox ("Ban chua nhap ma nhan vien"), vbKey0, "Thông báo!"
    Ma.SetFocus
    Exit Sub
ElseIf Donvi.Value = vbNullString Then
    MsgBox ("Ban chua nhap don vi"), vbKey0, "Thông báo!"
    Donvi.SetFocus
    Exit Sub
End If
tiep:
Application.ScreenUpdating = False
  With Sheet1.Range("A56636").End(xlUp)
    .Offset(1, 0) = Ma
    .Offset(1, 1) = Donvi
    .Offset(1, 2) = TenDT
    .Offset(1, 3) = Ngay
  End With
Application.ScreenUpdating = True
End Sub

 

[doanhhoang79]

Cảm ơn các bạn, có lẽ các bạn chưa đọc kỹ ý của tôi rồi,

Tôi muốn: Nếu người nhập để trống hai thông tin "Tên khoá đào tạo" và "Ngày đào tạo" thì không có thông báo gì, nhưng nếu chỉ nhập thông tin này mà không nhập thông tin kia thì MesgBox sẽ xuất hiện thông báo phải nhập đầy đủ cả 02 thông tin (Tránh trường hợp nhập tên khoá đào tạo mà không nhập ngày đào tạo hoặc ngược lại)

Đừng đả động gì đến Mã và Đơn vị nhé,

Cảm ơn,

 

[sealand]

Nếu vậy code của bạn như sau (Mình thêm đoan 1 là trống cả 2 cũng bỏ):

Private Sub OK_Click()
If [COLOR=Red]Donvi = "" And Ma = ""[/COLOR] Then
Ma.SetFocus
Exit Sub
End If
If [COLOR=Red]Donvi <> ""[/COLOR] And Ma = "" Then
MsgBox ("Ban chua nhap ma nhan vien"), vbKey0, "Thông báo!"
Ma.SetFocus
Exit Sub
End If
If [COLOR=Red]Ma <> ""[/COLOR] And Donvi = "" Then
MsgBox ("Ban chua nhap don vi"), vbKey0, "Thông báo!"
Donvi.SetFocus
Exit Sub
End If

  On Error GoTo Thoat
  Application.ScreenUpdating = False
  With Sheet1.Range("A56636").End(xlUp)
    .Offset(1, 0) = Ma
    .Offset(1, 1) = Donvi
    .Offset(1, 2) = TenDT
    .Offset(1, 3) = Ngay
  End With
    Application.ScreenUpdating = True
Thoat:
End Sub

 

[doanhhoang79]

Cảm ơn các bạn, mình làm được rồi

 

[anhchangnhaque1552000]

dua du lieu vao combbox

Chào các anh chi,

Tôi tạo các textbox và comboBox để nhập liệu:
Giả sử hai comboBox "Mã nhân viên" và "Đơn vị" là 2 thông tin bắt buộc phải có, tôi đã tạo MesgBox thông báo.
Hai thông tin còn lại là "Tên khoá đào tạo" và "Ngày đào tạo" có thể có hoặc có thể không.

Tôi muốn: Nếu người nhập để trống hai thông tin này thì không có thông báo gì, nhưng nếu chỉ nhập thông tin này mà không nhập thông tin kia thì MesgBox sẽ xuất hiện thông báo phải nhập đầy đủ cả 02 thông tin (Tránh trường hợp nhập tên khoá đào tạo mà không nhập ngày đào tạo hoặc ngược lại)

Tôi gửi file đính kèm mong mọi người giúp đỡ hoàn thiện code

Xin cảm ơn,

Chào bạn.
Mình thấy file bạn làm đúng như cái mình muốn hỏi. Mình muốn biết làm thế nào để đưa được dữ liệu tại cột cố định bất kỳ vào trong combbox trên form.
Cảm ơn

 

[anhchangnhaque1552000]

sua code

Cảm ơn các bạn, có lẽ các bạn chưa đọc kỹ ý của tôi rồi,

Tôi muốn: Nếu người nhập để trống hai thông tin "Tên khoá đào tạo" và "Ngày đào tạo" thì không có thông báo gì, nhưng nếu chỉ nhập thông tin này mà không nhập thông tin kia thì MesgBox sẽ xuất hiện thông báo phải nhập đầy đủ cả 02 thông tin (Tránh trường hợp nhập tên khoá đào tạo mà không nhập ngày đào tạo hoặc ngược lại)

Đừng đả động gì đến Mã và Đơn vị nhé,

Cảm ơn,

Bạn sửa lại như sau nha.

Private Sub OK_Click()
If Ma = "" Then
MsgBox ("Ban chua nhap ma nhan vien"), vbKey0, "Thông báo!"
Ma.SetFocus
Exit Sub
End If
If Donvi = "" Then
MsgBox ("Ban chua nhap don vi"), vbKey0, "Thông báo!"
Donvi.SetFocus
Exit Sub
End If
If TenDT <> "" And Ngay = "" Or TenDT = "" And Ngay <> "" Then
MsgBox ("Ban chua nhap day du thong tin"), vbKey0, "Thông báo!"
Else
If TenDT <> "" And Ngay <> "" Or TenDT = "" And Ngay = "" Then
On Error GoTo Thoat
Application.ScreenUpdating = False
With Sheet1.Range("A56636").End(xlUp)
.Offset(1, 0) = Ma
.Offset(1, 1) = Donvi
.Offset(1, 2) = TenDT
.Offset(1, 3) = Ngay
End With
Application.ScreenUpdating = True
Thoat:
End If
End If
End Sub

 

[anhchangnhaque1552000]

sua code

Mình gởi file đính kèm bạn xem thử nha.
Chúc bạn may mắn