Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

Açılan kutuya girilen metni 5 Farklı Metin kutusuna 2 seçmeli nasıl aktarabiliriz?

Soundcraft
Soundcraft
Access Cevaplanmış Soruları
5
4610

Açılan kutuya girilen metni 5 Farklı Metin kutusuna 2 seçmeli nasıl aktarabiliriz?

Çözüldü #1
Soundcraft
Üye
Soundcraft
Bul
Üye
Adı Soyadı:
Yaşı: 46
Konum: Bolu
Ofis Versiyonu: Ofis 2003
Son Oturumu: 27/03/2024,11:11
Yorumları: 9
Konuları: 2
Kayıt Tarihi: 17/01/2009
Teşekkür Puanı: 0
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.
Son Düzenleme: 15/05/2009, 19:56, Düzenleyen: Soundcraft.
Cevapla
Çözüldü #2
ayhan2122
accesstr.net , gayet net ;)
ayhan2122
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 47
Konum: -
Ofis Versiyonu: Ofis 2003
Son Oturumu: 10/02/2021,19:44
Yorumları: 681
Konuları: 26
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 451
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
Çözüldü #3
Seruz
Uzman
Seruz
www Bul
Uzman
Adı Soyadı: Se.... UZ....
Yaşı: 53
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 17/12/2024,11:40
Yorumları: 1.579
Konuları: 8
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 825
Mesleğiniz: BT Şefi
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
Çözüldü #4
Soundcraft
Üye
Soundcraft
Bul
Üye
Adı Soyadı:
Yaşı: 46
Konum: Bolu
Ofis Versiyonu: Ofis 2003
Son Oturumu: 27/03/2024,11:11
Yorumları: 9
Konuları: 2
Kayıt Tarihi: 17/01/2009
Teşekkür Puanı: 0
(15/05/2009, 20:21)Seruz yazdı: 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:
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.
Son Düzenleme: 15/05/2009, 22:12, Düzenleyen: Soundcraft.
Cevapla
Çözüldü #5
Soundcraft
Üye
Soundcraft
Bul
Üye
Adı Soyadı:
Yaşı: 46
Konum: Bolu
Ofis Versiyonu: Ofis 2003
Son Oturumu: 27/03/2024,11:11
Yorumları: 9
Konuları: 2
Kayıt Tarihi: 17/01/2009
Teşekkür Puanı: 0
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:
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:
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") & "'")
Son Düzenleme: 16/05/2009, 15:24, Düzenleyen: Soundcraft.
Cevapla
Çözüldü #6
ayhan2122
accesstr.net , gayet net ;)
ayhan2122
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 47
Konum: -
Ofis Versiyonu: Ofis 2003
Son Oturumu: 10/02/2021,19:44
Yorumları: 681
Konuları: 26
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 451
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

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task