Đá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
  [Help] Cập nhật combobox 2 từ combobox 1 (dữ liệu ở nhiều bảng) votinh.tq 6 197 22-11-16, 11:34 PM
Bài mới nhất: votinh.tq
  [Help] tạo 2 combobox liên kết giá trị trong một table trên form tronghieu9792 2 162 31-08-16, 08:48 AM
Bài mới nhất: tronghieu9792
  [Lỗi] Lỗi code event! toancvp 18 1,032 07-07-16, 01:36 AM
Bài mới nhất: maidinhdan
  [Hỏi] Loại bỏ trường trùng lặp trên combobox tvn_hut 3 237 03-07-16, 09:53 AM
Bài mới nhất: cpucloi
  [Help] Không sử dụng lọc combobox trên subform theo điều kiện được? tvn_hut 9 392 04-06-16, 08:17 PM
Bài mới nhất: tvn_hut

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ơ