Güncel link olan arkadaş varmı?

merhaba

dosya açılmıyor ama nasıl alabilirim

mail atma şansınız varmı acaba

GIB'ten güncellenmis olmali (toplam kayit sayisina bakin) güncel degil ise

'degil' yazabilir. (bu sorguyu e-fatura kullanmayan bir netsis veritabaninda çalistiriyor olabilirsiniz)

e FATURA olan cariyi  e fatura degil olarak yaziyor.

sbebi neden kaynakli olabilir.

Tesekkürler.

Tesekkür ederim.

Bu tabloyu direkt excele aldirabilirmiyiz.

Elimde bir kod var ama çalistiramiyorum.

Private Sub CommandButton1_Click()
Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim SqlText As String
With conn
    .Provider = "sqloledb"
    .CommandTimeout = 120
    .ConnectionString = "Data Source=" & Sheet1.Cells(4, 5).Value & ";USER ID=" & Sheet1.Cells(8, 5).Value & ";PASSWORD=" & Sheet1.Cells(10, 5).Value & ";AUTO TRANSLATE=FALSE"
    .Open
    .DefaultDatabase = Sheet1.ComboBox1.Text
    End With
    
    

bu alan

    
        
    If Sheet15.Cells(1, 3).Value <> "" Then
        SqlText = SqlText + "  And Grup_Kodu ='" & Sheet15.Cells(1, 3).Value & "'"
    End If
       
    If Sheet15.Cells(2, 3).Value <> "" Then
        SqlText = SqlText + "  Where PLASIYER_KODU ='" & Sheet15.Cells(2, 3).Value & "'"
    End If
       
       
   SqlText = SqlText + " ORDER BY Cari_Kod ASC "
       
       
    rs.Open SqlText, conn, adOpenStatic, adLockReadOnly
    Sheet15.Range("B7:H10000").ClearContents
    Sheet15.Activate
    i = 7
    Do While Not rs.EOF
        Sheet15.Cells(i, 2).Value = rs(0)
        Sheet15.Cells(i, 3).Value = rs(1)
        Sheet15.Cells(i, 4).Value = rs(2)
        Sheet15.Cells(i, 5).Value = rs(3)
        Sheet15.Cells(i, 6).Value = rs(4)
        Sheet15.Cells(i, 7).Value = rs(5)
        Sheet15.Cells(i, 8).Value = rs(6)
       
       
        rs.MoveNext
        i = i + 1
    Loop
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub

Error in SELECT clause: expression near '.'.
Missing FROM clause.
Unable to parse query text.

bu sekilde bir hata mesaji aliyorum.

Kodu asagidaki sekilde güncelledim.

Sorun nerede acaba.

ayni vergi no yada tc ye sahip carinin tek satirda çiksin istiyorum.

SELECT DISTICT    Cari.CARI_KOD, Cari.CARI_ISIM, CASE WHEN EFatCari.IDENTIFIER IS NOT NULL THEN 'eFaturaMükellefi' ELSE 'Degil' END AS EFAT, Cari.CARI_ADRES,
                      Cari.CARI_ILCE, Cari.VERGI_DAIRESI, Cari.VERGI_NUMARASI, Cari.CARI_TEL, Cari.CARI_IL, Cari.GRUP_KODU, Cari.RAPOR_KODU1, Cari.RAPOR_KODU2,
                      Cari.RAPOR_KODU3, Cari.RAPOR_KODU4, Cari.RAPOR_KODU5, Cari.DETAY_KODU, Cari.PLASIYER_KODU, Cari.ACIK3, Cari.ACIK2, Cari.ACIK1, Cari.VADE_GUNU,
                      Cari.CM_BORCT, Cari.CM_ALACT, Cari.CM_RAP_TARIH, Cari.TEMINATI, Cari.RISK_SINIRI, Cari.NAKLIYE_KATSAYISI, Cari.ISLETME_KODU, Cari.SUBE_KODU,
                      Cari.ULKE_KODU, Cari.CARI_TIP, Cari.FAX, Cari.POSTAKODU, Cari.CARISK, Cari.SARISK, Cari.CCRISK, Cari.SCRISK, Cari.KOSULKODU, Cari.ISKONTO_ORANI,
                      Cari.LISTE_FIATI, Cari.M_KOD, Cari.DOVIZ_TIPI, Cari.DOVIZ_TURU, Cari.HESAPTUTMASEKLI, Cari.DOVIZLIMI, Cari.UPDATE_KODU, Cari.LOKALDEPO, Cari.EMAIL,
                      Cari.WEB, Cari.KURFARKIBORC, Cari.KURFARKIALAC, Cari.S_YEDEK1, Cari.F_YEDEK1, Cari.S_YEDEK2, Cari.F_YEDEK2, Cari.C_YEDEK1, Cari.C_YEDEK2,
                      Cari.B_YEDEK1, Cari.I_YEDEK1, Cari.L_YEDEK1, Cari.FIYATGRUBU, Cari.KAYITYAPANKUL, Cari.KAYITTARIHI, Cari.DUZELTMEYAPANKUL, Cari.DUZELTMETARIHI,
                      Cari.ODEMETIPI, Cari.ONAYTIPI, Cari.ONAYNUM, Cari.MUSTERIBAZIKDV, Cari.AGIRLIK_ISK, Cari.CARI_TEL2, Cari.CARI_TEL3, Cari.FAX2, Cari.GSM1, Cari.GSM2
FROM         dbo.TBLCASABIT AS Cari INNER JOIN
                      dbo.TBLCASABITEK AS CariEk ON Cari.CARI_KOD = CariEk.CARI_KOD LEFT OUTER JOIN
                      NETSIS.dbo.EFATCARI AS EFatCari ON COALESCE(CariEk.TCKIMLIKNO, Cari.VERGI_NUMARASI)=EFatCari.IDENTIFIER

select 'ten sonra DISTINCT 

ilave edin,

seklinde yazim'da bir sorun olabilir. TCKIMLIKNO ve VERGI_NUMARASI ni 

ON COALESCE(CariEk.TCKIMLIKNO, Cari.VERGI_NUMARASI)=EFatCari.IDENTIFIER