AccessTr.neT

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.

Yanlış yerde mi sordum? Bu yüzden mi cevap verilmiyor.

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

İlginize teşekkür ederim.Kodları kullanacağım.