Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
05/01/2012 22:22
Konu Sahibi
fascioğlu
Yorumlar
18
Okunma
4017
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

fascioğlu

Aktif Üye*
FA.... AŞ....
 63
 1.016
 202
 18/09/2010
170
 Muğla
 Emekli_Turizm
 Ofis 2003
 26/08/2018,09:15
Çözüldü 
Değerli hocalarım mesaj gönderme konusunda fazlada becerili değilim hata yaptığım için herkesten özür dilerim,
Benim sorum Etiket kutusu değerinin metin kutusuna atması ve buna göre formda yeni kayıt açması.2 sorum ise müşteri çıkışlarında etiket kutusunun boş konuma gelmesi.Saygı ve hürmetlerimi sunarım.

Ek Dosyalar
Etiket Kutusunden veri aktarma.rar(64.19 KB)



Kullanici Avatari

Kur@l

Uzman
 42
 2.034
 59
 05/11/2008
 -
 
 Ofis 2010 32 Bit
 07/12/2018,00:59
Çözüldü 
Yeni sorular için yeni konu açınız ayrıca sorununuzu mesajınıza yazarsanız yardımcı olabileceklerin sayısı artacaktır.



Kullanici Avatari

ozanakkaya

Kurucu
OZ.... AK....
 41
 11.595
 469
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
Çözüldü 
Kodu aşağıdaki ile değiştirirseniz;

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function tikladim(tiklanan As String)
 DoCmd.SetWarnings False
 If DLookup("bosdolu", "tbl_odalistesi", "odano=" & Int(tiklanan)) = -1 Then
 DoCmd.RunSQL ("UPDATE tbl_odalistesi SET bosdolu = 0 WHERE odano=" & Int(tiklanan))
 Controls("Etiket" & tiklanan).BackColor = 64
 Controls("Etiket" & tiklanan).ForeColor = 16777215
 Me.ODA_NO = tiklanan
 Else
 DoCmd.RunSQL ("UPDATE tbl_odalistesi SET bosdolu =-1 WHERE odano=" & Int(tiklanan))
 Controls("Etiket" & tiklanan).BackColor = 12632256
 Controls("Etiket" & tiklanan).ForeColor = 0
 End If
 DoCmd.SetWarnings True
 Liste363.Requery
 Liste361.Requery
End Function


Dolu olarak gösterdiğiniz son odanın numarasını metin kutusuna aktarır.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

fascioğlu

Aktif Üye*
FA.... AŞ....
 63
 1.016
 202
 18/09/2010
170
 Muğla
 Emekli_Turizm
 Ofis 2003
 26/08/2018,09:15
Çözüldü 
Sledgeab -Hocam eline sağlık sağolun var olun çok çok tşk ederim. Örneği bitirdikten sonra siteye ekleyeceğim saygılarımla.
Sevgili hocam kodu uyguladım ancak dolu oda etiketleri porgramı açıp kapattıktan sonra boş olarak gözüküyor neden olabilir,hatamı yapıyorum form ektedir yardımcı olursanız memnun olurum.
Ek Dosyalar
oda_kayıt da Etiket.rar(67.76 KB)



Kullanici Avatari

ozanakkaya

Kurucu
OZ.... AK....
 41
 11.595
 469
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
Çözüldü 
hazırlanan örnekte

Visual Basic Code
1
2
3
4
5
6
7
8
9
10
11
Sub KutuRenk()
On Error Resume Next
  
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
    DoCmd.DoMenuItem acFormBar, acRecordsMenu, 5, , acMenuVer70
    For i = 0 To Me.Liste361.ListCount - 1
        Controls("Etiket" & Me.Liste361.ItemData(i)).BackColor = 12632256
        Controls("Etiket" & Me.Liste361.ItemData(i)).ForeColor = 0
    Next

End Sub

ve

Visual Basic Code
Private Sub Form_Current()
Call KutuRenk
End Sub

kodları eklenmişti. Son örneğinizde bu kodlar yok.


ayrıca, renk değiştirme sonrası kodlarda hatalı değişiklikler yapılmış. Ekteki uygulamayı deneyiniz.

Ek Dosyalar
oda_kayıt_son.rar(52.91 KB)


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

fascioğlu

Aktif Üye*
FA.... AŞ....
 63
 1.016
 202
 18/09/2010
170
 Muğla
 Emekli_Turizm
 Ofis 2003
 26/08/2018,09:15
Çözüldü 
Sledgeab hoca ne yazsam ne söylesem kafi gelmez sanırım eline koluna sağlık sizi fazla yordum kusuruma bakmayın birde kayıt silme işleminde dolu olan oda etiketininde silmeyle birlikte boş konumuna gelirse söyleyecej sözüm kalmayacak.. saygılarımla.




Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Formdaki Metin Kutusundakini Googlede Aramak ates2014 5 102 23/11/2018, 20:10
Son Yorum: ates2014
Çözüldü Metin Kutusu Tıklandığında Olayına Kod İle " X" Yazdırmak İstiyorum alimadam 5 148 21/11/2018, 22:36
Son Yorum: alimadam
Çözüldü Bir Veri Kutusunun Değerini, Başka Bir Veri Kutusuna Bağımlı Yapabilir Miyim ? A_day 10 191 18/11/2018, 22:24
Son Yorum: A_day
Çözüldü From Arayüzündeki Kayıtlar Bir Önceki Kayıttan Farklı İse Metin Kutusu Rengi Değişsin burhanb 11 353 16/11/2018, 08:20
Son Yorum: burhanb
Çözüldü İlişkisiz Formda Metin Kutusu Değeri Varsayılanı Dlookup İle Getirme hbal09 2 88 14/11/2018, 11:29
Son Yorum: hbal09

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