accesste raporlamada toplamların kod ile yapılması

[farukCE]

Merhaba arkadaşlar

yapmış olduğum raporda formüllerden dolayı alt toplamları alamıyorum yardımcı olacak arkadaşlara şimdiden teşekürler...

buna benzer birçok raporum var düzenlemem gereken ....

 

[Taruz]

Metin23 ün Denetim Kaynağını,

=Topla([RUHSAT]+[NAKİL]+[ÖTV]+[BANDROL]+[ESKİBORC]+[PBAGIS]+[NOTERMASRAFI]+[SİGORTA]+[TESCİ DOSYASI]+[MUAYENE]+[YOL]+[PLAKACEMİYET]+[PLAN]+[TESCİÜCRETİ])

ile değiştirin toplamları alırsınız..

 

[farukCE]

çok teşekür ederim sayın TARUZ ..... raporlamada alt toplamları yaptım yanlız sorgu raporlamada sağa ve sola + alt toplamları aynı şekilde yapamıyorum parameter değeri girini diye mesaj veriyor bu konuyla ilgilide nası bir yol izlemem gerek yardımlarınızı bekliyorum

 

[farukCE]

çok teşekür ederim sayın TARUZ ..... raporlamada alt toplamları yaptım yanlız sorgu raporlamada sağa ve sola + alt toplamları aynı şekilde yapamıyorum parameter değeri girini diye mesaj veriyor bu konuyla ilgilide nası bir yol izlemem gerek yardımlarınızı bekliyorum

 

[Taruz]

Kusura bakmayın cevabım biraz geç oldu..

çok teşekür ederim sayın TARUZ ..... raporlamada alt toplamları yaptım yanlız sorgu raporlamada sağa ve sola + alt toplamları aynı şekilde yapamıyorum parameter değeri girini diye mesaj veriyor bu konuyla ilgilide nası bir yol izlemem gerek yardımlarınızı bekliyorum

Merhaba..

Sorunuzu biraz açabilir misiniz? Hangi sorguda, ne yapmak isterken problem çıkıyor?

Saygılar..

 

[farukCE]

merhaba sayın tarzu
daha önceki problemleri çödüm yanlız iki problemi çözemiyorum konu ile ilgili yardımlarınızı bekliyorum şimdiden teşekürler ..

1 . hatalı kayıt yapmayı engelemek için ne yapmalıyım
örnek: proğramdan çıkışta kaydetmek istiyormusunu gibi bir soru evet veya hayır gibi
2. ekteki proğramda firmaya ait hesap sorgularken yanlızca bakiyesi olan kayıtları nasıl sorgulaya bilirim . hesabı '0' olan kayıtları raporlamak istemiyorum konuyla ilgili yardımlarınızı bekliyorum
saygılarımla..

 

[Taruz]

Merhaba..

1. Bunun bir kaç yöntemi, seçeneği var (Şarta bağlamak gibi)

Düz yol:

Formunuzun Özellikler/Biçim/Denetim Kutusu seçeneğini Hayır olarak belirleyin.
Forma bir düğme ekleyip tıklatıldığında olay yordamına

C = MsgBox("Formu Kapatmak İstiyor musunuz?", vbYesNo + vbQuestion, "ANIL MUHASEBE")
If C = vbNo Then
Cancel = True
ElseIf C = vbYes Then
DoCmd.Close
End If

yazın, direkt çıkışı engeller.

2. Sorgunuzdaki toplam alanının ölçütüne

>0

yazın bakiyesi olmayanları göstermezsiniz.

Saygılar..

 

[farukCE]

Sayın taruz mrb.

öncelikle çok teşekür ederim yardımlarınızdan dolayı ...

