AccessTr.neT

Tam Versiyon: if then else sorsusu
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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
Bu alt form program açıldığında tam olarak nerede acaba.?
İncelermisiniz...

Lütfen olumlu veya olumsuz geri dönüş yapınız...
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.
saygıdeger ustadlar yardımlarınız icin coktesekkür ederim özellikle POWER ve ATOZ ustam elleriniz dert gormesi cok saolun, tamda istedigim buydu..
(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.