• 0 Oy - 0 Ortalama
  • 1
  • 2
  • 3
  • 4
  • 5
[FORM] Açılan kutu
#7

.rar   Komutan63.rar (Boyut: 24,7 KB / İndirilme: 26)
iliskisiz form ile yontem ekte ki gibi basit, acilan kutuyu bir alana baglandiginda sorun cikarani asmak gerekiyor. Sizin verdiginiz ornegi degistirmeden acilan kutu ilk harfine gore kayitlari getirme islemi ek'te ki ornekte bulabilirsiniz.

Kullanıcı İmzası

  Alıntı
Bu mesajı beğenenler:
#8
Selamlar,

Hocam emeğinize sağlık. Çok teşekkür ederim.

Saygılar
  Alıntı
Bu mesajı beğenenler:
#9
İlişkisiz form üzerindeki açılan kutuya ilişkilendiren tablodan verileri almaktayım. Örnektekine benzer şekilde bir çalışmam var. Sorum şu; açılan kutu sekmesine bastığımda ilişkili tablodaki veriler gelmektedir. Veriler içerisinden yazmış olduğum ifade ile ilgili tüm kayıtların listelenmesini nasıl yapabilirim.
Örneğin;
"Akdenizde hava bugün yağmurlu ve açık. " ,
"Evin tavanında yağmur yağmasından ötürü damlama başladı."
gibi birden fazla ifade var. Açılan kutu sekmesinde açılan bu tür verileri A harfine bastığımda "Akdenizde hava bugün yağmurlu ve açık. " ve A harfi ile başlayan diğer cümleler geliyor.
Acaba "yağmur" ifadesi yazdığımda içinde bu ifade geçen cümleler nasıl sıralanabilir. Baş harfine göre değil de girilen ifadeye göre sıralama nasıl yapılır.
Teşekkürler, kolay gelsin.
  Alıntı
Bu mesajı beğenenler:
#10
Mesaj 7 ekini degistirdim, incelenebilir.

Kullanıcı İmzası

  Alıntı
Bu mesajı beğenenler:
#11
Sayın dsezgin, öncelikle teşekkür ederim.
Hazırlamış olduğunuz vt yi başka bir vt çalışmamda kullandım.
Bahsettiğim çalışmamı ekte gönderiyorum. Gerekli açıklamaları form ve raporda yaptım. Farklı uygulamalar ve kodlar denedim ama başarılı olamadım. Yardımcı olursanız sevinirim. Teşekkür ederim.
.zip   AcılanKutu.zip (Boyut: 33,26 KB / İndirilme: 3)
  Alıntı
Bu mesajı beğenenler:
#12
Sn samur;
Visual Basic
Option Compare Database
Private Sub Form_Open(Cancel As Integer)
Call SiraNuBul
End Sub
Sub SiraNuBul()
Me.KayıtNo = DCount("[KayıtNo]", "[Sıra]") + 1
End Sub
Private Sub Birim_AfterUpdate()
Me.Madde.Requery
Me.Madde.SetFocus
Me.Madde.Dropdown
If IsNull(Madde) Then Exit Sub
Me.Birim.SetFocus
End Sub
Private Sub Gorevli_AfterUpdate()
Me.[Gorevi] = Me.Gorevli.Column(1)
End Sub
Private Sub Kaydet_Click()
If IsNull(KayitNo) Then Me.KayitNo.SetFocus: Exit Sub
If IsNull(Tarih) Then Me.Tarih.SetFocus: Exit Sub
If IsNull(Gorevli) Then Me.Gorevli.SetFocus: Exit Sub
If IsNull(Gorevi) Then Me.Gorevi.SetFocus: Exit Sub
 
CurrentDb.Execute "insert into Kayit([KayitNo],[Tarih],[Gorevli],[Gorevi],[Birim],[Madde])" _
& "Values (" & Me.KayitNo & ",'" & Me.Tarih & "','" & Me.Gorevli & "','" & Me.Gorevi & "','" & Me.Birim & "','" & Me.Madde & "')"
 
Dim otaner As Control
For Each otaner In Me.Form.Controls
    Select Case otaner.ControlType
    Case acComboBox 
    Me.Controls(otaner.Name) = ""
    Case acTextBox
    Me.Controls(otaner.Name) = ""
    End Select
Next otaner
Call SiraNuBul
Me.Tarih = Date
Me.Tarih.SetFocus
End Sub



Form eylemleri yukaridaki prosedurler uygulanabilir.

Kullanıcı İmzası

  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [FORM] Açılan Kutuda Filtreleme keremm 2 106 15-05-2019, 16:59
Son Mesaj: keremm
  Açılan kutu iliskili sutun atomicf 7 160 18-04-2019, 09:51
Son Mesaj: atomicf
  [FORM] Tek Form Üzerinden Açılan Kutu İle Faklı Tablolara Veri Girişi ressam 3 284 21-12-2018, 10:00
Son Mesaj: ressam
  [SORGU] Açılan kutu uygulaması fatihsipahi 3 357 26-09-2018, 21:04
Son Mesaj: fatihsipahi
access-sql-19 [FORM] Açılır Kutu İle Filtreleme Yapma caglayancerit 1 470 30-07-2018, 01:53
Son Mesaj: dsezgin
  [FORM] Access formda açılan kutu sıfırlama obaysal42 3 1.080 01-06-2018, 16:58
Son Mesaj: Overall
  [FORM] Bölünmüş formda açılır kutu ile verileri süzme sorunu selimdurak 14 2.639 31-05-2018, 19:40
Son Mesaj: atomicf
  [FORM] Açılan Kutudan Buton Gizleme hersey 11 832 15-05-2018, 14:14
Son Mesaj: hersey

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi