DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
=Topla([RUHSAT]+[NAKİL]+[ÖTV]+[BANDROL]+[ESKİBORC]+[PBAGIS]+[NOTERMASRAFI]+[SİGORTA]+[TESCİ DOSYASI]+[MUAYENE]+[YOL]+[PLAKACEMİYET]+[PLAN]+[TESCİÜCRETİ])
Merhaba..ç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
C = MsgBox("Formu Kapatmak İstiyor musunuz?", vbYesNo + vbQuestion, "ANIL MUHASEBE")
If C = vbNo Then
Cancel = True
ElseIf C = vbYes Then
DoCmd.Close
End If
>0
Me.Requery
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