çünkü hangi alanların değiştiğini rapor halinde göstermem gerekiyor
@benbendedeilem
Tablo Alanlarını Döngü İçinde Kullanmak
Yalniz 4. mesajdaki kodu kullanarak zaten yapabilirsini döngüye union all eklemeniz yeterli
Daha önceki bir (hastalıkların ayrılması )konunuzda union all döngüye sokularak tüm alanlar alt alta listelenmisti
Daha önceki bir (hastalıkların ayrılması )konunuzda union all döngüye sokularak tüm alanlar alt alta listelenmisti
sn. @berduş yazmış olduğunuz kod ile harika çalıştı kodun son halini ekliyorum
bunun ile ne yapıyoruz
biri yerel tablo (itLastPersonel)
diğeri bağlı tablo (itNewPersonel)
birbirinin aynı olan 2 tablonun alanlarını karşılaştırıp farklı olan alanları resimdeki gibi listede gösteriyoruz
![[Resim: do.php?img=10105]](https://resim.accesstr.net/do.php?img=10105)
Kod:
Public Function sqls()
Dim i As Integer
Dim sql, strSQL As String
Dim lastTableName, newTableName As String
Dim lastColumnName, newColumnName As String
Dim name1, name2 As String
lastTableName = "itLastPersonel"
newTableName = "itNewPersonel"
strSQL = ""
For i = 0 To CurrentDb.TableDefs(lastTableName).Fields.Count - 1
lastColumnName = CurrentDb.TableDefs(lastTableName).Fields(i).Name
newColumnName = CurrentDb.TableDefs(newTableName).Fields(i).Name
sql = "SELECT" & _
" itLastPersonel.SICNO" & "," & _
" '" & lastColumnName & "' AS AlanAdi" & "," & _
" itLastPersonel.[" & lastColumnName & "]" & "," & _
" itNewPersonel.[" & newColumnName & "]" & _
" FROM itLastPersonel" & _
" INNER JOIN itNewPersonel ON itLastPersonel.SICNO = itNewPersonel.SICNO" & _
" WHERE itLastPersonel.[" & lastColumnName & "]<> itNewPersonel.[" & newColumnName & "]"
strSQL = strSQL & sql
If (i < CurrentDb.TableDefs(lastTableName).Fields.Count - 1) Then
strSQL = strSQL & " UNION ALL "
Else
strSQL = strSQL & ";"
End If
Next i
Me.Liste0.RowSource = strSQL
Me.Liste0.Requery
End Functionbiri yerel tablo (itLastPersonel)
diğeri bağlı tablo (itNewPersonel)
birbirinin aynı olan 2 tablonun alanlarını karşılaştırıp farklı olan alanları resimdeki gibi listede gösteriyoruz
@benbendedeilem
Son Düzenleme: 25/04/2020, 12:06, Düzenleyen: accessman.
bunu fonksiyon haline nasıl getiririz, tablo isimlerini nasıl gönderebiliriz
kod içerisinde geçen
"itLastPersonel" yerlerine
"lastTableName" değişkenini nasıl yazabiliriz
Kod:
Public Function sqls(lastTableName As String, newTableName As String)kod içerisinde geçen
"itLastPersonel" yerlerine
"lastTableName" değişkenini nasıl yazabiliriz
@benbendedeilem
Son Düzenleme: 25/04/2020, 12:12, Düzenleyen: accessman.
Sana pratik yol öneriyim
Üç adet WORD dosyası oluştur.
1. dosyaya excelden bağladığın tabloyu yapıştır.
2. dosyaya Access de bulunan dosyayı yapıştır.
3. dosyada "Gözden Geçir" Menüsünde "Karşılaştır" da diğer iki dosyayı ayarla.
RAPORUN HAZIR.
Üç adet WORD dosyası oluştur.
1. dosyaya excelden bağladığın tabloyu yapıştır.
2. dosyaya Access de bulunan dosyayı yapıştır.
3. dosyada "Gözden Geçir" Menüsünde "Karşılaştır" da diğer iki dosyayı ayarla.
RAPORUN HAZIR.
Konuyu Okuyanlar: 1 Ziyaretçi
