cần giúp đở link table bị lỗi
morosumo > 27-08-12, 01:30 AM
mong các ban giúp đở giùm minh, khi chạy máy đơn thị OK, nhưng khi link table thị bị lỗi.
Private Sub NGAY_DblClick(Cancel As Integer)
Dim Rngay As Recordset
Set Rngay = CurrentDb.OpenRecordset("ngay", dbOpenTable)
If Not IsNull(NGAY) Then
Rngay.EDIT
Rngay!NGAY = NGAY: Rngay!THANG = Month(NGAY): Rngay!NAM = Year(NGAY)
Rngay.Update
End If
DoCmd.OpenForm "flich", acNormal, , , , acDialog
NGAY = Rngay!NGAY
Call NGAY_AfterUpdate
End Sub
- mình đã chinh dbOpentabel thanh dbOpendynaset rui. nhung bị lỗi tiếp
Private Sub MACD_AfterUpdate()
If MACD2 <> "" Then
cd = MACD.Column(1) & "/" & MACD2.Column(1)
Else
cd = MACD.Column(1)
End If
'Kiem tra trong danh muc
Dim Rdmcd As Recordset
Set Rdmcd = CurrentDb.OpenRecordset("dmchandoan", dbOpenDynaset)
Rdmcd.Index = "PrimaryKey"
If Not IsNull(MACD) Then
MACD = StrConv(MACD, 1)
Rdmcd.Seek "=", MACD
If Rdmcd.NoMatch Then
MsgBox MACD & " chöa coù xin nhaäp theâm vaøo", , "Chu y"
DoCmd.OpenForm "f04chandoan", , , , acFormAdd
Forms!f04chandoan!MACD = MACD
End If
End If
Rdmcd.Close
End Sub
- vì đây la lần đâu tham gia diễn đàn nên mong các bạn giúp đở. thank
va em goi file đinh kèm.