Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
30/01/2013 12:34
Konu Sahibi
metehan16
Yorumlar
6
Okunma
2552
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

metehan16

Aktif Üye
Kullanici Avatari
Aktif Üye
142
08/02/2012
24
Belirtilmemiş
Ofis 2007
06/08/2017,22:21
Çözüldü 
Merhaba Arkadaşlar !

Su Analiz Üzerine uygulamamın sonlarına Yaklaştım ama aşamadığım ve es geçemediğim bazı problemlerim var
bunlardan ilki
aşağıda örnek eklediğim uygulamamda "Fnumara" Formundaki listesine sorgu yaptırdıktan sonra çift tıklayarak "frm_numune_grş" Formunu açıyorum fakat İstediğim kayıt açılmıyor form boş açılıyor.

Bunda "frm_numune_grs" Altformlara ve Seçenek listelerine bağlı olarak çalışması etkili sanırım.

Eğer yardımcı olabilirseniz çok memnun kalacağım
İlgilenen Arkadaşlara Şimdiden Çok teşekkürler

eklemeyi unutmuşum özür dilerim
hemen ekledim


Ek Dosyalar
.rar   11_9 orn.rar (Dosya Boyutu: 94,28 KB / İndirme Sayısı: 36)
"Lütfen olumlu veya olumsuz geri dönüş yapınız... " writed by POWER


"sen başla en başta gerektiği yerde elimizden geleni https://www.accesstr.net ailesi olarak yaparız. " writed by özgüryasin


Cevapla

QATLET

sevelim & sevilelim
Kullanici Avatari
Aktif Üye
Z....
122
02/02/2012
20
Eskişehir
Ofis 2013 64 Bit
12/10/2017,15:56
Çözüldü 
Örneyinizi göremedim ekler misiniz lütfen


Cevapla

Yandemir

Only Office 2003
Kullanici Avatari
Altın Üye
M.... Y....
1.435
26/08/2009
482
Tekirdağ
Ofis 2003
16/10/2017,18:10
Çözüldü 
Liste8 ÇiftKlikleme olayındaki kodunuz

Visual Basic Code
Dim stlinkCriteria As String
DoCmd.OpenForm "frm_numune_grs", , , stlinkCriteria

aşağıdaki şekilde olmalı. (GevrakSayi alanını kafadan attım siz eşitlenen alanın adını yazın.)

Visual Basic Code
DoCmd.OpenForm "frm_numune_grs", , , "GevrakSayi=" & Me.Liste8


Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla

metehan16

Aktif Üye
Kullanici Avatari
Aktif Üye
142
08/02/2012
24
Belirtilmemiş
Ofis 2007
06/08/2017,22:21
Çözüldü 
(02/02/2013, 04:45)Yandemir Adlı Kullanıcıdan Alıntı: Liste8 ÇiftKlikleme olayındaki kodunuz

Visual Basic Code
Dim stlinkCriteria As String
DoCmd.OpenForm "frm_numune_grs", , , stlinkCriteria

aşağıdaki şekilde olmalı. (GevrakSayi alanını kafadan attım siz eşitlenen alanın adını yazın.)

Visual Basic Code
DoCmd.OpenForm "frm_numune_grs", , , "GevrakSayi=" & Me.Liste8



Sayın murat hocam İstenilen kriteri verdirip açıyorum fakat "frm_numune_grs" formumun kayıt kaynağı sorgusu seçeneksugrup'a bağlı olduğundan istediğim kaydı açamıyorum. yani numune_grs formum biraz karışık önerinizi merakla bekiyorum.


"Lütfen olumlu veya olumsuz geri dönüş yapınız... " writed by POWER


"sen başla en başta gerektiği yerde elimizden geleni https://www.accesstr.net ailesi olarak yaparız. " writed by özgüryasin


Cevapla

metehan16

Aktif Üye
Kullanici Avatari
Aktif Üye
142
08/02/2012
24
Belirtilmemiş
Ofis 2007
06/08/2017,22:21
Çözüldü 
evet arkadaşlar sonunda problemi çözdüm. biraz karışık oldu ama çözdüm. bana önerileriyle yardımda bulunan ufuk abi (POWER) ve cvp yazıp ilgilenen murat hocama ve tüm arkadaşlara teşekkür ederim.

nasıl çözdüğüme gelince :
listenin doubleclick olayına

