اتفضل حسب مافهمت
INSERT INTO Teb2 ( a1, a2, a3, a4, a5 )
SELECT ورقة1.a1, ورقة1.a2, ورقة1.a3, ورقة1.a4, ورقة1.a5
FROM ورقة1
WHERE (((ورقة1.a1) Not In (SELECT Teb2.a1
FROM Teb2;)));
AA (1).rar
مشاركة مع اخي ابو جودي
ضيف هذا بعد الرساله
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE tbl.* FROM tbl where ID = [Forms]![frmA]![ID];"
DoCmd.SetWarnings True
اتفضل عن طريق الكود هذا
Dim varFilter As Variant
varFilter = Null
If Not IsNull(Me.X) Then
varFilter = "[nume] LIKE '*" & Me.X & "*'"
End If
' كود البحث بين تاريخين
If Not IsNull(Me.STR) Or IsNull(Me.IND) Then
varFilter = (varFilter + " AND ") & "[dateTraining] Between STR And IND"
End If
With Me.frmsub.Form
If Not IsNull(varFilter) Then
.DataEntry = False
.Filter = varFilter
.FilterOn = True
Else
.FilterOn = False
End If
.Requery
End With
Database21.accdb