Private Sub cboSevkTar_AfterUpdate()
 
Dim srg1
srg1 = "SELECT G.Kimlik, G.[Sevk Tarihi], TB.[Tank Kodu], F.[Kısa Ad] AS [Alıcı Firma Adı], " & _
            "KI.[Adı Soyadı], AT.[ATIK ADI], N.[Plaka No], N.[Lisans No], G.[UATF No] " & _
        "FROM (((([Genişletilmiş Sevk ve İrsaliye] AS G LEFT JOIN [Nakliye Araç Tablosu] AS N ON " & _
            "G.[Dorse Plaka] = N.Kimlik) INNER JOIN Firmalar AS F ON G.[Alıcı Firma] = F.Kimlik) " & _
            "INNER JOIN [Sevk Parti Bilgileri Tbl] AS SP ON G.[Sevk Parti (Tank)] = SP.Kimlik) " & _
            "INNER JOIN [Kişiler İlişkili] AS KI ON G.[Şoför Adı] = KI.Kimlik) INNER JOIN ([Tank Bilgileri Tablosu] AS TB " & _
            "INNER JOIN [Atık Listesi] AS [AT] ON TB.[Atık Kodu] = AT.Kimlik) ON SP.[Tank Kodu] = TB.Kimlik " & _
        "WHERE (((G.[Sevk Tarihi]) = #" & format(Me.SevkTar, "dd\/mm\/yyyy") & "#));"
 
Me.Liste.RowSource = srg1
Me.Liste.Requery
 
End Sub