Etiket Değerinin Metin Kutusuna Aktarılması
Tarih
05/01/2012 22:22
Konu Sahibi
fascioğlu
Yorumlar
18
Okunma
3171
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



fascioğlu
(yunusotel)
Kullanici Avatari
Aktif Üye (Özel)
F.... A....
839
18/09/2010
162
Muğla
Ofis 2003
18/11/2016,00:04
Çözüldü 
Sponsor Reklam
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]
Cevapla

Kur@l
AccessTR.Net
Kullanici Avatari
Uzman
2.030
05/11/2008
KONYA
Ofis 2010
21/01/2017,15:58
Çö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.
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.189
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,03:19
Çözüldü 
Sponsor Reklam
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.

Cevapla

fascioğlu
(yunusotel)
Kullanici Avatari
Aktif Üye (Özel)
F.... A....
839
18/09/2010
162
Muğla
Ofis 2003
18/11/2016,00:04
Çö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]
Cevapla

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.189
29/01/2008
Denizli
Polis Memuru
Ofis 2010 32 Bit
Bugün,03:19
Çözüldü 
Sponsor Reklam
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]
Cevapla

fascioğlu
(yunusotel)
Kullanici Avatari
Aktif Üye (Özel)
F.... A....
839
18/09/2010
162
Muğla
Ofis 2003
18/11/2016,00:04
Çö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.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  metin kutusuna girilen ilk karakterin silinmesi slayerrrrr 4 94 17/01/2017, 14:27 slayerrrrr
  Gelen sonuca göre otamatik metin yazdırma hknct 13 285 16/01/2017, 16:35 hknct
  Metin Kutusu Hk. Serkan Çevik 2 71 12/01/2017, 20:28 Serkan Çevik
  ekran klavyesini tüm metin kutularında kullanmak zetyu 16 299 08/01/2017, 15:05 ozanakkaya
  Formda 1 Metin Kutusuna birden fazla Metin Kutusu içeriğini koşula bağlı gösterme hbal09 5 218 06/01/2017, 16:22 atoz112


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status
© Desing by XSTYLED| Develops by ozanakkaya