AccessTr.neT
if then else sorsusu - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: if then else sorsusu (/konu-if-then-else-sorsusu.html)



if then else sorsusu - kazanovaykut - 27/04/2014

merhaba arkadaslar accessde kargo takip programı yapmaya calısıyorum biyerde takıldım.

eger acılan kutu56 (gonerim sekli) TIR secilirse
metin67'ye (odenen tutara)
metin52 (kg) * 6 ile carpıp metin 67 ye yazmasını

eger kutu56 (gonerim sekli) UCAK secilirse
metin67'ye (odenen tutara)
metin52 (kg) * 9,5 ile carpıp metin 67 ye yazmasının istiyorum.

Açılan Kutunun AfterUpdate Olayına;

Metin67=""
Metin52=""
If Açılan Kutu56.value = "TIR" Then
Metin67.Value = metin52*6
Elseif Açılan Kutu56.value = "UCAK" Then
Metin67.Value = metin52*9,5
Else
End If

boyle yazlıyorum ama hata veriyor.
ekte dosyayı gonderiyorum kargo takip alt forumunda gerekli degisikligi yapmam gerekli.

yardımcı olurmusunuz üstadlar


Cvp: if then else sorsusu - akdemir1 - 27/04/2014

Bu alt form program açıldığında tam olarak nerede acaba.?


Cvp: if then else sorsusu - POWER - 27/04/2014

İncelermisiniz...

Lütfen olumlu veya olumsuz geri dönüş yapınız...


Cvp: if then else sorsusu - atoz112 - 27/04/2014

merhaba sayın kazanovaykut,

seçime göre işlem yapmak için select...case komutunu kullanabilirsiniz.

acılan kutu56'nın güncelleme sonrasında olayına aşağıdaki kodu ekleyerek sonucu elde edebilirsiniz.

Select Case Açılan_Kutu56
Case "TIR"
Me.Metin67 = Me.Metin52 * 6
Case "UCAK"
Me.Metin67 = Me.Metin52 * 9.5
End Select

iyi çalışmalar,
saygılar.


Cvp: if then else sorsusu - kazanovaykut - 27/04/2014

saygıdeger ustadlar yardımlarınız icin coktesekkür ederim özellikle POWER ve ATOZ ustam elleriniz dert gormesi cok saolun, tamda istedigim buydu..


Cvp: if then else sorsusu - ozanakkaya - 29/04/2014

(27/04/2014, 22:42)akdemir1 yazdı: Bu alt form program açıldığında tam olarak nerede acaba.?

Site kurucusu olarak bende akdemir1'e yardımcı olma çabasından dolayı teşekkür ediyorum.