sorguda ölçüt kısıman gerekli işlemi yazdım fakat istediğim sonucu alamdım veya yanlış yazıyor olabilirim. Çok uğraştım amam istediğim sonucu alamdım
ekteki proğramda üç adet kayıt girdim var bunlardan iki tanesinin hesap bakiyeleri sonuçu '0' bir tanesinin ise bakiyesi var
sorgu yaptığımda ilgili firmadan bakiyesi 0 olan kayıtların gelmesini istemiyorum yanlızca bakiyesi olan kayıtları göremek istiyorum bununla ilgili gerekli düzenlemeyi veya bir örnekle proğram üzerinde yapmanız mümkünmüdür şimdiden teşekürrler

saygılarımla ...
faruk

 

[Taruz]

Sn farukCE,

Siz sorgunuzda alt toplamlar aldığınız için sıkıntı olmuş. Yukarıdaki önerimi ilk sorgunuzdan yeni bir sorgu oluşturarak gerçekleştirdim. Tabii başka yolları da var ama çalışmanızın temeli ile oynamak lazım, gerekde yok sanırım..

Saygılar..

 

[farukCE]

Sn TARUZ,

Üstadım size bir sorum daha olacak
müşteri bilgileri kısmında...GÖNDEREN FİRMA bölümünü açılır kutu şeklinde yapmak istiyorum gönderen firmayı seçtiğimde hemen alttarafta bulunan vergi dairesi tel ve ilgili kutucuklara gönderen firmaya ait bilgilerin gelmesini nasıl sağlarım yardımlarınızı bekliyorum şimdiden teşekürler ..

Hayırlı Seneler Diliyorum

 

[Taruz]

Merhaba

Bunun için tablo yapılarında değişiklik yapmak gerekiyordu; değiştirdim

Bir sorgu yapıp, form üzerinde gösterdim..

Yapıyı inceleyin, diğer sorgularınıza uygularsınız.

Saygılar, iyi seneler :hey:

 

[farukCE]

Sayın taruz

öncelikle yardımlarınızdan dolayı çok teşekürler ....
size bir sorum daha olacak yardım ederseniz çok sevinirim
yapmış olduğum proğramda sonuçlanan kaydın kapatılmasını; örnek A şirketinin hesaplarını kapattım bakiye 0 artık o kayıt üzerinde herhangi bir işlemin yapılmamsını ve kaydın silinememsi engellemek veya o kaydı kilitlemek için yapmam gerekenler konusunda yardımlarınızı bekliyorum

saygılar

 

[Taruz]

Merhaba..

Sn. kucuksengun' e ait, benzer bir soruda isteğinizle örtüşen, hatta bir kaç versiyonlu bir çözüm var.. Çalışmanıza uyarlayabilirsiniz..

Link:

Arşive Gönder..

 

[farukCE]

Sayın Taruz
arşivleme ile ilgili örneklere baktım fakat uyarlayamadım benim örnek dosymanın üstünde basıt bir örnek gösterirseniz sevinirmi şimdiden teşekürler

 

[Taruz]

Merhaba..

Linkteki örnek(ler) çok açık aslında.. Sıkıntı nerede oldu? Ya da takıldığınız bölümle ilgili örneği ekleyin, inceleyelim..

Saygılar..

 

[farukCE]

sayın Taruz

öncelikle teşekürlerimi iletiyorum ...

ekli dosyada bulunan muhasebe bölümünde arşivle diye bir buton oluşturdum...
bundan sonrası için çok uğraştım fakat başaramadım yardımıcı olursanız sevinirim..

saygılar.

 

[Taruz]

Sayın farukCE

Çalışmanızda, uğraştığınıza dair bir iz bulamadım.. Düğmeyi saymazsak tabii

O sebepten en baştan alıyoruz:

Müşteri tablonuza gidin Arşiv adında metin türünde bir alan, onay adında da Evet - hayır türünde bir alan daha ekleyin..

Form üzerine bu iki alanı ekleyin..

onay kutusunun güncelleme sonrasına

Me.Requery

Arşivle düğmesinin güncelleme sonrasına

