Çözüldü UserForm VBA'da Kayıt etme

[mesut42]

Arkadaşlar merhaba mandıramın kayıtlarını tutmak için form da kendimce bir form hazırladım çok da güzel oldu. forumda bir çok kişi yardımda bulundu hepsine tekrar teşekkür ederim. formu bitirdim ve hayvan bilgilerini kayıt etmeye başladığımda büyük bir hata veya eksiklik olduğunu fark ettim.

O da şöyle:

Hayvanın doğum yaptığı tarih, tohumlama tarihi vs. hepsi mevcut. diyelim ki hayvan doğum yaptı güncelleme yaptım ve kayıt ettim ama bir önceki doğum tarihi vs. tüm bilgiler gitmiş oldu. Excel de sütunları çoğaltarak bunun hakkında gelinir ama 9 yaşında hayvanım var buda bir dünya sütun yapar ve formda da çok kalabalık olur bunun hakkından nasıl geline bilir?

 

[atoykan]

Her yavrunun kimliği ile doğum tarihi zaten mevcut, anne kimliğini de foreign key yapısında kullanırsanız bir annenin kimliğinden hem yavrularını, hem doğum tarihlerini, hem de soyağacını takip edebilirsiniz. Bu durumda ekleyeceğiniz sadece 1 sütun olur ve formunuzda göstremek istediğiniz son doğum tarihine göre sadece ufak bir revizyon yapmanız gerekir.

 

[mesut42]

Her yavrunun kimliği ile doğum tarihi zaten mevcut, anne kimliğini de foreign key yapısında kullanırsanız bir annenin kimliğinden hem yavrularını, hem doğum tarihlerini, hem de soyağacını takip edebilirsiniz. Bu durumda ekleyeceğiniz sadece 1 sütun olur ve formunuzda göstremek istediğiniz son doğum tarihine göre sadece ufak bir revizyon yapmanız gerekir.

Hocam teşekkür ederim. foreign key yapısı nedir bilmiyorum.
Bir inek 10 yaşında kabul edelim. 8 kere doğum yapmış bu hayvan örneğin 5. doğumunu hangi tarihte yaptığını ve diğer bilgilerini görebilir miyiz bu yapı ile eğer öyleyse size zahmet bir örnek dosya gösterirseniz kendime uyarlamak isterim

 

[atoykan]

Primary key ve foreign key ilişkisel veritabanlarında sıkça kullanılan terimlerdir ve veritabanı tabloları arasındaki ilişkileri tanımlamak için kullanılır. Örneğin Access bir RDBMS -ilişkisel veritabanı yönetim sistemi-, Excel ise bir hesaplama veri analiz tablosudur, ancak veri yapıları ve veritabanı mantığına hakim olduğunuz takdirde bu tip işlemlerde kullanabileceğiniz basic bir veritabanı olarak kullanılabilir.

İlişkisel veritabanlarından kullanılan tekniğe atıfta bulunarak belittiğim foreign key ile birlikte primary key'inde ne olduğunu belirtecek olursak - veritabanı ve veri mantığı açısından bu iki terim aort damarı gibidir-
Primary Key -yani Birincil Anahtar- bir tablodaki her satırı bir veya birden fazla sütun üzerinden benzersiz bir şekilde tanımlanmasını sağlar. Örneğin, bir Malzemeler tablosunda her malzeminin benzersiz bir Malzeme ID numarasına sahip olması gibi. Primary key, boş olamaz ve bir tabloda yalnızca bir tane olabilir. (bir kişinin tek bir TC Numarsı olması gibi)
Foreign Key - yani Yabancı Anahtar- ise bir tablodaki sütunda başka bir tablonun primary key'ine referans vermek için kullanılır. Bu, ilişkisel veritabanlarında tablolar arasında ilişki kurmak için kullanılır. Örneğin bir Siparişler tablosunda, her siparişin hangi müşteriye ait olduğunu belirten bir Müşteri ID sütunu olabilir; bu sütun ise Müşteriler tablosunun primary key'ine referans verir, böylece her müşterinin ismini tekrar tekrar girmeye gerek kalmadan sadece kimlik nosu üzerinden kayıtları tutulur.

Bu bağlamda sizin örneğinizden yola çıkacak olursak, tüm hayvanlarınızın bir kimliği, doğum tarihi, cinsiyeti vs bilgilerini tuttuğunuz bir tabloda annesi gibi bir sütun ekler ve bu sütuna annenin kimlik nosunu yazarsanız, hangi yavru hangi annenin veya hangi anne kaç yavru doğurmuş, veyahut da bir annenin doğum tarihleri bazında yavruları gibi sıralamalar ve raporlamalar yapabilirsiniz. Örnek dosya hazırlama şansım yok, zira bunu da sizin yapmanız gerekli ki hem öğrenebilesiniz hem de uyarlamaya uğraşmak yerine kendi ihtiyacınız doğrultusunda bir geliştirme yapabilesiniz. Bu bilgiler ışığında ufak bir araştırma yaparak örneğiniz üzerinde çalışma yapın. Takıldığınız yerlerde örneğiniz ile sorunuzu iletirseniz hem yardımcı olmaya hem fikir vermeye çalışırız.

 

[mesut42]

Hocam ilginiz ve bilgilendirmeniz için teşekkür ederim. Sabah beri bu konuyu araştırıyorum fakat benim boyumu aşar. Şöyle bir çözüm buldum gebelik adında yeni bir sayfa açıp hayvanların gebelik bilgilerini burada toplayacağım. Hayvan kayıt ederken eğer sağmal gebe ve düve gebe seçimi yapıldıysa kayıt yapıp formu kapatıp kayıt yapılan hayvanın küpe no ve işletme nosunu alıp gebelik forumunu açsın. Bana bu kodu yazarsan gerisi bende hocam ))))

 

[excelcan]

Dosya paylaşırsanız yanıt almanız da mümkün olur.
Kolay gelsin.

 

[aeGNoR]

Nasıl bir yapı kurduğunuzu bilmeden fikir yürütmek imkansız. Dosya paylaşımı ile çözebiliriz.

Ayrıca atoykan arkadaşımızın da dediği gibi RDBMS (Relational Database Management System) kullanarak bu iş çözülür. Üstesinden gelemeyeceğinizi düşünmeniz tamamen bilinmeyene karşı direncimizden kaynaklı.

Konu üzerine çok yazdık çizdik buralarda, kabaca bir arama yaparsanız çokça bilgi olduğunu göreceksiniz.

 

[mesut42]

Dosya paylaşırsanız yanıt almanız da mümkün olur.
Kolay gelsin.

Teşekkür ederim hocam. hayvan eklerken durumu Gebe Sağmal, Gebe Düve, Tohumlandı seçenekleri seçilirse formu kaydetip gebelik formunu açmasını açarken de kayıt edelin hayvanın küpe no ve işletme numarasını otomatik çekmesini. Gebelik formunda gebe kaldığı tarih yazıldığında otomatik olarak tahmini doğum tarihine 280 gün eklemesi kuruya çıkacak tarihi de 210 gün eklemesini gerekiyor. kod var ama beceremedik
ana form userform4
hayvan ekleme userform1
gebelik userform12

 

[excelcan]

Sayın mesut42
Bu dosyayı ben daha önce de birkaç kere indirmiştim.
Sıkıntılı bir dosya olduğu için ilgilenmemiştim.
Şimdi göründüğü şekliyle de değişen pek bir şey yok.
1) UserForm4 mesela sizde direk açılıyor mu ?
2) Listele makrosuyla yapmaya çalıştığınızı anlar gibi oldum
ama siz net bir açıklama yaparsanız daha iyi olur.
Userform4 ü açabilirsem birşeyler düşünebileceğim çünkü.
Kolay gelsin.

 

[mesut42]

Sayın mesut42
Bu dosyayı ben daha önce de birkaç kere indirmiştim.
Sıkıntılı bir dosya olduğu için ilgilenmemiştim.
Şimdi göründüğü şekliyle de değişen pek bir şey yok.
1) UserForm4 mesela sizde direk açılıyor mu ?
2) Listele makrosuyla yapmaya çalıştığınızı anlar gibi oldum
ama siz net bir açıklama yaparsanız daha iyi olur.
Userform4 ü açabilirsem birşeyler düşünebileceğim çünkü.
Kolay gelsin.

Direk açma derken anlamadım hocam form4 tıklayıp f5 yaparak açılıyor ama

 

[excelcan]

Direk açma derken anlamadım hocam form4 tıklayıp f5 yaparak açılıyor ama

Üçüncü bir yöntem var mı
Hala açamadım.
Her neyse onu hallederim.
Listele makrosunda yapmaya çalıştığınız
Hayvan listesi sayfasındaki tabloyu listwievee almak mı ?
Eğer öyleyse o tabloda sütun O da bitiyor.
Ama sizin kodlarınız U sütunundan da veri almaya çalışıyor.
Doğru mu anlamışım ?
Kolay gelsin.

 

[Refaz]

Merhaba.
Resimdeki işaretlediklerimi ekleyin.Her defasında Userfform12 yazmak yerine With de kullanılırdı ama eklemedim.

 

[mesut42]

Üçüncü bir yöntem var mı
Hala açamadım.
Her neyse onu hallederim.
Listele makrosunda yapmaya çalıştığınız
Hayvan listesi sayfasındaki tabloyu listwievee almak mı ?
Eğer öyleyse o tabloda sütun O da bitiyor.
Ama sizin kodlarınız U sütunundan da veri almaya çalışıyor.
Doğru mu anlamışım ?
Kolay gelsin.

hocam siz farklı yerdesiniz orada sorun yok
userform1 de hayvan kayıt yapıyoruz
kayıt yaparken durumu combobox tan gebe sağmal, gebe düve, tohumlandı seçeneklerinden biri seçildiyse kayıt yapsın userform12 yi açsın açarkende kayıt yapılan hayvanın küpeno ve işletme no sunu alsın yapmak istediğim bu

Merhaba.
Resimdeki işaretlediklerimi ekleyin.Her defasında Userfform12 yazmak yerine With de kullanılırdı ama eklemedim.

Ekli dosyayı görüntüle 25938

Hocam merhaba. Kod tam çalışmıyor.
Her kayıtta userform 12 yi açıyor (seçim ne olursa, olmasa da)
combobox ta istediğim gebe sağmal,gebe düve, tohumlandı bunlardan biri seçildiyse form12 açılacak diğer seçenekler seçildiyse kayıt edip kapacanak

 

[Refaz]

combobox ta istediğim gebe sağmal,gebe düve, tohumlandı bunlardan biri seçildiyse form12 açılacak diğer seçenekler seçildiyse kayıt edip kapacanak

Verdiğim kodlar çalışıyor istediğiniz gibi.
Yukardaki dediğiniz için basitçe bir if şartı ekleyip şart uymuyorsa exit sub gibi ekleyebilirsiniz zor değil az uğraşsanız.
Zamanım oluncada eklerim o şartları aöa dediğim gibi verdiğim kodlar çalışıyor.

 

[Refaz]

hayvan eklerken durumu Gebe Sağmal, Gebe Düve, Tohumlandı seçenekleri seçilirse formu kaydetip gebelik formunu açmasını

Bunlar nerde dün tam çözemedim olayı userformdan.
Resim atın akşam bakarım.

 

[mesut42]

Bunlar nerde dün tam çözemedim olayı userformdan.
Resim atın akşam bakarım.

hocam halletim sadece combobox kaldı
If ComboBox_durumu.Value = "Gebe Sağmal" Then
sadece gebe sağmal ı baz alıyor bunlara ek olarak tohumlandı ve gebe düveyi de dahil edersek problem kalmayacak

 

[excelcan]

Şart yapısını genişletirseniz olur. Aşağıdaki gibi.
If CoboBox_durumu.Value = "Gebe Sağmal" Or "Gebe Düve" Or "Tohumlandı" Then

 

[mesut42]

Şart yapısını genişletirseniz olur. Aşağıdaki gibi.
If CoboBox_durumu.Value = "Gebe Sağmal" Or "Gebe Düve" Or "Tohumlandı" Then

Hocam bunu denemiştim daha önce olmamıştı bütün grup hayvanını kaydedip gebelik formunu açıyor ama sadece gebe sağmal olunca çalışıyor 3 şart olunca çalışmıyor

 

[excelcan]

If ComboBox_durumu.Value yerine ComboBox_durumu.Text
olarak dener misiniz.

 

[Refaz]

If ComboBox_durumu.Value yerine ComboBox_durumu.Text
olarak dener misiniz.

Dün optionbuttonlar görmüştüm.Galiba bunları istiyor kriter olarak!!!!!!!!