AccessTr.neT

Tam Versiyon: formda if değerine göre kapanıp yeni formun açılması
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
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
Sanırım istediğiniz şöyle bir şey:

Kod:
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...
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
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ı)
eksik gönderdiğimi fark ettim ve yenisini aynı yere ekledim tekrar indirip aynı işlemleri yapınız
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