Açılan kutuya girilen metni 5 Farklı Metin kutusuna 2 seçmeli nasıl aktarabiliriz?
Tarih
15/05/2009 19:47
Konu Sahibi
Soundcraft
Yorumlar
5
Okunma
2637
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



Soundcraft
Üye
Kullanici Avatari
Üye
9
2
17/01/2009
0
Bolu
Ofis 2003
23/09/2015,02:45
Çözüldü 
Arkadaşlar merhaba. Accesse yeni başladığım için çok basit bir soruda olabilir. ama mazur görün. Arama yaptım ama soruma tam çözüm bulamadım.

Sorum şu şekilde.

Soru ürün satışı ile ilgili. Ürün satışı yapacağımız bir formumuz var ve burada
(Açılan kutu)"URUNKODU" - (AçılanKutu)"SERINO" - (MetinKutusu)"URUNADI" - (MetinKutusu)"ADEDI" - (MetinKutusu)"ALISFIYATI" - (MetinKutusu)"SATISFIYATI" - (MetinKutusu)"ACIKLAMA"
şeklinde Formumuz var ve bilgileride "STOKDURUM" sorgusundan alıyor

BURADA 2 Adet açılan kutumuz var ve 5 adette Metin kutumuz var.

Elimizdeki ürünlerin ise aynı barkodu olan ama farklı seri numaraları olan ürünler var.
Yani "11111" barkodlu 3 ürünümüz var ve birinin seri numarası "aaaaa" diğerininki "bbbbb" ötekininki "ccccc"

Birinci açılan kutuda barkodu okuttuğumuzda otomatik diğer açılan kutuya geçmesini ve o kutudada ilk kutuda seçtiğim aynı barkodlu ama farklı seri numaralaı ürünleri görmek istiyorum ve oradan seçim yapmak istiyorum. Seri numarasınıda seçtiğimde o ürünün bilgileri diğer 5 metin kutusuna işlenecek.

Burada "dlookup" komutunu denedim ama başarılı olamadım.

Biraz karmaşık oldu ama kusura bakmayın.
Cevapla


ayhan2122
accesstr.net , gayet net ;)
Kullanici Avatari
Uzman
681
30/10/2008
451
-
Ofis 2003
24/10/2016,00:04
Çözüldü 
Sn Soundcraft;
Örnek ekleseydiniz daha iyi olurdu ama yazdıklarınızdan anladığım kadarıyla;

URUNKODU 'nun GüncelleştirmeSonrasında olay yordamına;
me.SERINO.setfocus
me.SERINO.requery
yazın.
SERINO'nun SatırKaynağında kullandığınız sorgunun SERINO alanının ölçütüne :
Forms!FormAdı!URUNKODU
yazın.

