Skip to main content

AccessTr.neT

Kayıt Ol

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

Tek Formu Diğer formlarda kullanma

raburabu
raburabu
Access Cevaplanmış Soruları
6
2453

Tek Formu Diğer formlarda kullanma

#1
raburabu
Aktif Üye
raburabu
Bul
Aktif Üye*
Adı Soyadı:
Konum: Konya
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 06/10/2024,23:47
Yorumları: 70
Konuları: 16
Kayıt Tarihi: 12/06/2015
Teşekkür Puanı: 0
Merhabalar.

Bu firma formumu bütün formlarımda da kullanıyorum. Listedeki firmaya çift tıklayarak o firmanın CARIID ve Firma Adını Kullanacağım diğer formda Aynı CARIID ve FİRMAADI bölümüne aktarıyorum. Bunu yaparken de olay yordamında çok kod yazıyor.  Sizden ricam FİRMASEÇ açıldığında altında aktif olan hangi form var ise ona kayıt etmesi için kısa bir kod olabilir mi.  Şimdiden teşekkür ederim.
.rar deneme.rar (Dosya Boyutu: 108,29 KB | İndirme Sayısı: 6)
Cevapla
#2
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Dün,21:04
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
Merhaba,

Öncelikle, konularınızı Site Kurallarına uygun olarak açınız.


Alıntı:Site Kuralları:
3e) Örnek uygulamanızın adını veya rar/zip adını “örnek”, “deneme”, “yeni microsoft Access veritabanı”,“database”,“yeni klasör”, “soru” vs. isimlerle göndermeyiniz, kullanıcı adınızı ve/veya kısa başlık giriniz.

Bahsettiğiniz işlemi doğru anladıysam,

Yeni bir modül oluştur. Modüle aşağıdaki kodu ekle ve modülü kaydet.

Option Compare Database
Option Explicit

Global GeciciFormAdi, AcikForm As Form
'www.accesstr.net

Public Function FirmaSec()
    
    Set AcikForm = Screen.ActiveForm
    GeciciFormAdi = AcikForm.Name

    DoCmd.OpenForm "FİRMASEÇ", acNormal, "", "", , acNormal
End Function

Daha sonra, FİRMASEÇ isimli formu açtıracağın formlarda

formun açıldığında olayındaki


DoCmd.Maximize
DoCmd.GoToRecord , , acNewRec
DoCmd.OpenForm "FİRMASEÇ", acNormal

Şeklinde kod mevcut bu kodu aşağıdaki ile değiştir.


DoCmd.Maximize
DoCmd.GoToRecord , , acNewRec
Call FirmaSec

Formda bulunan firma seç formunu açtıran butonun tıklandığında olayındaki kodu aşağıdaki ile değiştir.


Call FirmaSec


FİRMASEÇ isimli formdaki Liste isimli liste kutusunun çift Tıklatıldığında olayındaki kodun tamamını aşağıdaki ile değiştir.


If GeciciFormAdi = "Fatura" Then
    Forms(GeciciFormAdi)![vade] = Liste.Column(4)
End If

Forms(GeciciFormAdi).[CARIID] = Liste.Column(0)
Forms(GeciciFormAdi).[FİRMAADI] = Liste.Column(1)

DoCmd.Close acForm, "FİRMASEÇ"



Sonuç hakkında olumlu/olumsuz bildirimde bulununuz.
Cevapla
#3
raburabu
Aktif Üye
raburabu
Bul
Aktif Üye*
Adı Soyadı:
Konum: Konya
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 06/10/2024,23:47
Yorumları: 70
Konuları: 16
Kayıt Tarihi: 12/06/2015
Teşekkür Puanı: 0
Merhaba Ozanakkaya hocam. Süpersiniz. Muhteşem elinize sağlık . FİRMASEÇ formu açıldığında aradığımız firmayı listeden süzüyor. bulunan firmayı seçip ENTER basınca da gönderebilirmiyiz.
Cevapla
#4
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Dün,21:04
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
(25/11/2016, 09:05)raburabu yazdı: Merhaba Ozanakkaya hocam. Süpersiniz. Muhteşem elinize sağlık . FİRMASEÇ formu açıldığında aradığımız firmayı listeden süzüyor. bulunan firmayı seçip ENTER basınca da gönderebilirmiyiz.

liste kutusunun "Tuşa Basılırken" olayına aşağıraku kodu ekleyerek deneyiniz.

Private Sub Liste_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
If GeciciFormAdi = "Fatura" Then
    Forms(GeciciFormAdi)![vade] = Liste.Column(4)
End If

Forms(GeciciFormAdi).[CARIID] = Liste.Column(0)
Forms(GeciciFormAdi).[FİRMAADI] = Liste.Column(1)

DoCmd.Close acForm, "FİRMASEÇ"
KeyCode = 0
End If
End Sub
Cevapla
#5
raburabu
Aktif Üye
raburabu
Bul
Aktif Üye*
Adı Soyadı:
Konum: Konya
Ofis Versiyonu: Ofis 2010 32 Bit
Son Oturumu: 06/10/2024,23:47
Yorumları: 70
Konuları: 16
Kayıt Tarihi: 12/06/2015
Teşekkür Puanı: 0
Merhaba Özanakkaya çok teşekkür ederim. ENTERE basınca da istediğim formlara gönderme yapıyor. Ancak Listeden süzüleni fare ile yada klavye ok tuşu ile seçmem gerekiyor. Bu seçimi aradığım firma bulununca hemen seçim yapabilirmi.  

[Resim: do.php?imgf=148015739313751.png]
Cevapla
#6
ozanakkaya
sledgeab
ozanakkaya
Bul
Kurucu
Adı Soyadı: Oz.... Ak....
Konum: Denizli
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: Dün,21:04
Yorumları: 13.543
Konuları: 499
Kayıt Tarihi: 29/01/2008
Teşekkür Puanı: 3.139
Mesleğiniz: Memur
Konu başlığındaki sorun çözüldüyse konuyu taşıyalım. Farklı sorunuz var ise yeni konu açınız.

Site Kuralları:
1b) Açtığınız konudaki sorun çözümlenmişse aynı konuya konu başlığındaki soru ile ilgisi olmayan farklı soru yazmayınız. Farklı sorunuz var ise yeni konu açınız.
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task