Đánh giá chủ đề:
  • 0 Votes - 0 Average
  • 1
  • 2
  • 3
  • 4
  • 5
[Help] Viết code cho combobox
#11
[/quote]
Bạn thử xem bài trước tôi trả lời rồi đấy! - Vì tôi chưa hiểu nguyên tắc của bạn! Thành thật mà nói, bạn nên điều chỉnh lại nguyên tắc cấu trúc dữ liệu thì sẽ tiện hơn!
Thêm nữa! Khi kèm file, bạn nên nén lại! File của bạn quá lớn!
[/quote]

Mình thủ rồi, kết quả không đúng vì nếu chọn con NAI001-001 thì con Noc001-001 cũng sẽ không hiện ra vì chúng là anh em cùng cha cùng mẹ không thể phối giống với nhau. Mình cũng không sử dụng theo cách đặt mã heo con bao gồm số tai cha và mẹ ở trong đó nữa vì làm thế về sau mã sẽ rất là dài. Mình thấy làm kiểu đó khó quá mình đang viết code cho sau khi SOTAINOC mất focut thì sẽ chạy vòng do SOTAINOC trên from và SOTAINOC trong DSNOC nếu bằng nhau thì sẽ chay tiếp vòng lặp dò SOTAINAI trên from và SOATINAI trong DSNAI nếu bằng thì tại 2 vị trí đó sẽ kiểm tra cha con nái = cha nọc? kiem tra mẹ nái = mẹ nọc? nếu bằng thông báo trùng huyết và bắt chọn lại, nếu khong thì ok. nhưng mình viết hoài chưa ra. huhuhuhu040040040040
Chữ ký của thanh_triet09 Xin chào, mình là thanh_triet09, Tham gia http://thuthuataccess.com/forum từ ngày 01-03 -13.
Reply
Những người đã cảm ơn
#12
[php]Private Sub SOTAINOC_LostFocus()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("DSNOC")
Set rs2 = db.OpenRecordset("DSNAI")
rs.MoveFirst
rs2.MoveFirst
Do While (rs.EOF = False)
If (rs.Fields("SOTAINOC") = Me.SOTAINOC) Then
Do While (rs2.EOF = False)
If (rs2.Fields("SOTAINAI") = Me.SOTAINAI) Then
If (rs.Fields("SOTAICHA") = rs2.Fields("SOTAICHA")) Then
MsgBox "KIEM TRA LAI CON NOC DA TRUNG HUYET"
Exit Sub
End If
Me.SOTAINOC.SetFocus
ElseIf (rs.Fields("SOTAIME") = rs2.Fields("SOTAIME")) Then
MsgBox "KIEM TRA LAI CON NOC DA TRUNG HUYET"
Exit Sub
End If
End If
Me.SOTAINOC.SetFocus
rs2.MoveNext
Loop
rs.MoveNext
Loop
rs.Close
rs2.Close
db.Close

End Sub
đây là cái code mình viết mà khong chay được báo loi cho loop hoai ha
Chữ ký của thanh_triet09 Xin chào, mình là thanh_triet09, Tham gia http://thuthuataccess.com/forum từ ngày 01-03 -13.
Reply
Những người đã cảm ơn


Có thể liên quan đến chủ đề
Chủ đề: Tác giả Trả lời: Xem: Bài mới nhất
  Thêm giá trị vào combobox tại vị trí nhập liệu tranthanhan1962 4 356 02-10-17, 09:26 PM
Bài mới nhất: maidinhdan
  [Help] Xin code kiểm tra hai mật khẩu nhập có giống nhau kiepgiangho79 9 215 30-09-17, 02:17 PM
Bài mới nhất: kiepgiangho79
  Code VBA không chạy trong access 2016 tranthanhan1962 2 122 26-09-17, 09:38 PM
Bài mới nhất: tranthanhan1962
  [Hỏi] Lỗi khi dùng VBA - Combobox toidjtjmtoi 6 201 20-09-17, 06:06 PM
Bài mới nhất: tranthanhan1962
  [Help] Code update dữ liệu từ subform vào table history(có ghi nhận ngày update) subasatran 5 368 10-07-17, 02:07 PM
Bài mới nhất: tranthanhan1962

Chuyển nhanh:


User(s) browsing this thread: 1 Guest(s)
Diễn Đàn Thơ Văn Thi Ẩm Lâu|Nhà Hàng Sông Thơ