Tags
Author: aydın3838 - Replies: 12 - Views: 4060
değişkendeki sorgudan toplam almak
selam

örneğin bir değişkenimiz var giristoplamial adında bu değişkene bir sorgu atasam bu değişkendeki toplam alanını metin kutusuna alabilirmiyim
Kod:
dim giristoplamial as string
giristoplamial = (SELECT Sum(KasaHareket.GirisTutar) AS ToplaGirisTutar, IslemTipler.ilgisi
FROM IslemTipler
INNER JOIN KasaHareket ON IslemTipler.KonuNo = KasaHareket.IslemTip
GROUP BY IslemTipler.ilgisi
HAVING (((IslemTipler.ilgisi)="kasagiris"));)
giris = giristoplamial
Author: orhan418 - Replies: 3 - Views: 1439
değişkendeki veriyi kaydetme
Private Sub kaydet_Click()
If ([yili] = "" Or [donemi] = "") Then
If MsgBox("LÜTFEN ALANLARI TAM OLARAK DOLDURUNUZ..", vbOKOnly) = vbOK Then
[yili] = ""
[donemi] = ""
[no] = ""
End If

Else
If MsgBox("YENİ KAYIT EKLENECEK..", vbYesNo) = vbYes Then
Dim kurs As String
Dim donem As Integer
donem = 0
kurs = Forms!KURS_DONEMI!donemi
If (kurs = "1.dönem") Then
donem = 1
ElseIf (kurs = "2.dönem") Then
donem = 2
End If
With DoCmd
.SetWarnin