(11/01/2011, 15:50)OWNN yazdı: 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 yazdı: Test isimli formun geçerli olduğunda olayına Komut76'ya yazdığınız kodların;2. mesaja yazdığım gibi, geçerli olduğunda olayına yazacaksın.
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:
(11/01/2011, 15:26)sledgeab yazdı: 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
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