Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
17/09/2009 11:18
Konu Sahibi
Soul
Yorumlar
3
Okunma
1301
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

Soul

Üye
Kullanici Avatari
Üye
11
5
30/10/2008
0
İzmir
13/08/2014,16:07
Çözüldü 
üstadlar ekte hazırlamaya çalıştığım veri tabanında uygulama hataları mevcut fakat birtürlü çözemedim neden bukadar çok açılır menü var? sebebi açılır listeye seçim için daha çok veri girilecek veritabanını bölüp yapayım dedim oda hatalardan dolayı olmadı inceleyip düşüncelerinizi bildirebilirseniz memnun olurum buarada gövde malzemeleri tablosu ana tablo biliyorum çok karışık bu tabloya haliyle daha fazla açılır menü ekliyemiyorumSadd


Ek Dosyalar
.rar   imalatotomasyon.rar (Dosya Boyutu: 58,24 KB / İndirme Sayısı: 6)
Cevapla

Nurullah_Serdar

FaTSaLı
Kullanici Avatari
Aktif Üye
568
22/11/2008
189
Giresun
Ofis 2007
01/07/2013,13:21
Çözüldü 
örneğinize baktım. tuhaf bir durum görünmüyor aslında. açılan kutuyu tabloda oluşturmak yerine formda oluşturup değerleri istediğiniz tablodan çekebilirsiniz.


İyiki Varsın Access Img-grin
Cevapla

Soul

Üye
Kullanici Avatari
Üye
11
5
30/10/2008
0
İzmir
13/08/2014,16:07
Çözüldü 
araçlar çözümleden veri tabanını böldürerek sorunumu çözümledim ilglenen arkadaşlara teşekkür ederim ama açılır menülerin yoğunluğu ile ilgili tavsiyeleriniz varsa onlarıda beklerim fazlaca açılan açılır menü nedeni le yeni menü ekleyemiyordumImg-grin tabloları fazlaca oluşmamın sebebide açılır menüde yok ise eklekomutunu kullanmamdır aşağıdaki gibi

Private Sub Parça_Adı_NotInList(NewData As String, Response As Integer)
Dim strSQL As String
Dim i As Integer
Dim Msg As String
'Exit this sub if the combo box is cleared
If NewData = "" Then Exit Sub
Msg = "'" & NewData & "' Henüz Listede Bulunmamaktadır." & vbCr & vbCr
Msg = Msg & "Ürün Ağacına Eklemek İstermisiniz?"
i = MsgBox(Msg, vbQuestion + vbYesNo, "Anlaşılmayan Katagori...")
If i = vbYes Then
strSQL = "INSERT INTO parcalar ( [Parça Adı] ) values ('" & NewData & "')"
CurrentDb.Execute strSQL, dbFailOnError
Response = acDataErrAdded

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "parcalar"
DoCmd.OpenForm stDocName, , , stLinkCriteria


Else
Response = acDataErrContinue
End If
End Sub


Cevapla

Nurullah_Serdar

FaTSaLı
Kullanici Avatari
Aktif Üye
568
22/11/2008
189
Giresun
Ofis 2007
01/07/2013,13:21
Çözüldü 
açılır menü dediğiniz açılan kutu mu? açılan kutunuzu tabloda oluşturmayınız. formun üzerinde oluşturunuz. bu sefer bir aksaklık olmayacaktır.
tablonuzdakı alan özelliklerinden arama bölümünü metin kutusu seçin. form üzerinde açılan kutuya dönüştürüp metinleri listeden alabilirsiniz.


İyiki Varsın Access Img-grin
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Dlookup Kodu Hatası accessdelisi 3 146 14/10/2017, 07:52 accessdelisi
Çözüldü Windows 10'da Access Kısayol İkonu Hatası serkan1985 2 127 06/10/2017, 19:42 serkan1985
Çözüldü Like Kullanımı Hakkında ALike Hatası anno 11 306 05/10/2017, 14:38 anno
Çözüldü Değer Hatası Hk. serkan1985 4 115 02/10/2017, 23:39 serkan1985
Çözüldü Formda Otomatik Sayı Hatası ştekin 2 69 27/09/2017, 13:03 ştekin

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.