Sql Sorguda Alan Adına Ek Yapmak

24/04/2020, 13:32

accessman

iyi günler hayırlı cumalar hayırlı ramazanlar
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 Sub
bu kod ile resimdeki gibi birleşme sorgusu yapıyorum

ilk 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
24/04/2020, 14:05

accessman

Kod:
" 'PERSOY' AS AlanAdi" & "," & _
Bunu eklemem gerekiyormuş