(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.