(14/03/2019, 12:11)haliliyas yazdı: form üzerine ekleyeceğiniz "Btntekrarsil" adlı butona aşağıdaki kodu girip dener misinizteşkkürler tam ihtiyacım olan bu
Kod:Private Sub Btntekrarsil_Click()
Dim strSQL As String
strSQL = " SELECT * INTO [Pds_DataTmp] FROM (SELECT DISTINCT * FROM Pds_Data);"
DoCmd.SetWarnings False
DoCmd.RunSQL strSQL
DoCmd.RunSQL "delete from Pds_Data"
CurrentDb.Execute "INSERT INTO Pds_Data SELECT * FROM Pds_DataTmp;"
DoCmd.DeleteObject acTable, "Pds_DataTmp"
DoCmd.SetWarnings True
End Sub
Tekrarlayan Data Temzileme
Bu Konudaki Yorumlar |
Tekrarlayan Data Temzileme - Yazar: ramazanke - 13/03/2019, 18:11
Cvp: Tekrarlayan Data Temzileme - Yazar: ercansahin - 13/03/2019, 22:55
Cvp: Tekrarlayan Data Temzileme - Yazar: ramazanke - 14/03/2019, 09:11
Cvp: Tekrarlayan Data Temzileme - Yazar: berduş - 14/03/2019, 12:11
Cvp: Tekrarlayan Data Temzileme - Yazar: ramazanke - 14/03/2019, 12:23
|
Konuyu Okuyanlar: