Açılan Kutuda veri yoksa eklesin istiyorum, yapamadım...

Değer forum dostları ve hocalarım;

Herkese tekrar MUTLU YILLAR...

"YonetimGiderleri" formundan aynı adlı tabloya kayıt ekliyorum. Bu formun "HizmetVerenKişi" açılan kutusu içerisinde aranan kişi yoksa, bu açılan kutuya çift tıklanınca, "HizmetVerenler" formu açılsın; Bu form aracılığı ile "Yeni Kişi" "Kaydını Eklemek" ya da "Silme" işlemini gerçekleşsin istiyorum.

Bunu 3-4 saattir yapamayınca, yeterli zamanım olmadığı için, sizlerin yardımını bekliyorum.

İlgi ve yanıtınız için teşekkürler.

İyi hafta sonları.

Selam ve sevgiler.

bu kodu aynen yaz
Private Sub HizmetVerenKişi_NotInList(NewData As String, Response As Integer)
Dim strSQL As String
Dim i As Integer
Dim Msg As String

If NewData = "" Then Exit Sub

Msg = "'" & NewData & "' listenizde yok." & vbCr & vbCr
Msg = Msg & "Eklemek ister misiniz?"

i = MsgBox(Msg, vbQuestion + vbYesNo, "Bilinmeyen Hizmetveren...")
If i = vbYes Then
strSQL = "Insert Into HizmetVerenler ([HizmetVerenAdı]) " & _
"values ('" & NewData & "');"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub

kişi listede yokssa sen liste içine yaz o seni uyarıp eklemek istiyormusun diye soracak eve diyince artık eklenmiş ve ve tabloya kaydedilmiş olacak

strSQL = "Insert Into HizmetVerenler ([HizmetVerenAdı]) " & _
"values ('" & NewData & "');"


nihayet strsql=strsql&... yazmaktan vazgeçtiğinize sevindim Eşref Bey

bu kod hazırdı zaten ah önce benim daha önce eklediğim kod deposuna bakmak aklına gelmiş olsydı

Sayın esrefigit;

Yakın ilgi ve yanıtınız için teşekkürler.

İyi akşamlar ve hafta sonları.

Bir metin veya açılan kutuya çift tıklayarak hazırdaki bir formu açmak neden bu kadar zor olsun ki? Arkadaş

"HizmetVerenKişi" açılan kutusu içerisinde aranan kişi yoksa, bu açılan kutuya çift tıklanınca, "HizmetVerenler" formu açılsın; Bu form aracılığı ile "Yeni Kişi" "Kaydını Eklemek" ya da "Silme" işlemini gerçekleşsin istiyorum"

demiş. Oysa siz istenen veri yoksa ekleyeyim mi diye soran ve evet deyince ekleyen bir kod yazmışsınız. Bu, duruma göre sıkıntıya sebep olacaktır. Mesela kişi eğer kaydın eklenmesi için ayrı bir form açarak bu işi manuel yapmak istiyorsa ve genel olarak şahsın olup olmadığını comboya girerek kontrol ediyorsa, kodlar sıkıcı olacaktır. Ne dersiniz?

Sayın Mehmet Demiral hocam;

İyi günler ve haftalar. Farklı düşünce ve çözümler bizlere her zaman bir ışık oluyor.

Zahmet olmazsa, çözümünüzü ekleyebilir misiniz? Biliyorsunuz bizim gibi amatörler için, tüm çözümler önemli...

İlgi ve yanıtınız için önceden teşekkürler.

Selam ve sevgiler.

Dediğim gibi bir örnek yaptım. Eğer açılan kutuda aradığınız isim yosa çift tıkladığınızda bir kişi ekleme formu açılıyor. Buraya yeni kayıt ekleyerek olmayan kişiyi ekleyin. Ama bu işlemden sonra döndüğünüz formda güncelleme yapmalısınız. Bunun için bir kaç alternatif yöntem var. Özellikle yapmadım ki siz kendinizi geliştiri.

1- Altta kalan formda hala eski veriler olduğu için, eklediğiniz kaydı göremezsiniz. Bunun için fYonetimGiderleri formunu kapatıp açabilir veya kapatıp açan bir makro veya kod yazabilirsiniz.

2- YonetimGiderleri formundaki hizmet verenler açılan kutusundaki veriyi güncelleyebilirsiniz. Çok faydası olur mu denemek lazım ama açılankutu.requery komutu işe yarayabilir. Ama öncelikle 1. yöntem önerilir.

3- Bu arada ben olsaydım şöyle yapardım:
Öncelikle bir public değişken atardım. Mesela
public aktar
deyip aktar isimli bir değişken atayıp daha sonra da
aktar= form![Hv Kişi girişi]![HizmetVerenAdı]
ile bu değişkene yeni açılan değeri aktarırım. Sonra YonetimGiderleri formu aktif olduğunda da

me.HizmetVerenKişi = aktar

komutuyla da bu veriyi forma getiririm. Böylece yeni açılan veri direk olarak forma aktarılmış olur. Sayın eşref bey'in örneğinden farklı olarak burada işlem manuel olarak yapılmakta ve bir form açılarak varsa diğer kişi bilgileri de girilmektedir. Ama istenirse Eşref BEy'in eklediği kodların ilk bölümü alınarak kod ekleme işlemine kadar çalıştırılıp, form açtırma olayı da kodlarla yapılabilir.

Kolay gelsin. Halledemezseniz yardımcı olmaya devam...

Sayın Mehmet Demiral;

Hocam, yakın ilginiz ve kısa süredeki yanıtınız için çok teşekkür ederim.

Bu ayın 11. günü kat malikleri toplantısı olduğu için, geriye dönük olarak "oturanların 6 yıllık cari hesaplarına ilişkin sonuçlarını birleştireceğim" bir çalışma yapmam gerekiyor.

Toplantıya kısa bir süre kalmış olması dolayısıyla, eğer beni yanlış anlamazsanız, yukarıdaki mesajınızdaki 3. çözüm yolu olarak önerdiğiniz yönteme göre çözümünüzü sizden rica edebilir miyim?

Beni anlayışla karşılayacağınızı düşünüyorum. Tekrar teşekkürler.

Selam ve sevgiler.

Hazırlamaya çalışacağım. Bu ara yoğun olduğum için hemen yapamayabilirim ama yarına halletmeye çalışırım.