(16/07/2018, 18:50)ozanakkaya yazdı: Örneğinizin düzenlenmiş hali ektedir.

"SERVIS_FORM" isimli formu aç, 10 iş numaralı kaydı aç ve detaylı bilgiler butonuna tıkla.

Düzenlediğiniz için teşekkür ederim. Şimdi öğrenmek istediğim bunu nasıl yaptığınız. İlişkilerde yine bir bağlantı gözükmüyor. Kodlama ile mi bağlantı kurdunuz ? Servis dosyasına iki adet tablo oluşturmuşsunuz. Bunların işlevi nelerdir ?

Merhaba. Formdaki butonun tıklandığında olayına kod ekledim. İlişkilendirme Vs.  yok.

Butona tıkladığınızda tabloda ilgili kayıt var ise açılan formda kaydı gösterir. Kayıt yok ise tabloya yeni kayıt olarak ekler ve o kaydı formda açar.

Uygulamanıza tablo eklemedim.

Teşekkürler. Yeni bir kayıt açtığım zaman bir hata çıkıyor. Oradan kodlarla karşılaştım ve sizin yazıp benim devam etmem için bıraktığınız boşluğa diğer verileri yazdım. 
Yalnız kod başlığında hata vermeye devam ediyor. O ilk kod satırını silecek miyim ?

Merhaba, silmeniz gereken kod yok. Örneğinizin son halini eklerseniz inceleyip dönüş yaparım. Ayrıca hata ile ilgili açıklayıcı bilgi yazınız.

(18/07/2018, 08:56)ozanakkaya yazdı: Merhaba, silmeniz gereken kod yok. Örneğinizin son halini eklerseniz inceleyip dönüş yaparım. Ayrıca hata ile ilgili açıklayıcı bilgi yazınız.

10 numaralı kayıta gittiğimde butona bastığım zaman bir hata söz konusu değil. Yeni sipariş kaydı olduğu sırada butona basınca hata veriyor. Her hangi bir değer girmemişken. 

Bir diğer sorum. Verilerden bazıları bir kaç seçenekli oluyor. Örneğin Sağ-Sol gibi. Bunu yazıyla uğraşmak yerine tick atacak seçim yada açılan kutu aracıyla mı yapmak daha olması gerekendir. ?  

Programa resim kaydetmek mümkün müdür ? 

excel'de tanımlanmış bir hesaplayıcı kullanıyorum işle ilgili. Hatta bu programın ana sayfasına o dosyayı açması için bir buton ekledim. Hesaplayıcıyı açıp çıkan sonucu elle de sipariş kısmına girebilirim elbette fakat o çıkan değerleri oto. olarak sipariş formuna eklemek mümkün müdür ? 

Yardımlarınız içinde ayrıca teşekkür ederim.

Dim accesstr_kod As Integer



If IsNull(Me.IS_NO) Or Me.IS_NO = "" Then



    MsgBox ("Detay Bilgisi Görebilmeniz İçin Veri Girişi Yapmalısınız")



Exit Sub



End If



accesstr_kod = Nz(DCount("Kimlik", "IS_BILGISI_TABLO", "[islem_id]= " & Nz(Me.IS_NO, 0)), 0)



If accesstr_kod > 0 Then



DoCmd.OpenForm "IS_BILGISI_FORM", acNormal, , "[islem_id]= " & Me.IS_NO



Else



strsql = "SELECT * FROM IS_BILGISI_TABLO "

    Set rstkayit = New ADODB.Recordset

    rstkayit.Open strsql, CurrentProject.Connection, adOpenKeyset, adLockOptimistic

   

 With rstkayit



            If Not rstkayit.EOF Then



                .AddNew

                .Fields("islem_id") = Me.Metin3

                .Fields("motor") = Me.motor

                .Fields("guc") = Me.guc

                .Fields("devir") = Me.DEVIR_DOLU

                .Fields("devir") = Me.DEVIR_BOS

                .Fields("sanziman") = Me.TRANSMISSION

                .Fields("pervane_cap") = Me.pervane_cap

                .Fields("pervane_pitch") = Me.PITCH

                .Fields("sag_sol") = Me.SAG_SOL

                .Fields("kanat_sayisi") = Me.ADET

                .Fields("surat") = Me.surat

                .Fields("pervane_modeli") = Me.MODEL

                .Fields("oran") = Me.oran



                .Update

             End If

        End With



DoCmd.OpenForm "IS_BILGISI_FORM", acNormal, , "[islem_id]= " & Me.IS_NO, , acWindowNormal



End If

Butonun tıklandığında olayındaki kodları aşağıdaki ile değiştirerek deneyiniz.