Kod:
Dim rs As DAO.Recordset
A1 = InStr(Me.Metin3, ".")
Me.Metin1 = Left(Me.Metin3, A1 - 1)
A2 = InStr(Me.Metin4, ".")
Me.Metin2 = Left(Me.Metin4, A2 - 1)
Me.Recordset.Requery
Set rs = Me.RecordsetClone
DoCmd.SetWarnings False 'Hata vermemesi için gerekli
If Val(Me.Metin1) > Val(Me.Metin2) Then
DoCmd.RunSQL "INSERT INTO Tablo2 ( kimlik, malzeme, Herayın ) SELECT kimlik, malzeme, Herayın FROM Tablo1 WHERE (((Herayın)>=" & Me.Metin1 & " Or (Tablo1.Herayın)<=" & Me.Metin2 & "));"
Else
DoCmd.RunSQL "INSERT INTO Tablo2 ( kimlik, malzeme, Herayın ) SELECT kimlik, malzeme, Herayın FROM Tablo1 WHERE (((Herayın) Between " & Me.Metin1 & " And " & Me.Metin2 & "));"
End If
DoCmd.SetWarnings True 'Hata vermemesi için gerekli
Me.Liste5.Requery