AccessTr.neT

Sayfalar: 1 2

Programla ilgili yardım aldım ve şuan çalışıyor. Şık olması açısından sadece ana ekran gizlemeyi yapmaya çalışıyorum. Onunla ilgili sitedeki konuda verilenleri inceledim. Bazı yerleri oldu, bazıları olmadı o konuda belirttim. Programı buraya oluğu hali ile ekliyorum. Programla ilgili sadece renklendirme eksik ama ona da gerek kalmadı. Program karşılaştırma yapıyor ve olmayanları excele tekrar başka bir ad ile yazıyor. Konu hallaolduğuna göre bu konuyu da kapatabiliriz sanırım. Herkese teşekkürler. Birde başkalarına lazım olacağı ve kolay bulunabilmesi düşüncesi ile konu başlığını DAİMİ ARAMA KAYIT PROGRAMI yapsak olur mu.

Merhaba, Access örnekleri ve uygulamaları bölümüne yeni konu açarak örneğinizi paylaşabilirsiniz.

Tamam teşekkürler.

(25/11/2019, 20:09)270598 yazdı: [ -> ]Tamam teşekkürler.Ama dediğim gibi arka planı gizleme ile ilgili her şeyi yaptım ama raporlardan sadece bir kaçı açıldı diğerleri açılmadı o da olursa sorunsuz eklenmiş olur. Biri yardım edecektir sanırım.

konuyu tekrar açmak yerine buradan yazmanın daha mantıklı olduğunu düşündüğümden yazıyorum.
excelden alınan veriler ile Access veri tabanı için bir kod yazıldı lakin şöyle bir sorun çıktı. kod Excel ile acces veri karşılaştırınca excelde olup accesste olmayanlara bakıyor. karşılaştırma sonrası excelde olup accesste olmayanları yuklenmeyenler.xls olarak farklı kaydetle excele aktarıyor. ama şöyle bir eksiklik var ki accesste olup excelde olmayanları da bulmak gerekiyor. bu koda ekleme yaparak Access te olup excelde olmayan verileri süzerek ayrı bir xls dosyasına veya yuklenmeyenler.xls de yeni bir kitap açarak accesste olup excelde olmayanlar şeklinde düzenleyebilir miyiz?

PHP Kod:
Private Sub Komut84_Click()
On Error Resume Next
Const SQLA As String = "SELECT Excel.[NO], Excel.[MÜŞTEKİ ADI SOYADI], Excel.SUÇU, Excel.[HAZIRLIK TARİHİ], Excel.[HAZIRLIK YILI], Excel.[HAZIRLIK NUMARASI] FROM Excel LEFT JOIN Veriler ON (Excel.[MÜŞTEKİ ADI SOYADI] = Veriler.MÜŞTEKİ) AND (Excel.[HAZIRLIK TARİHİ] = Veriler.CHAZTR) AND (Excel.[HAZIRLIK NUMARASI] = Veriler.CHAZNO) WHERE (((Veriler.MÜŞTEKİ) Is Null) AND ((Veriler.CHAZTR) Is Null) AND ((Veriler.CHAZNO) Is Null))"
Dim SrgYp As QueryDef
DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel12, "Excel", CurrentProject.Path & "\VeriAl.xlsx", True
CurrentDb.Execute "INSERT INTO Veriler ( ExcelNu, MÜŞTEKİ, SUÇ, CHAZTR, CHAZYIL, CHAZNO ) " & _
"SELECT Excel.[NO], Excel.[MÜŞTEKİ ADI SOYADI], Excel.SUÇU, Excel.[HAZIRLIK TARİHİ], Excel.[HAZIRLIK YILI], Excel.[HAZIRLIK NUMARASI] FROM Excel LEFT JOIN Veriler ON (Excel.[HAZIRLIK NUMARASI] = Veriler.CHAZNO) AND (Excel.[HAZIRLIK TARİHİ] = Veriler.CHAZTR) AND (Excel.[MÜŞTEKİ ADI SOYADI] = Veriler.MÜŞTEKİ) WHERE (((Veriler.MÜŞTEKİ) Is Null) AND ((Veriler.CHAZTR) Is Null) AND ((Veriler.CHAZNO) Is Null))"
Set SrgYp = CurrentDb.CreateQueryDef("Gecici", SQLA)
DoCmd.OutputTo acOutputQuery, "Gecici", acFormatXLSX, CurrentProject.Path & "\Yuklenmeyenler.xlsx", True
DoCmd.DeleteObject acQuery, "Gecici"
DoCmd.DeleteObject acTable, "Excel"
End Sub 

Sayfalar: 1 2

270598

ozanakkaya

270598

270598

270598