Visual Basic Code
1
2
3
4
5
6
7
Private Sub Liste8_DblClick(Cancel As Integer)

Dim stlinkCriteria As String
stlinkCriteria = "[idgelenevrak]=" & Me.Liste8.Column(1)
DoCmd.OpenForm "frm_numune_grs", , , stlinkCriteria

End Sub


ve numune_grs formun yüklendi kısmına

Visual Basic Code
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
32
33
34
35
36
37
38
39
40
41
42
If SysCmd(acSysCmdGetObjectState, acForm, "Fnumara") <> 0 Then
    Select Case Me.scnksugrup
    
    Case Is = 1, 4
    Me.frm_icmekullan_alt.Visible = True
    Me.frm_kaynak_alt.Visible = False
    Me.frm_havuz_alt.Visible = False
    Me.frm_Munferit.Visible = False
    Me.frm_icmekullan_alt.Requery
    
    Case Is = 2, 6
    Me.frm_icmekullan_alt.Visible = False
    Me.frm_kaynak_alt.Visible = True
    Me.frm_havuz_alt.Visible = False
    Me.frm_Munferit.Visible = False
    Me.frm_kaynak_alt.Requery
    
    Case Is = 3
    Me.frm_icmekullan_alt.Visible = False
    Me.frm_kaynak_alt.Visible = False
    Me.frm_havuz_alt.Visible = True
    Me.frm_Munferit.Visible = False
    Me.frm_havuz_alt.Requery
    
    Case Is = 5
    Me.frm_icmekullan_alt.Visible = False
    Me.frm_kaynak_alt.Visible = False
    Me.frm_havuz_alt.Visible = False
    Me.frm_Munferit.Visible = True
    Me.frm_Munferit.Requery
    
    Case Else
    Me.frm_icmekullan_alt.Visible = False
    Me.frm_kaynak_alt.Visible = False
    Me.frm_havuz_alt.Visible = False
    Me.frm_Munferit.Visible = False
    
       
    End Select
  
   
Else

kodunu ekledikten sonra
frm_numune_grs seçenek grubunun varsayılan değerine [Fnumara]![liste8] değerini verdim ve olay çözüldü.


Ek Dosyalar
.rar   11_9 cozuldu.rar (Dosya Boyutu: 100,27 KB / İndirme Sayısı: 49)
"Lütfen olumlu veya olumsuz geri dönüş yapınız... " writed by POWER


"sen başla en başta gerektiği yerde elimizden geleni https://www.accesstr.net ailesi olarak yaparız. " writed by özgüryasin


Cevapla

Yandemir

Only Office 2003
Kullanici Avatari
Altın Üye
M.... Y....
1.435
26/08/2009
482
Tekirdağ
Ofis 2003
16/10/2017,18:10
Çözüldü 
dediğiniz gibi çok karışık olduğundan kendi örneğimle açıklayayım
Liste kutusundaki bağlı tablonuz "tablo1" alanlarınız "ID,Ad,Soyad" olsun
çift klikleme olayında şu kodu yazarsınız

DoCmd.OpenForm "FormAdi", , , "ID=" & Me.Liste
ID ve Liste kutusunda seçilmiş eşit olanları süzer ve getirir.

"FormAdi" formunuz "tablo1" tablosuyla bağlı olmalıdır. tablonuzdaki alanlar karışık olduğu için çözüm sizde.


Murat YANDEMİR ( PyramiD YAZILIM Uluslar Arası Nakliye Programları )
Bilgisayar Programcısı (1989'dan beri)

+rep Yollar biter Access bitmez. +rep
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Kısayol Tuşuyla Liste Kutusu Üzerinden Değer Atama mehmetb84 6 175 18/09/2017, 12:20 mehmetb84
Çözüldü Liste Box In İçindeki Verilerin Hizalanması erensimsek 3 276 19/05/2017, 14:05 erensimsek
Çözüldü Seçime Göre Açılır Liste blue_wall 5 394 11/05/2017, 17:06 atoz112
Çözüldü Combobox Açılır Liste İle İlgili Örnek Uygulama Lazım erensimsek 8 568 06/05/2017, 03:41 erensimsek
Çözüldü Liste Kutusundan Çoklu Seçim Yaparak Alt Forma Aktarma sadikkavakli 3 361 25/04/2017, 08:01 sadikkavakli

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.