Excelde Maliyet Hesaplama Programı

[by_ufuk]

Tabi, raporlama da yaparız.

Tamamdır o zaman 

[Bülent Öztürk]

Merhaba Ufuk Bey,

Kullanıcı yetki ayarlarını nasıl yapalım?
Hangi yetkiler seçmeli olacak?

[by_ufuk]

Merhaba Ufuk Bey,

Kullanıcı yetki ayarlarını nasıl yapalım?
Hangi yetkiler seçmeli olacak?

Merhaba Bülent Bey,
Kullanıcı yetki sayfasını sadece admin görecek şekilde ayarlayarak. Geriye kalan tüm bölümlerde seçmeli ayarlama yapılabilir.

[Bülent Öztürk]

Yetkileri sayfa bazında mı yapalım yine?

[by_ufuk]

Yetkileri sayfa bazında mı yapalım yine?

Evet Olabilir

[Bülent Öztürk]

Merhaba Ufuk Bey,

Rapor ekranı hariç sanırım kabaca toparladık.

İnceleyip neticeyi bildirebilir misiniz?

[Forum yazılım güncelleme esnasında sorun oluştuğundan eklendi silinmiştir.]

[by_ufuk]

Merhaba Ufuk Bey,

Rapor ekranı hariç sanırım kabaca toparladık.

İnceleyip neticeyi bildirebilir misiniz?

Merhaba Bülent Bey,
Yeni bir reçete açmaya çalıştığım zaman TCMB kurlarını online alıyorum ve yarımamülleri tanımlamaya başlıyorum ancak "Kalem Ekle" butonuna bastığım zaman "Run-time error '13': Type mismatch" hatasını alıyorum. Hatayı sorguladığım zaman  blntUSD = blntUSD + CDbl(lstExcelceMaliyet.List(blnt, 7)) satırını gösteriyor.

[Bülent Öztürk]

Döviz bilgisi alanlarında ondalık ayırıcı olarak nokta mı görünüyor sizde, virgül mü?

[by_ufuk]

Döviz bilgisi alanlarında ondalık ayırıcı olarak nokta mı görünüyor sizde, virgül mü?

Virgül görünüyor.

[Bülent Öztürk]

Hata veren satıra, F9 ile BreakPoint koyup işlemi yapmaya çalışın, kod çalışması işaretli satırda durduğunda kodların üzerine gelip değişkenlere atanan değerlere bakıp F8 ile adım adım ilerleyin bakalım hata sebebini görebilecek miyiz?

Programı evde 2007 versiyonda yapıp, işyerinde 2003'te denedim, hata vermedi bende...

Önce ilgili kodu şu şekilde değiştirebilir misiniz?

Kod: [Seç]

Private Sub maliyethesapla()
'KALEM LİSTESİ HER DEĞİŞTİĞİNDE TOPLAM MALİYETİ YENİDEN HESAPLA
For blnt = 0 To lstExcelceMaliyet.ListCount - 1
    blntTL = blntTL + CDbl(lstExcelceMaliyet.List(blnt, 6))
    blntUSD = blntUSD + CDbl(lstExcelceMaliyet.List(blnt, 7))
    blntEUR = blntEUR + CDbl(lstExcelceMaliyet.List(blnt, 8))
Next blnt
txtTOPLAMTL = blntTL
txtTOPLAMUSD = blntUSD
txtTOPLAMEUR = blntEUR

Set conExcelce = CreateObject("ADODB.CONNECTION")
conExcelce.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & ThisWorkbook.Path & Application.PathSeparator & vt '& ";Jet OLEDB:Database Password=" & "vtsifresi"
RECETE_GETIR = "SELECT * FROM [tblRecete] WHERE RECETE='" & cbRECETE & "'"
Set rs_getir = CreateObject("ADODB.RECORDSET")
rs_getir.Open RECETE_GETIR, conExcelce, 1, 3
If rs_getir.RecordCount = 0 Then
    txtEXMALTL = 0
    txtEXMALUSD = 0
    txtEXMALEUR = 0
Else
    txtEXMALTL = rs_getir("TOPLAM_MALIYET_TL")
    txtEXMALUSD = rs_getir("TOPLAM_MALIYET_USD")
    txtEXMALEUR = rs_getir("TOPLAM_MALIYET_EUR")
End If
End Sub

[by_ufuk]

Az önceki hata şuan düzeldi,ancak şimdide "Kalem Ekle" butonuna basınca "Run-time error '3021': Ya BOF ya da EOF Doğru veya geçerli kayıt silinmiş. İstenen işlem geçerli bir kayıt gerektiriyor." hatasını alıyorum.

[Bülent Öztürk]

BOF ya da EOF hatası için yukarıdaki kodları kullanın.

İlk hata nasıl düzeldi?

[by_ufuk]

BOF ya da EOF hatası için yukarıdaki kodları kullanın.

İlk hata nasıl düzeldi?

Rar dosyasından tekrar çıkarttım ve yeniden denedim bir hata çıkmadı,aynı anda başka bir excel dosyasıda açıktı belki onunla ilgili bir bağlantısı olmuş olabilir.

[by_ufuk]

BOF ya da EOF hatası kodları güncelleyince düzeldi.

Reçeti kaydettikten sonra, eklenen yarı mamüllerde miktarında yada kodunda bir değişiklik yapılamıyor. Sadece yeni yarımamül eklenebiliyor. Daha önceden reçeteye eklenen yarı mamüller zaman içinde değişebilir,bu sebeple hem yarımamül ün değişikliği hemde miktar kısmının değişikliği aktif olması lazım. Ve istenilen yarı mamül reçeteden kaldıralıbilmelidir.

[Bülent Öztürk]

Yarımamul değişikliği için listeden seçileni DEL ile silip, yenisini ekleyerek yapabilirsiniz.