On Error GoTo Beab
  Dim ws As DAO.Workspace   'Current workspace (for transaction).
  Dim db As DAO.Database    'Inside the transaction.
  Dim bInTrans As Boolean   'Flag that transaction is active.
  Dim strSql As String      'Action query statements.
  Dim strMsg As String      'MsgBox message.
  'Step 1: Initialize database object inside a transaction.
  Set ws = DBEngine(0)
  ws.BeginTrans
  bInTrans = True
  Set db = ws(0)
  'Step 2: ( Musterino,karsitaraf,mahkemesi ) buraya istediğiniz alanları yazın
  strSql = "INSERT INTO arsiv ( [COLOR=red][kimlik],[ADISOYADI/ÜNVANI],[POLİÇE NO][/COLOR] ) " & _
    "SELECT [kimlik],[ADISOYADI/ÜNVANI],[POLİÇE NO] FROM [MÜŞTERİ BİLGİLERİ] WHERE (onay = True);"
  db.Execute strSql, dbFailOnError
  'Step 3: Execute the delete.
  strSql = "DELETE FROM [MÜŞTERİ BİLGİLERİ] WHERE (onay = True);"
  db.Execute strSql, dbFailOnError
  'Step 4: Get user confirmation to commit the change.
  strMsg = "Arşivlenecek " & db.RecordsAffected & " kayıt var.."
  If MsgBox(strMsg, vbOKCancel + vbQuestion, "Lütfen Onaylayın") = vbOK Then
    ws.CommitTrans
    bInTrans = False
  End If
Exit_DoArchive:
  'Step 5: Clean up
  On Error Resume Next
  Set db = Nothing
  If bInTrans Then   'Rollback if the transaction is active.
    ws.Rollback
  End If
  Set ws = Nothing
  Me.Requery
 
Exit Sub
Beab:
  MsgBox Err.Description, vbExclamation, "Archiving failed: Error " & Err.Number
  Resume Exit_DoArchive

yazın.. ( Bu, sayın beab05'in linkini verdiğim konuya çözüm getiren kod kümesidir. Kendisine teşekkür ederiz )


Bitmediii...

Yeni bir tablo yapın, ismi arsiv olsun..

Alanları üstteki kodda kırmızı ile belirtilen alanlar olsun. (Müşteri tablonuzdan da alabilirsiniz)

Referanslardan Microsoft DAO 3.6 Object Library 'i de ekleyin..

Tamamdır..

Şimdi Arşivle düğmesine basabilirsiniz..

 

[farukCE]

sayın Hocam çok teşekürler ..

çalışmamda arşivle düğmesinin altına baya yazdım faka onaları tekrar sildim karışıklık olmasın diye... hazırcı olmamaya çalışıyorum yanlış anmayaın lütfen emeğinize sağlık sizden çok şey öğrendim çok teşekürler ..
size bir sorum daha olacak yadım ederseniz sevinirim..
sorum şöyle arşivlediğim bilgileri tekrer [MÜŞTERİ BİLGİLERİ] formunda nasıl görebilirim ve arşivmden genel bir raporlama nasıl yapabilirim ...
saygılarımla..

 

[Taruz]

Merhaba..

Geri gelecekse silmenin anlamı ortadan kalkıyor zaten.. Sonradan raporla veya formla görüntülemek istediğinizde arsiv tablosu orada zaten.. Tüm silinenler orada toplanıyor..

 

[farukCE]

merhaba Sayın Taruz

teşekür ederim ... şöyle birşey yapabilirmiyiz arşiv tablosuna 20 adet alan yapabilirmiyiz ...
arşivden rapor veye sorgu aldığımda yanlızca adısoyadı/ünvanı ve poliçe numarası görebiliyorum ..
örnek üzerinden alan kayıtlarını 20 adet olarak düzenlediğimde arşivlemede hata oluşuyor .. yanlızca 3 alan açlıdığında arşiv çalışıyor alanları arttırdığımızda hata veriyor bu alanları arttırabilrsem problemi çözmüş olacağım yardımlarınızı bekliyorum
saygılar.