Kod:
Private Sub Komut3_Click()
Dim strSQL, strSQL_perad, strSQL_persoy As String
strSQL_perad = "SELECT" & _
" itLastPersonel.SICNO" & "," & _
" 'PERAD' AS AlanAdi" & "," & _
" itLastPersonel.PERAD" & "," & _
" itNewPersonel.PERAD" & _
" FROM itLastPersonel" & _
" INNER JOIN itNewPersonel ON itLastPersonel.SICNO = itNewPersonel.SICNO" & _
" WHERE (((itLastPersonel.PERAD)<>[itNewPersonel].[PERAD])) "
strSQL_persoy = "SELECT" & _
" itLastPersonel.SICNO" & "," & _
" 'PERSOY' AS AlanAdi" & "," & _
" itLastPersonel.PERSOY" & "," & _
" itNewPersonel.PERSOY" & _
" FROM itLastPersonel" & _
" INNER JOIN itNewPersonel ON itLastPersonel.SICNO = itNewPersonel.SICNO" & _
" WHERE (((itLastPersonel.PERSOY)<>[itNewPersonel].[PERSOY]));"
strSQL = strSQL_perad & " UNION ALL " & strSQL_persoy
Me.Liste0.RowSource = strSQL
Me.Liste0.Requery
End Subbu sadece iki alan için böyle Oysa ki tabloda en az 30 alan var
herbir alanın değişip değişmediğini kontrol edip listelemek lazım
çok farklı yolları olabilir ama ben tablo alanlarını döngü içerinde Sql satırına eklemek istiyorum
nasıl yapmam lazım
Kod:
Dim l As Integer
For l = 0 To CurrentDb.TableDefs("tbl_Name").Fields.Count - 1
Debug.Print CurrentDb.TableDefs("tbl_Name").Fields(l).name
Next l