Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
12/03/2009 00:15
Konu Sahibi
macaliskan
Yorumlar
5
Okunma
1858
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.986
29/10/2008
927
Ankara
Celosoft Yazılım
Ofis 2010 32 Bit
Çö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.767
30/10/2008
Samsun
Öğretmen
Ofis 2013 32 Bit
10/09/2017,11:19
Çö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.986
29/10/2008
927
Ankara
Celosoft Yazılım
Ofis 2010 32 Bit
Çö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
Çözüldü Ana Formdayken Bir Alt Formdan Diğer Alt Formun Düğmesine Tıklama Olayı sertac76 4 64 5 saat önce sertac76
Çözüldü Form Üzerinden Tablodaki Satış Koduna Ait Verileri İskonta Oranına Göre Güncelle husem 2 126 30/08/2017, 15:51 husem
Çözüldü Sürekli Formda Kayıt Girdisi Üstte Olması Yardım... bilservisci 13 360 28/08/2017, 01:42 bilservisci
Çözüldü Formdaki Kaydı Farklı Formda Yeniden Kayıt U.ALTUN 7 331 21/08/2017, 12:04 direnist
Çözüldü Tabloya Yeni Veri Girişini Engelleme ALTANs 2 145 17/08/2017, 13:13 ALTANs

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