ÖNEMLİ

  • Forumumuzda bilgi alışverişinde bulunabilmeniz için Üye olmalısınız. Üye olmayanlar forumumuzdan yararlanamazlar.
  • Eğer daha önceden üye olduysanız lütfen kullanıcı adınız ve şifreniz ile Giriş yapınız.
 Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
13/09/2012 16:10
Konu Sahibi
asar800
Yorumlar
3
Okunma
1668
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

asar800

Aktif Üye
Kullanici Avatari
Aktif Üye
33
12/01/2012
0
-
-
06/06/2017,09:29
Çözüldü 
Selamlar
Sitedeki bir anket programını kendimce düzenlemeye çalıştım.Yetkili kullanıcılar var ,herbiri kendi yetkisi dahilindeki anketlere cevap verecekler.Bazı yerlerde istediğim sonucu alamadım.Örneğin anket sayfasında ,her kullanıcı için verilen cevapları cevap tablosuna ayrı ayrı kayıt edemedim, her kullanıcı için anket formunun boş olarak gelmesini sağlayamadım.Gerekli şifreler kullanıcı tablosunda var.Şu anda sadece organize formu var diğer formları daha sonra yapacağım. Dosya ekte,yardımlarınız için teşekkürler.

Ek Dosyalar
Anket.rar


Cevapla

asar800

Aktif Üye
Kullanici Avatari
Aktif Üye
33
12/01/2012
0
-
-
06/06/2017,09:29
Çözüldü 
Yanlış yerde mi sordum? Bu yüzden mi cevap verilmiyor.


Cevapla

ozanakkaya

sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.951
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Dün,19:46
Çözüldü 
Problemden anladığım kadarıyla cevap yazmaya çalıştım.



Modüle

Visual Basic Code
KullaniciId

,

FRM_LOGON formuna

Visual Basic Code
KullaniciId = Me.kullanici.Column(0)


kodları eklendi.

FRM_ANA isimli forma Metin21 adında metin kutusu ve örnek buton isminde komut butonu eklendi. Butonun tıklandığında olayına aşağıdaki kod eklendi. Diğer butonların tıklandığında olaylarına bu kodu eklemen gerekiyor.

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
On Error GoTo Err_ÖRNEK_BUTON_Click
    Dim stDocName As String
    Dim stLinkCriteria As String
    Dim Varmi As String

stDocName = "Anket_Formu"
stLinkCriteria = "[id]=" & Me![Metin21]
    Varmi = Nz(DLookup("[Kimlik]", "CEVAP", "[id]=" & [Metin21]), 0)
        If Varmi <> 0 Then
          
    
    
    DoCmd.OpenForm stDocName, , , stLinkCriteria
        Else
            For x = 1 To 40
            strSQL = "SELECT * FROM CEVAP "
            Set rstkayit = New ADODB.Recordset
            rstkayit.Open strSQL, CurrentProject.Connection, adOpenKeyset, adLockOptimistic
             With rstkayit
            .AddNew
            .Fields("id") = Me.Metin21
            .Fields("kimlik") = x
            .Fields("CEVAP_KODU") = "0"
            .Update
            End With
            Next x
          DoCmd.OpenForm stDocName, , , stLinkCriteria
        End If
    
Exit_ÖRNEK_BUTON_Click:
    Exit Sub

Err_ÖRNEK_BUTON_Click:
    MsgBox Err.Description
    Resume Exit_ÖRNEK_BUTON_Click


Ek Dosyalar
.rar   Anket_sled.rar (Dosya Boyutu: 81,53 KB / İndirme Sayısı: 25)
Cevapla

asar800

Aktif Üye
Kullanici Avatari
Aktif Üye
33
12/01/2012
0
-
-
06/06/2017,09:29
Çözüldü 
İlginize teşekkür ederim.Kodları kullanacağım.


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Veritabanı Şifreleme Hakkında aliyuzen 4 111 10/11/2017, 14:17 aliyuzen
Çözüldü Openform Butonu Hakkında erdoganarslan 6 201 18/10/2017, 13:27 erdoganarslan
Çözüldü Like Kullanımı Hakkında ALike Hatası anno 11 328 05/10/2017, 14:38 anno
Çözüldü Emlak Takip Programları Hakkında Yardım oguzhanulger 2 187 28/08/2017, 18:07 simendifer
Çözüldü Cari baş harfine göre firma kodu oluşturma hakkında Gokcen Akan 25 1.115 14/07/2017, 08:32 Gokcen Akan
 
 

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.