AccessTr.neT

Tam Versiyon: Form İlişkilendirmede Sınırlılık.iki Formda Aynı Veriyi Gösterme.
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
(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.
Sayfalar: 1 2 3