Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
03/01/2009 18:45
Konu Sahibi
assenucler
Yorumlar
13
Okunma
5517
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Konu Kapalı
Kullanici Avatari

assenucler

Aktif Üye*
A..... Se.... Şe....
 125
 2.057
 31/10/2008
63
 İstanbul
 
 -
 03/01/2019,11:47
Çözüldü 
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.


Ekran Görüntüleri
   

Kullanici Avatari

esrefigit

Aktif Üye
 Belirtilmemiş
 59
 599
 30/10/2008
359
 Konya
 
 Ofis 2003
 20/09/2018,16:01
Çözüldü 
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


meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz

Kullanici Avatari

Bilgisayarcı

Aktif Üye
 Belirtilmemiş
 34
 658
 29/01/2008
410
 Antalya
 
 Ofis 2003
 01/11/2011,15:17
Çözüldü 
strSQL = "Insert Into HizmetVerenler ([HizmetVerenAdı]) " & _
"values ('" & NewData & "');"

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


Bana işe yarayan bir müdür göster,sana dünyayı yerinden oynatayım.
                                                                                        Descartes



Kullanici Avatari

esrefigit

Aktif Üye
 Belirtilmemiş
 59
 599
 30/10/2008
359
 Konya
 
 Ofis 2003
 20/09/2018,16:01
Çözüldü 
bu kod hazırdı zaten ah önce benim daha önce eklediğim kod deposuna bakmak aklına gelmiş olsydı


meşhur çin atasözü  "ACCESS İLE YAPABİLECEKLERİNİZ HAYAL EDEBİLECEKLERİNİZ İLE SINIRLIDIR" siz ne kadar hayal edebiliyorsunuz

Kullanici Avatari

assenucler

Aktif Üye*
A..... Se.... Şe....
 125
 2.057
 31/10/2008
63
 İstanbul
 
 -
 03/01/2019,11:47
Çözüldü 
Sayın esrefigit;

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

İyi akşamlar ve hafta sonları.



Kullanici Avatari

mehmetdemiral

Uzman
Me.... De....
 54
 218
 4.926
 30/10/2008
 Samsun
 Öğretmen
 Ofis 2013 32 Bit
 11/02/2019,21:56
Çözüldü 
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?


İnadına, ille de Accesstr.net...

Konu Kapalı
Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Sipariş Kartında Ürün Yoksa Eklensin U.ALTUN 4 175 01/02/2019, 17:47
Son Yorum: U.ALTUN
Çözüldü Dlookup İle Açılan Kutudan İsim Seçince Forma Resim Getirmek... remi 6 170 29/01/2019, 11:51
Son Yorum: remi
Çözüldü Formda Açılan Kutu Sorunu access acemisi 7 291 23/01/2019, 17:45
Son Yorum: Oğuz Türkyılmaz
Çözüldü Açılan Kutuda Filtreleme Yapma derebeyi 4 164 22/01/2019, 12:34
Son Yorum: derebeyi
Çözüldü Sorguda Açılan Kutu access acemisi 29 545 11/01/2019, 08:05
Son Yorum: access acemisi

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.