morosumo > 07-09-13, 01:20 AM
khải nguyên > 08-09-13, 12:19 PM
morosumo > 08-09-13, 02:52 PM
(08-09-13, 12:19 PM)khải nguyên Đã viết: Hổng cò thời gian nghiên cứu nhưng theo bạn trình bày : "tao Front End và Back End thi bị lỗi dòng màu đỏ" thì nghe ra có vẻ lỗi do Khóa bằng tiếng việt có dấu thì phải ,nên khi tạo Font khác nó không tìm thấy tham chiếu tới khóa đó .thử thay đổi lại xem sao
Sorry ha
Khải Nguyên
Xuân Thanh > 08-09-13, 10:00 PM
morosumo > 09-09-13, 09:43 PM
bomnhauag > 11-09-13, 09:45 AM
(07-09-13, 01:20 AM)morosumo Đã viết: Private Sub tenthuoc_AfterUpdate()
If IsNull(tenthuoc) Then
MsgBox "Chöa nhaäp teân thuoác ", , "Chu y"
Exit Sub
End If
tenthuoc = StrConv(NGHIEMTRANG(tenthuoc, 0), 3)
Mathuoc = Trim(tenthuoc & "-" & Hamlg & "-" & dongia & "-" & nhom)
Dim Rdmt As Recordset
Set Rdmt = CurrentDb.OpenRecordset("dmthuoc", dbOpenDynaset)
Rdmt.Index = "PrimaryKey"
Rdmt.Seek "=", Mathuoc
If Not Rdmt.NoMatch Then
MsgBox "Thuoác naøy ñaõ coù roài , xin nhaäp teân khaùc", , "Chuù yù"
DoCmd.RunCommand acCmdUndo
End If
End Sub
cần các bạn pro giúp đở, minh tao Front End và Back End thi bị lỗi dòng màu đỏ, đoạn code trên bi lỗi như thế nào mong các bạn giúp.
Dim s as string
s=nz(dlookup("mathuoc", "dmthuoc", "mathuoc='" & mathuoc & "'"),"")
'tìm mathuoc trong table dmthuoc theo điều kiện MaThuoc=mathuoc mới nhập, nếu có trả về MaThuoc, kô có trả về chuỗi ""
if s="" then
'tìm không thấy, nghĩa là chưa có
else
'có thằng ưỷ này trong table rồi, xử nó
end if
tt1212 > 11-09-13, 10:19 PM
thanhhau828 > 11-01-18, 10:14 PM
thanhhau828 > 11-01-18, 10:16 PM
(08-09-13, 10:00 PM)Xuân Thanh Đã viết: Do link table nên không tìm thấy khóa chính của recordset mà bạn định nghĩa biến. Đơn giản thế thôi
Thân mến
ongke0711 > 11-01-18, 11:29 PM