Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
11/01/2011 14:48
Konu Sahibi
OWNN
Yorumlar
6
Okunma
3476
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

OWNN

Üye
 Belirtilmemiş
 4
 1
 31/12/2010
0
 Adana
 
 Ofis 2000
 02/12/2015,21:51
Çözüldü 
Selamlar;
Bir Soru bankası programı hazırlıyorum. Form vasıtası ile kullanıcı şıklardan birisini seçiyor..
Form üzerinde seçenek grubu ile şıkları gösteriyorum. (aynı anda birden fazla seçeneği seçememesi için..) ancak seçenek grubundan seçimler 1-2-3-4 gibi sayı dönüyor. Bana ise a,b,c,d gibi şık dönsün istiyorum ki daha sonradan küçük bir sorgu ile kaç doğru kaç yanlış var özet alalcağım.
secenek grubundan 1,2 dönsün sonradan tablo içinde 1 leri a yap 2 leri b yap gibi bir güncelleştirme sorgusu ile değiştiririm derken Access hata veriyor.. Lütfen Yardım..
Örnek dosya ekte...

tşk



Kullanici Avatari

ozanakkaya

Kurucu
OZ.... AK....
 39
 11.624
 472
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,15:04
Çözüldü 
Sorular isimli tablonuza yeni alan ekleyin, mesela "yaziylacevap"

Test isimli forma bu yeni alanın bulunduğu metin kutusu ekleyin, metin kutusunun adını ve denetim kaynağını yine "yaziylacevap" olarak belirle.

Test isimli formun geçerli olduğunda olayına Komut76'ya yazdığınız kodların;

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
If Me.KullaniciCevap = 1 Then
            Me.yaziylacevap.Value = "A"
            End If
            If Me.KullaniciCevap = 2 Then
            Me.yaziylacevap.Value = "B"
            End If
            If Me.KullaniciCevap = 3 Then
            Me.yaziylacevap.Value = "C"
            End If
            If Me.KullaniciCevap = 4 Then
            Me.yaziylacevap.Value = "D"
            End If


kısmını yazın.

bu şekilde sizin seçenek olarak belirleyeceğiniz sayı "yaziylacevap" alanına yazı olarak aktarılacak.

siz kullanacağınız sorguda a,b,c,d yazan "yaziylacevap" alanını kullanın.

Tabiki bunun farklı yolları da var. Farklı yol belirtmek isteyenlere duyrulur... Img-grin


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

OWNN

Üye
 Belirtilmemiş
 4
 1
 31/12/2010
0
 Adana
 
 Ofis 2000
 02/12/2015,21:51
Çözüldü 
hocam ilginiz için teşekkürler ancak;

1- bu kodu hangi olayın altına yazmalıyım..?
2- kullanacağım formun son tasarımı size gönderdiğim gibi. Access konusunda pek iyi değilim. bir metin kutusuna değilde benim örnekteki tabloya direk yazdırabilirmiyiz...?orada da söyle bir sıkıntı olur zaten form orqaya 1-2 yazacak onu tekrar nasıl değiştirecek..?
en temizi güncelleştirme sorgusu sanki.. formun kapanması olayında çalıştırabilirm. ancak onda da biçim tutarsızlığı gibi bir hata alıyorum. sorgunun tasarım ekranında 4 tane iç içe geçmeli IIF kullandım..?

IIf([Sorular]![KullaniciCevap]=1;"A";IIf([Sorular]![KullaniciCevap]=2;"B";IIf([Sorular]![KullaniciCevap]=3;"C";IIf([Sorular]![KullaniciCevap]=4;"D";"değil"))))


lütfen yardım?
tşk



Kullanici Avatari

ozanakkaya

Kurucu
OZ.... AK....
 39
 11.624
 472
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Bugün,15:04
Çözüldü 
(11/01/2011 15:50)OWNN Adlı Kullanıcıdan Alıntı: 1- bu kodu hangi olayın altına yazmalıyım..?
2- kullanacağım formun son tasarımı size gönderdiğim gibi. Access konusunda pek iyi değilim. bir metin kutusuna değilde benim örnekteki tabloya direk yazdırabilirmiyiz...?orada da söyle bir sıkıntı olur zaten form orqaya 1-2 yazacak onu tekrar nasıl değiştirecek..?

