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