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