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