SERINO'nun GüncelleştirmeSonrasında olay yordamına:
me.URUNADI==Dlookup(....
me.ALISFIYATI=Dlookup(....
me.SATISFIYATI=Dlookup(.... ile verileri ilgili kutucuklara çekin.
Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla


Seruz
Uzman
Kullanici Avatari
Uzman
S.... U....
1.544
7
30/10/2008
804
Tekirdağ
Ofis XP
02/12/2016,15:18
Çözüldü 
Bir açılan kutudan, metin kutusuna değer almak ile ilgili bilgiyi aşağıdaki konuda:

Açılan kutudaki seçime göre formdaki metin kutularına bilgi getirme 

Birbirine bağlı Açılan Kutular hakkında bilgiyi aşağıdaki konuda bulabilirsiniz
İlişkili Combobox ListBox 

Size, öncelikle Access Dersleri kısmını, daha sonra Access Örnekleri kısmındaki örnek uygulamaları incelemenizi tavsiye ederim.

Yine de yapamazsanız, örnek dosyanızı eklerseniz, yardımcı oluruz.
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla


Soundcraft
Üye
Kullanici Avatari
Üye
9
2
17/01/2009
0
Bolu
Ofis 2003
23/09/2015,02:45
Çözüldü 
(15/05/2009, 20:21)Seruz Adlı Kullanıcıdan Alıntı: Bir açılan kutudan, metin kutusuna değer almak ile ilgili bilgiyi aşağıdaki konuda:

Açılan kutudaki seçime göre formdaki metin kutularına bilgi getirme 

Birbirine bağlı Açılan Kutular hakkında bilgiyi aşağıdaki konuda bulabilirsiniz
İlişkili Combobox ListBox 

Size, öncelikle Access Dersleri kısmını, daha sonra Access Örnekleri kısmındaki örnek uygulamaları incelemenizi tavsiye ederim.

Yine de yapamazsanız, örnek dosyanızı eklerseniz, yardımcı oluruz.

Belirttiğiniz konuları incelemiştim zaten ve Açılan kutudaki seçime göre formdaki metin kutularına bilgi getirme  konusundaki tek comboboxtan veri alıyor ben ise 2 comboboxtan veri alacağım.

Uygulamayı Dlookup ilede yaptığımdada oluyor ama yine tek comboboxtan alıyordu.
Sayın @ayhan2122 nin belirtiği


Kod:
1
2
3
4
5
6
URUNKODU 'nun GüncelleştirmeSonrasında olay yordamına;
me.SERINO.setfocus
me.SERINO.requery
yazın.
SERINO'nun SatırKaynağında kullandığınız sorgunun SERINO alanının ölçütüne :
Forms!FormAdı!URUNKODU


kısmı deneyeceğim.
ilginiz için teşekkür ederim.

Cevapla


Soundcraft
Üye
Kullanici Avatari
Üye
9
2
17/01/2009
0
Bolu
Ofis 2003
23/09/2015,02:45
Çözüldü 
Sayın @ayhan2122;

Belitrttiğiniz şekilde oldu sayılır ama bu defa birinci kutudan çeçim yaptığımızda ikinci kutuda birinci kutuya göre veri gelmesi gerekirken oradada tüm veriler ekrana geliyor.
Ben ise ön eleme yaparak, önce birinci kutudan sonra birinci kutuya ait olan listedeki verileri ikinci kutuda görmek ve oradaki seçimi yaptığımda diğer verilerin aktarılmasını istiyorum.

Kodlamada bi hatamı yaptım bakabilirmisiniz?

1. Kutu kodları

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Private Sub BARKOD_AfterUpdate()
Me.KOD.SetFocus
Me.KOD.Requery
Me.YAPILANISLEM = DLookup("[BARKOD]", "[URUNADI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.ADEDI.Value = "1"
Me.SATISFIYATI = DLookup("[BARKOD]", "[SATISFIYATI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.KDV = (Me.SATISFIYATI * Me.ADEDI) * KDVSİ / 100
Me.TOPLAMSATIS = Me.SATISFIYATI + Me.KDV
Me.DEPO = Me.KOD.Column(2)
If Me.DEPO <= 0 Then
MsgBox "Stoklarınızda ürün mevcut değil", vbExclamation, "Bilgi"
Me.Undo
Me.BARKOD.SetFocus
End If
DoCmd.OpenForm "KONTROL2"
End Sub

Private Sub BARKOD_Enter()
KOD.BackColor = vbYellow
End Sub

Private Sub BARKOD_Exit(Cancel As Integer)
KOD.BackColor = vbWhite
End Sub

Private Sub BARKOD_NotInList(NewData As String, Response As Integer)
On Error GoTo hata
Response = acDataErrContinue
MsgBox "Stokta tanımlı böyle bir ürün bulunamadı.", 48, "Müşteri Takip"
hata: Exit Sub
End Sub



2. Kutu kodları

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Private Sub KOD_AfterUpdate()
Me.YAPILANISLEM = DLookup("[URUNADI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.ADEDI.Value = "1"
Me.SATISFIYATI = DLookup("[SATISFIYATI]", "[URUNLER]", "[KOD]=[URUNKODU]")
Me.KDV = (Me.SATISFIYATI * Me.ADEDI) * KDVSİ / 100
Me.TOPLAMSATIS = Me.SATISFIYATI + Me.KDV
Me.DEPO = Me.KOD.Column(2)
If Me.DEPO <= 0 Then
MsgBox "Stoklarınızda ürün mevcut değil", vbExclamation, "Bilgi"
Me.Undo
Me.KOD.SetFocus
End If
DoCmd.OpenForm "KONTROL2"
End Sub

Private Sub KOD_Enter()
KOD.BackColor = vbYellow
End Sub

Private Sub KOD_Exit(Cancel As Integer)
KOD.BackColor = vbWhite
End Sub

Private Sub KOD_NotInList(NewData As String, Response As Integer)
On Error GoTo hata
Response = acDataErrContinue
MsgBox "Stokta tanımlı böyle bir ürün bulunamadı.", 48, "Müşteri Takip"
hata: Exit Sub
End Sub



Yada Dlookup kodunu aşağıdaki gibi bağlasak istediğim sonuca çıkarmı diyerek denedim ama olmadı Yada bu kodda biyerde hata yaptım

Kod:
DLookup("BARKOD, "KOD", "ID='" & DLookup("URUNADI", "SATISFIYATI") & "'")

Cevapla


ayhan2122
accesstr.net , gayet net ;)
Kullanici Avatari
Uzman
681
30/10/2008
451
-
Ofis 2003
24/10/2016,00:04
Çözüldü 
Sn Soundcraft
DlookUp yanşıl kullanmışsın.

Kod:
DlookUp("AlanAdı","TabloAdı","Kriter")

şeklinde olmalı.
En iyisi örneğini ekle, sorunu çözelim Img-grin

Saygılar, iyi çalışmalar.
*********
Kod, formül vs bilmek önemlidir ama mantığını yürütebilmek, nerede ve nasıl kullanılacağını bilmek daha önemlidir.
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  açılan kutu değerine göre aktif/pasif buton ferhatozge 10 327 30/11/2016, 12:01 donepezil
  Liste kutusuna tıklayınca metin kutusuna bilgiyi getirme nightashes 5 85 28/11/2016, 23:33 nightashes
  Metin Kutusu Hk. Serkan Çevik 2 60 25/11/2016, 23:40 Serkan Çevik
  Açılan kutuda girilen ürün kodu yoksa, form açma ferhatozge 9 201 23/11/2016, 23:45 ozanakkaya
  Ayrı butonlardaki farklı işlevleri tek buton ile gerçekleştirmek murat dikme 9 342 20/11/2016, 16:06 murat dikme


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