Kod:
Private Sub Komut3_Click()
Dim strSQL, strSQL_perad, strSQL_persoy As String
strSQL_perad = "SELECT" & _
" itLastPersonel.SICNO" & "," & _
" itLastPersonel.PERAD" & "," & _
" itNewPersonel.PERAD" & _
" FROM itLastPersonel" & _
" INNER JOIN itNewPersonel ON itLastPersonel.SICNO = itNewPersonel.SICNO" & _
" WHERE (((itLastPersonel.PERAD)<>[itNewPersonel].[PERAD])) "
strSQL_persoy = "SELECT" & _
" itLastPersonel.SICNO" & "," & _
" 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 Subilk ikisi PERAD son ikisi PERSOY alanından geliyor fakat görüldüğü gibi hangi satırların nereden geldiği belli değil
sicilno ile isim sutunu arasına bir sutun ekleyip orada hangi satırın hangi sorgudan geldiğini göstermek istiyorum
yani şöyle olacak
1016 PERAD SÜLEYMAN SÜLEYMANİYE
1108 PERSOY ALTAY ALTAYCAN
"PERAD" ve "PERSOY" kelimelerini nasıl ekleyebilirim
