Tùy chọn
Viết code cho combobox
- Viết code cho combobox
-
RE: Viết code cho combobox
thanh_triet09 > 11-05-13, 02:55 PM
[/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. huhuhuhu
-
RE: Viết code cho combobox
thanh_triet09 > 11-05-13, 04:41 PM
[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