Grafik Kodlamada Hata Alıyorum - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html) +--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html) +--- Konu Başlığı: Grafik Kodlamada Hata Alıyorum (/konu-grafik-kodlamada-hata-aliyorum.html) |
Grafik Kodlamada Hata Alıyorum - merttr07 - 25/08/2020 Function GrafikKaynak(TabloAdi As String, AyAdi As String, GrafAdi As String) connection_open sql1 = "select * from " & TabloAdi & " where format(tarih,'m.yyyy')='" & AyAdi & "';" rsGrf.Open sql1, conn, adOpenKeyset, adLockPessimistic Worksheets(TabloAdi).Cells.Clear Worksheets(TabloAdi).Range("A1").CopyFromRecordset rsGrf 'debug.print "rsGrf.Fields.Count", rsGrf.Fields.Count Dim AlanSay As Integer For AlanSay = 1 To rsGrf.Fields.Count 'debug.print "rsGrf(AlanSay - 1).Name : ", AlanSay, rsGrf(AlanSay - 1).Name Worksheets(TabloAdi).Cells(1, AlanSay).Value = rsGrf(AlanSay - 1).Name Next AlanSay Worksheets(TabloAdi).Range("A2").CopyFromRecordset rsGrf 'hy ListView veri ekle With grafik.ListView1 For i = 0 To rsGrf.Fields.Count - 1 .ColumnHeaders.Add , , rsGrf.Fields(i).Name Next i End With If rsGrf.RecordCount > 0 Then rsGrf.MoveFirst Dim lw_rec As ListItem With grafik.ListView1 .ListItems.Clear Do While Not rsGrf.EOF Set lw_rec = .ListItems.Add(, , rsGrf.Fields(0).Value) For X = 1 To rsGrf.Fields.Count - 1 lw_rec.SubItems(X) = IIf(IsNull(rsGrf.Fields(X).Value), "0", rsGrf.Fields(X).Value) Next X rsGrf.MoveNext Loop .FullRowSelect = True .Gridlines = True .View = lvwReport End With rsGrf.Close conn.Close 'hy UserForm Grafik ekleme________________________ Dim sTempFile As String Dim sChartName As String Dim oChart As Chart 'BARAJ KOTU DEĞİŞİM GRAFİĞİ sTempFile = Environ("temp") & "\temp.gif" Debug.Print GrafAdi Set oChart = Worksheets("örnekgrafik").ChartObjects(CStr(GrafAdi)).Chart oChart.Export Filename:=sTempFile, FilterName:="GIF" grafik.Image3.Picture = LoadPicture(sTempFile) Kill sTempFile MsgBox "bitti" End Function Kalın punto ile yazılan yerde butona bastığımda hata alıyorum sürekli RE: Grafik Kodlamada Hata Alıyorum - merttr07 - 25/08/2020 Bir gün önce çalışıyordu şimdi hata veriyor kodlar anlamadım gerçekten RE: Grafik Kodlamada Hata Alıyorum - merttr07 - 25/08/2020 Grafikte bi hata veriyor birde vermiyor anlamadım gerçekten. grafik.Image3.Picture = LoadPicture(sTempFile) burada hata veriyor kapatıp açıyorum bir iki grafik geliyor sonra hata veriyor Sonra açtıklarında da hata vermeye başlıyor. RE: Grafik Kodlamada Hata Alıyorum - berduş - 26/08/2020 Export komutundan kaynaklanan bir sorun galiba, resimler 0 boyutlu yani hatali oluştuğundan resim yüklenmediği için hata veriyor. Ama henüz çözümü bulamadim RE: Grafik Kodlamada Hata Alıyorum - merttr07 - 26/08/2020 Çok az sorunlar kaldı çöze bilsem gerçekten sıkıntılar bitecek .Sorun hala devam etmekte RE: Grafik Kodlamada Hata Alıyorum - merttr07 - 26/08/2020 Grafikte en son attığınızda oChart.Activate bu kısımdan arıza verdi onu silince ilk olan garfiği gösteriyor sonrası yine yok |