if then else sorsusu
Tarih
27/04/2014 22:19
Konu Sahibi
kazanovaykut
Yorumlar
5
Okunma
917
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
kazanovaykut
Üye
Kullanici Avatari
Üye
33
6
15/11/2008
0
Ülke Dışı
Ofis 2003
30/05/2014,15:30
Çözüldü 
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


Ek Dosyalar
.rar   MUSTERI TAKIP2.rar (Dosya Boyutu: 877,72 KB / İndirme Sayısı: 5)
Cevapla

akdemir1
Aktif Üye
Kullanici Avatari
Aktif Üye
T.... S....
189
05/06/2011
11
Erzurum
Ofis XP
26/01/2017,21:08
Çözüldü 
Sponsor Reklam
Bu alt form program açıldığında tam olarak nerede acaba.?
HAYAT BİR SINAVSA,,,
ADIMI YAZAR ÇIKARIM..
.
Cevapla

POWER
Uzman
Kullanici Avatari
Uzman
U.... Ö....
1.859
02/04/2010
İzmir
Ofis 2003
Bugün,01:14
Çözüldü 
İncelermisiniz...

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


Ek Dosyalar
.zip   MUSTERI TAKIP2.zip (Dosya Boyutu: 1,47 MB / İndirme Sayısı: 7)
Please return your positive or negative ...
Cevapla

atoz112
Uzman
Kullanici Avatari
Uzman
5.716
04/08/2009
İstanbul
Ofis 2007
21/05/2017,18:47
Çözüldü 
Sponsor Reklam
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.

Visual Basic Code
1
2
3
4
5
6
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.

Cevapla

kazanovaykut
Üye
Kullanici Avatari
Üye
33
6
15/11/2008
0
Ülke Dışı
Ofis 2003
30/05/2014,15:30
Çözüldü 
saygıdeger ustadlar yardımlarınız icin coktesekkür ederim özellikle POWER ve ATOZ ustam elleriniz dert gormesi cok saolun, tamda istedigim buydu..
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.556
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,00:52
Çözüldü 
Sponsor Reklam
(27/04/2014, 22:42)akdemir1 Adlı Kullanıcıdan Alıntı: 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.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi



Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status