1-
(11/01/2011 15:26)sledgeab Adlı Kullanıcıdan Alıntı: Test isimli formun geçerli olduğunda olayına Komut76'ya yazdığınız kodların;

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
If Me.KullaniciCevap = 1 Then
            Me.yaziylacevap.Value = "A"
            End If
            If Me.KullaniciCevap = 2 Then
            Me.yaziylacevap.Value = "B"
            End If
            If Me.KullaniciCevap = 3 Then
            Me.yaziylacevap.Value = "C"
            End If
            If Me.KullaniciCevap = 4 Then
            Me.yaziylacevap.Value = "D"
            End If


kısmını yazın.

2. mesaja yazdığım gibi, geçerli olduğunda olayına yazacaksın.
2:
(11/01/2011 15:26)sledgeab Adlı Kullanıcıdan Alıntı: Test isimli forma bu yeni alanın bulunduğu metin kutusu ekleyin, metin kutusunun adını ve denetim kaynağını yine "yaziylacevap" olarak belirle.
metin kutusuna eklenecek veriler tablodaki "yaziylacevap" alanına kaydedilecek.


Ama, güncelleştirme sorgusu ile verilerin tamamını değiştirmek istiyorum diyorsan sorgudaki IIF olayından vazgeç.

Yeni bir modül oluştur ve modüle

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
Public Function VeriGuncelle(Sayi) As String
    Dim Yaziyla As String
    Select Case Sayi
        Case "1": Yaziyla = "a"
        Case "2": Yaziyla = "b"
        Case "3": Yaziyla = "c"
        Case "4": Yaziyla = "d"
    End Select
VeriGuncelle = Yaziyla
End Function


kodlarını yazıp modülü kaydet.

Güncelleme sorgun olan "Sorular Sorgu1" sorgusunu tasarım görünümünde aç.

Kod:
Alan: KullaniciCevap
Tablo: Sorular
Güncelleştir:  VeriGuncelle([KullaniciCevap])
Ölçüt: Is Not Null


şeklinde değiştir.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

OWNN

Üye
 Belirtilmemiş
 4
 1
 31/12/2010
0
 Adana
 
 Ofis 2000
 02/12/2015,21:51
Çözüldü 
hocam süpersin... sorgu değilde bir alan daha eklemek daha mantıklı senin de dediğin gibi. son olarak geçerli olduğu olayı ne demek..? formun gotfocus event i mi...? kodu neyin altına yazacağımı bulamadım. sürekli çalışsın istiyorum...?



Kullanici Avatari

ercansahin

Uzman
ER.... ŞA....
 44
 3.740
 69
 14/11/2008
 Bursa
 
 Ofis 2010 32 Bit
 27/11/2018,13:27
Çözüldü 
Formun özelliklerine geçtiğinizde Geçerli Olduğunda özelliğinin varlığını görebilirsiniz.
Kod bölümünde ise ;

Visual Basic Code
Private Sub Form_Current()
'Buraya eylemi gerçekleştirecek kodlar yazılır.
End Sub

olarak kullanılır.

Sledgeab hocamın belirttiği kodları ise;

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub Form_Current()
            If Me.KullaniciCevap = 1 Then
            Me.yaziylacevap.Value = "A"
            End If
            If Me.KullaniciCevap = 2 Then
            Me.yaziylacevap.Value = "B"
            End If
            If Me.KullaniciCevap = 3 Then
            Me.yaziylacevap.Value = "C"
            End If
            If Me.KullaniciCevap = 4 Then
            Me.yaziylacevap.Value = "D"
            End If 
     End Sub

şeklinde kullanabilirsiniz.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Stok Durumu Sorgusu 001hacker 26 662 16/12/2018, 21:13
Son Yorum: haliliyas
Çözüldü Birleşim Sorgusu notrino 2 110 29/11/2018, 12:14
Son Yorum: notrino
Çözüldü Seçenek Ve Onay Kutusu,genişlik-Yüksekliğini Ayarlamak İstiyorum alimadam 4 110 21/11/2018, 11:09
Son Yorum: alimadam
Çözüldü Depo Stok Durumu Sorgusu 001hacker 8 336 20/11/2018, 00:02
Son Yorum: 001hacker
Çözüldü Tablo Yap Sorgusu Ve Uzun Bekleyiş kaiserr76 4 178 19/11/2018, 17:58
Son Yorum: ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2018 MyBB Group.