AccessTr.neT
Anket prg hakkında - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Anket prg hakkında (/konu-anket-prg-hakkinda.html)



Anket prg hakkında - asar800 - 13/09/2012

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



Cvp: Anket prg hakkında - asar800 - 14/09/2012

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


Cvp: Anket prg hakkında - ozanakkaya - 21/09/2012

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



Cvp: Anket prg hakkında - asar800 - 21/09/2012

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