Her farklı soru için, verilen evet/hayır cevabına göre raporda istediğim değerlerin yazılmasını isyiyorum. RAPOR_MAKINE isimli raporda bir şeyler yaptım ama tüm sorular için aynı sayıyı yazıyor.

Örneğin 1.soru için Evet ise 70, hayır için 0
2.soru için evet ise 85 hayır ise 2 yazılması gibi...

Teşekkürker...

Beyler merhaba,
-Formda Alanların Etkin Gelmesini Şarta Bağlama
-Formda kayıtların gelmesini şarta bağlama
konularında yardım edebilir misiniz?

örneği
-form1'de alan1'in etkin gelmesi için alan3'ün bir kayıt içermesi gerekir.
-Form2'de 5. kayıtın seçilebilmesi için alan1'de kayıt olması gerekir. veya formda bir kaydın gelmesi için alan1'de data olmalı gibi .

yardımlarınız için şimdiden teşekkür ederim.


GÜNCELLEME: EKTE DOSYA BULUNMAKTADIR.
BU DOSYADAKİ FORM1'İN İÇERİSİNDE 3 ALT

Access'de form hazırlıyorum fakat formunda müşteri numarasını açılır kutuda seçtiğim zaman alttaki müşteri adı soyadı otomatik gelmesını istiyorum nasıl yapabilirim isterseniz eklentide koyabilirim yardımlarınız için şimdiden TEŞEKKURLER

Çalıştığım yerde bir data kayıt cihazına bağlanıyorum ve Access formu üzerindeki webbrowser ile data kayıt cihazının dakika başı görüntülenmesini sağlıyorum. Bu görüntüleme işini;
sub form load
WebBrowser8.Navigate URL:="http://172.17.72.20/pens.asp?UserId=0&Language=0&Device=eZtrend%20QXe"
end sub

sub form timer()
If Second(Time()) = 0 Then
WebBrowser8.Refresh
End If
end sub

kodları ile yapıyorum. Programı çalıştırdığımda önce sub form load çalışıyor ve data kayıt cihazını görüntü

merhabalar dün resimleri raporlaşma bölümünde çıkartmak için konu açmiştim ama ayni kodları ana menüde resim çıkartmak için uyarlamaya çaliştim lakın sonuçsuz kaldim nerede yanlış yapıyorum acaba teşekkürler.

[code]Private Sub Resim78_Click()
    Dim f As Object
    Set f = Application.FileDialog(1)
    f.AllowMultiSelect = False
    If (f.show = True) Then
        Me![img2].Picture = f.SelectedItems(1)
    End If
End Sub

Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As