Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
21/05/2012 10:47
Konu Sahibi
accessman
Yorumlar
2
Okunma
1181
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

accessman

Aktif Üye
Kullanici Avatari
Aktif Üye
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
iyi günler
malum f4 basınca AKTİF pencere kapanıyor
bu bilgi accessde nasıl kullanılır
yani aktif penceere ismini Access de nasıl bulup gösteririz
teşekkürler


@benbendedeilem
Cevapla

accessman

Aktif Üye
Kullanici Avatari
Aktif Üye
2.367
31/10/2008
425
Denizli
Ofis 2003
20/09/2016,00:20
Çözüldü 
şöyle bir şey buldum ama

Create a new class module named weControlChange and paste the following code into it. Then follow the usage comments at the top of the class module to implement.

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
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
' Usage: 1. Add the following to the declaration section of the form module:
'               Dim ControlChange As New weControlChange
'        2. Add the following to the Form_Load OR Form_Open event:
'               ControlChange.Setup Me.Form
Option Compare Database
Option Explicit

Private WithEvents weTextBox As TextBox
Private WithEvents weComboBox As ComboBox
Private WithEvents weCheckBox As CheckBox

Private CtlColl As Collection

Public Sub Setup(Frm As Form)
Dim Ctl As Control, CtlChng As weControlChange
    Set CtlColl = New Collection
    For Each Ctl In Frm.Section(acDetail).Controls 
   'For Each Ctl In Frm.Controls    ''to include controls from all sections'
        Select Case Ctl.ControlType
        Case acTextBox, acComboBox, acCheckBox
            If Ctl.Enabled And Ctl.Visible Then
                Set CtlChng = New weControlChange
                Set CtlChng.Control = Ctl
                CtlColl.Add CtlChng
            End If
        End Select
    Next Ctl
End Sub

Public Property Set Control(ByVal Ctl As Control)
    Select Case Ctl.ControlType
    Case acTextBox
        Set weTextBox = Ctl
        weTextBox.OnEnter = "[Event Procedure]"
    Case acComboBox
        Set weComboBox = Ctl
        weComboBox.OnEnter = "[Event Procedure]"
    Case acCheckBox
        Set weCheckBox = Ctl
        weCheckBox.OnEnter = "[Event Procedure]"
    End Select
End Property

Private Sub weCheckBox_Enter()
    MyScript weCheckBox
End Sub

Private Sub weComboBox_Enter()
    MyScript weComboBox
End Sub

Private Sub weTextBox_Enter()
    MyScript weTextBox
End Sub

Private Sub MyScript(Ctl As Control)
    'Your code goes here
End Function

Private Sub Class_Terminate()
Dim Ctl As Object
On Error Resume Next
    If Not CtlColl Is Nothing Then
        For Each Ctl In CtlColl
            Set Ctl = Nothing
        Next Ctl
        Set CtlColl = Nothing
    End If
End Sub


@benbendedeilem
Cevapla

Yandemir

Only Office 2003
Kullanici Avatari
Aktif Üye
M.... Y....
1.435
26/08/2009
482
Tekirdağ
Ofis 2003
Dün,18:10
Çözüldü 

Visual Basic Code
msgbox me.name

açık ve bulunduğun formun adını verir. istediğin bumu?


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ü Formda Aktif Aramada Çıkanları Excele Gönderemedim ankaram 5 342 04/06/2017, 17:43 ankaram
Çözüldü Sürekli Formda Satırlardaki Onay Kutularını Aktif / Pasif Yapma akif_erdem 10 632 29/03/2017, 18:25 akif_erdem
Çözüldü Sorgu Ölçütünü Aktif Formdan Alması raburabu 4 332 23/03/2017, 08:35 raburabu
Çözüldü Listede arama yapılanın seçimi aktif olması raburabu 3 353 01/12/2016, 08:42 raburabu
Çözüldü açılan kutu değerine göre aktif/pasif buton ferhatozge 10 1.290 30/11/2016, 12:01 donepezil

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