formda if değerine göre kapanıp yeni formun açılması
Tarih
12/03/2009 00:15
Konu Sahibi
macaliskan
Yorumlar
5
Okunma
1529
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy



macaliskan
Aktif Üye
Kullanici Avatari
Aktif Üye
109
17/01/2009
14
İstanbul
Ofis 2003
11/03/2013,23:29
Çözüldü 
iyi akşamlar arkadaşlar

ekteki ornekte

açılışta bir form var bu formda disk no alınıyor ve bu deger dogruysa
açılan form kapansın ve if degerine göre diğer form açılsın
veya ilk form kapanmasın sonraki onun üzerine açılsın yani aktif form olsun
bunu denedim fakat yapamadım
yardımcı olursanız sevinirim kolay gelsin


Ek Dosyalar
.rar   ornek_999.rar (Dosya Boyutu: 41,88 KB / İndirme Sayısı: 22)
Cevapla


tdsharun
>>> O Şimdi Sivil<<<
Kullanici Avatari
Aktif Üye
778
06/11/2008
225
Kütahya
Ofis 2003
31/12/2011,02:16
Çözüldü 
Sanırım istediğiniz şöyle bir şey:

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
Option Compare Database
Option Explicit
Private Declare Function GetVolumeSerialNumber Lib "kernel32" Alias "GetVolumeInformationA" (ByVal lpRootPathName As String, ByVal lpVolumeNameBuffer As String, ByVal nVolumeNameSize As Long, lpVolumeSerialNumber As Long, lpMaximumComponentLength As Long, lpFileSystemFlags As Long, ByVal lpFileSystemNameBuffer As String, ByVal nFileSystemNameSize As Long) As Long
Function VolumeSerialNumber(ByVal RootPath As String) As String
    Dim VolLabel As String
    Dim VolSize As Long
    Dim Serial As Long
    Dim MaxLen As Long
    Dim Flags As Long
    Dim Name As String
    Dim NameSize As Long
    Dim s As String

    If GetVolumeSerialNumber(RootPath, VolLabel, VolSize, Serial, MaxLen, Flags, Name, NameSize) Then
            s = Format(Hex(Serial), "00000000")
            VolumeSerialNumber = Left(s, 4) + "" + Right(s, 4)
    Else
VolumeSerialNumber = "0000-0000"
End If
End Function


Private Sub Form_Current()
Me.diskno.Visible = False
If VolumeSerialNumber("C:\") = Me.diskno.Value Then

    DoCmd.OpenForm "ACILIS", acNormal
    
 Else
    DoCmd.OpenForm "LISAN_DEVAM", acNormal
    

End If
End Sub


Bu kodların tamamını ILK_FORM'daki kodların yerine koyun. Öncekileri silin. Sadece bu kodları kullanın...
Kolay gelsin...

Cevapla


C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
Bugün,20:18
Çözüldü 
merhaba
arkadaşlar yardımcı olmuşlar ama bende örenğin temelinde Sayın mehmetdemiral hocamızın yaptığı lisan örneğini ekliyerek yaptım
siz giriş için
300000 den HHd seri nosunun ilk dörk rakamını çıkararak çıkan sonucu verilen yeri girerek açabilirsiniz, daha sonra bu 300000 sayısını kendinize göre değiştirebilirsiniz,
yani
300000-***** = sizin lisannonuz olacak kolay gelsin


Ek Dosyalar
.rar   ornek_999-Celoyce Lisans cevap.rar (Dosya Boyutu: 509,98 KB / İndirme Sayısı: 18)
Cevapla


mehmetdemiral
.
Kullanici Avatari
Uzman
M.... D....
4.734
30/10/2008
Samsun
Ofis 2013 Tr. 32 Bit
05/12/2016,11:17
Çözüldü 
Aslında benim yaptığım değil, düzenlediğim demek lazım. Çünkü bu dosyanın modülünü İdris Aydın KAL isimli hemşerimden almıştım ve geliştirmiştim. (sanırım 2000 yılındaydı)
İnadına, ille de Accesstr.net...
Cevapla


C*e*l*o*y*c*e
Celosoft Yazılım
Kullanici Avatari
Uzman
M.... B....
2.813
29/10/2008
899
Ankara
Ofis 2010 32 Bit
Bugün,20:18
Çözüldü 
eksik gönderdiğimi fark ettim ve yenisini aynı yere ekledim tekrar indirip aynı işlemleri yapınız
Cevapla


macaliskan
Aktif Üye
Kullanici Avatari
Aktif Üye
109
17/01/2009
14
İstanbul
Ofis 2003
11/03/2013,23:29
Çözüldü 
teşekkür ederim

celeyco hocanın verdiği örnekte
zaman dolduğunda kısmında
docmd.close komutunu görünce orada yapsam nasıl olur diye düşündüm
if kısmını oraya taşıyıp orada uyguladım istediğim şimdilik oldu

normal çalışıyor görünüyor

ilginize teşekkürler sayın hocalarım
kolay gelsin


Ek Dosyalar
.rar   ornek_999.rar (Dosya Boyutu: 47,79 KB / İndirme Sayısı: 38)
Cevapla







Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  alt veri sayfasındaki verileri formda görmak murat dikme 4 67 07/12/2016, 18:14 murat dikme
  Form içinden yeni kayıta gitmek istemiyorum shalala 5 140 07/12/2016, 09:00 temre
  karma kutuya göre toplama çıkarma maras321 5 192 06/12/2016, 03:07 maras321
  Listede ve Raporda Tarih değerine göre sıralamak m_demir 20 287 03/12/2016, 00:13 m_demir
  Liste kutusu çift tıklama ile yeni form açmak nightashes 18 255 02/12/2016, 20:04 nightashes


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