DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Ricanız(!) başım üstüne..ekteki örnekde sabit olan 2 adet malzeme kartının Firma içinde malzeme toplamını istiyorum sizden
SELECT [Ana Sayfa].[Malzeme Adı], [Ana Sayfa].[Firma Adı], Sum([Ana Sayfa].Adet) AS ToplaAdet, Sum([Ana Sayfa].Tutar) AS ToplaTutar, Sum([ADET]*[TUTAR]) AS HESAP, [Kişisel Bilgileri].[Kişi Adı Soyadı], [Kişisel Bilgileri].Adres, [Kişisel Bilgileri].[Tel No]
FROM [Kişisel Bilgileri] INNER JOIN [Ana Sayfa] ON [Kişisel Bilgileri].[Firma Adı] = [Ana Sayfa].[Firma Adı]
GROUP BY [Ana Sayfa].[Malzeme Adı], [Ana Sayfa].[Firma Adı], [Kişisel Bilgileri].[Kişi Adı Soyadı], [Kişisel Bilgileri].Adres, [Kişisel Bilgileri].[Tel No]
HAVING ((([Ana Sayfa].[Firma Adı])=[FormS]![ANA SAYFA]![Firma Adı]));
=DSum("[HESAP]";"[SORGU1]";"[MALZEME ADI]='KALEM'")
=DSum("[HESAP]";"[SORGU1]";"[MALZEME ADI]='SİLGİ'")
=DSum("[HESAP]";"[SORGU1]")
Private Sub Liste13_DblClick(Cancel As Integer)
'Find a selected record, then close the search dialog box
'DoCmd.OpenForm "1 Ana Sayfa", , , _
"[Çeker Plaka]=" & "'" & Me.Liste13.Column(0) & "'"
DoCmd.OpenForm "1 Ana Sayfa", , , "[Çeker Plaka]=" & "'" & Me.Liste13.Column([COLOR=red]1[/COLOR]) & "'"
'Close the dialog box
DoCmd.Close acForm, "Çeker Plaka Sorgulama Arıza"
End Sub