Skip to main content

AccessTr.neT


Anket prg hakkında

Anket prg hakkında

Çözüldü #1
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.

Anket.rar
Cevapla
Çözüldü #2
Yanlış yerde mi sordum? Bu yüzden mi cevap verilmiyor.
Cevapla
Çözüldü #3
Problemden anladığım kadarıyla cevap yazmaya çalıştım.



Modüle
KullaniciId
,

FRM_LOGON formuna
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.

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
.rar Anket_sled.rar (Dosya Boyutu: 81,53 KB | İndirme Sayısı: 26)
Cevapla
Çözüldü #4
İlginize teşekkür ederim.Kodları kullanacağım.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task