'Modüller' olarak etiketlenmiş yazılar
Cumartesi, Mayıs 2, 2009 |
Bazen bir sorgu yapıyor ve hiçbir kayıt gerekli değilken, örneğin göstermek için kayıt varsa açık bir form önlemek için gerekli olduğunu, biz gösterilecek verilere sahip bu yana açık formda olması gerekmez. Peki denetlemek zorunda göstermek için kayıtları olup olmadığını ve yoktur eğer bir mesaj göstermek ve formun açık engellemektedir. Nasıl?
Sadece 'açmak için' olay form özelliklerini aşağıdaki kodu koymak kolaydır:
= 0 Sonra ise Form.RecordsetClone.RecordCount
MsgBox "Kayıt bulunamadı.", VbExclamation, "Hata!"
DoCmd.Close acForm, "veri bulmak"
Exit Sub
End If
Bir örnek görmek için karşıdan: Formu Açık önleyin
Yayınlanan Örnekler , Formlar , Modüller | 2 Yorum »
Perşembe, Aralık 11, 2008 |
Me.keypreview = true: - 1 yapısı ve olay bir sipariş formu oluşturma formun özellikleri üzerine 'tıkladığınızda' aşağıdakileri girin
Veya bu klavye olayları ilk şeklinde alınan yapacak.
2 - form özelliklerini, olay 'düğmesine aşağıda' aşağıdaki kodu koymak:
Private Sub Form_KeyDown (KeyCode As Integer, Shift As Integer)
Olgu KeyCode seçin
Olgu vbKeyF2
DoCmd.OpenForm "Form1"
Olgu vbKeyF3
DoCmd.OpenForm "Form2"
Olgu vbKeyF4
DoCmd.OpenForm "formulario3"
Olgu vbKeyF5
Çift Dim Hesap As
Hesap = Shell ("calc.exe", vbNormalFocus)
Olgu vbKeyF6
DoCmd.Close
Case Else
Select End
End Sub
Bu ne yapar aşağıdadır:
- F2 tuşuna basarak form1 açar
- F3 tuşuna basarak Form2 açılıyor
- F4 tuşuna basarak formulário3 açar
- F5 tuşuna basarak Windows hesap açılır
- F6 tuşuna basarak form kapanır
Fonksiyon tuşu F1 ek olarak, F2 ... vs, biz de işlevleri gerçekleştirmek için başka bir tuşa kullanabilirsiniz, ancak akılda tutulması ki alanlarda veri yazmak için kullanılan tuşlarını kullanmak için uygun olmayan bir biçimde veri girmek istiyorsak.
Başka şey, sadece yukarıdaki kodları koymak form üzerinde çalışıyor olmasıdır.
Download: Keys
Yayınlanan Örnekler , Formlar , Modüller | 1 Yorum »
Cumartesi, Eylül 20, 2008 |
Bu bize bu menüyü sadece bir açık biçim ihtiyacınız olan yılından beri, açık biçim açısından zaman, satır kod ve iyi bir düzenleme kaydetmenize olanak verir menü bir tür. Açık form sayısını azaltarak ek olarak her bir form açmak için bir menü düğmelerinin sayısını azaltır.
Menüsü Bu tip, kesinlikle bir süre var ve Erişim birçok kullanıcı tarafından kullanılıyor.
Yani bu menü nerede?
Kullanıcı bu sayede açmayı planlıyoruz tüm formları içeren bir açılan kutu kullanarak menü yaratalım. Eğer birleşik giriş kutusundan bir seçeneği seçtiğinizde başvuru formu alt form içinde görüntülenir. Sonra adım adım menü yapmak başlar.
1 - Kullanıcı size her form ve açılacak formun ismini vermek istediğiniz ismi saklayacak bir tablo yaratalım. Örneğin ben aşağıdaki alanları ile masaya 'tblmenu' oluşturuldu:
Alan Türü
Nomedomenu metin - menüde görülecektir> Ad (açılan kutu)
metin oluşturacak - açacak form> İsim
Örneğin tanıtılan veriler sonra:
NomedoMenu Formu
Hesapları Form1
Mevduat Form2
Hareketleri formulario3
Hesap-Box formulario4
Hesap Hesap formulario5
Formulario6 Extract
2 - Sonra bir önceki tablodan bir sorgu oluşturmak:
Tblmenu masa seçti ve daha sonra biz menü biz formları açmak istiyorsanız oldukça birkaç kez bulmak kolay olması için sıralama nomedomenu artan için seçtiğimiz iki alan seçin. Bu sorgu için ben CsMenu 'denir.
3 - Kullanıcı formu 'Menü' yaratalım, yani Tasarım görünümünde yeni bir form seçin. Sonra bir birleşik giriş kutusu oluşturmak ve aşağıdaki özellikleri değiştirebilirsiniz:
- Sütun sayısı: 2
- Sütun Genişlikleri: 1cm, 0cm;
- Hattın Kökeni: csmenu (önceki paragrafta oluşturulan sorgunun adını olan)
4 - Aynı form biz (ben menuquadro denilen örnekte) bir ilişkisiz ana formun alt form oluşturur. Bu formlar her menü (açılan kutu) seçim için açık olacak bu şeklidir.
5 - Şimdi alt formdaki birleşik giriş kutusunda seçili menüyü açmak sağlayacak bir modül oluşturun.
Biz bir modül oluşturulur (Ben abrirmenu 'denir) ve aşağıdaki kodu yapıştırılan:
Public Function AtivarMenu (Combmenu ComboBox, subabrir Subform)
Dim As Abrirform
= (1) Combmenu.Column abrirform
subabrir.SourceObject = abrirform
subabrir.LinkChildFields = ""
subabrir.LinkMasterFields = ""
End Function
Ativarmenu = ([Menü], [menuquadro]) 'Menü' açılan kutunun adı ve 'menuquadro' olduğunu: Form menüsünde açılan kutunun özellikleri ve Update olayından sonra oluşturulan işlevi koyacaktım sonra alt formun adı.
Ve son olarak menü kullanıma hazırdır. Sadece deneyin ve kullanın. Umarım bu ipucu hoşunuza gitmiştir.
Download: Menü
Menünün bir resim altında.
Özel Menü
Yayınlanan Örnekler , Formlar , Modüller | 12 Yorum »
Salı, Mayıs 6, 2008 |
Bu örnek, ödemelerin sağlanması için nasıl bir yönetim sistemi gösterir.
Örneğin bu bir tuşa bir tıklama ile kurmak ve otomatik olarak yok olduğunu gösterir, veri üzerinden satış sözleşmesini yararları girdi. Yani, biz sözleşmenin başlangıç tarihini ve toplam miktarın ödenmesi için müşterinin adını tanıtmak. Sonra sadece otomatik taksit sayısı üretir ve bunların her biri tarafından gösterilen değere böler ve her taksit tarihinde (ayda bir) hesaplar "hesaplamak ödemeler" butonuna tıklayınız. Bu da size butonuna tıkladığınızda her yararına bir kayıt ekler nedeniyle, aynı anda birden fazla kayıt eklemek için nasıl gösteren bir örnektir.
Download: Birden Çok Kayıt Ekle
Yayınlanan Tarihler , Örnekleri , Formlar , Modüller , Rekorları | 17 Yorum »
Cumartesi, 29 Mart, 2008 |
Bu Sonia okuyucu hayvanların bir veritabanı kaydı veri yönelik bu uygulama alanları bir örnektir. Bu hayvan bir fotoğraf ile veri girişi için sadece bir form ile basit bir veritabanıdır.
Download: Hayvan Barınağı
Herhangi bir değişiklik, sadece burada yorum.
Yazılı Formlar , Resimleri , Modülleri , Rekorları , Tablolar | 12 Yorum »
Çarşamba, Şubat 20, 2008 |
Orada bir kayıt girmeniz için çeşitli yollar vardır ve en yaygın bir tabloyla ilişkili bir form üzerinden elde etmektir. Bunu yapmanın bir başka yolu masaya bağımsız olmayan alanları içeren bir form kullanılarak yani, ilgisiz alanları geçer. Için
aşağıdaki gibi bu örneğin durumunda bir kod tarafından yani 'recordset', kullanan veri girişi:
Veritabanı Dim db
Recordset Dim rs
MsgBox ("yazmak ister misiniz?" VbYesNoCancel, "Seçenekler") = Sonra vbYes ise
"Basarak kodun sonuna kadar devam ediyor eğer öyleyse, kayıt kaydetmek ya da değil mi isteniyor
Set db = CurrentDb ()
Set rs = db.OpenRecordset ("Veri", dbOpenTable)
'Veri kayıt eklemek için tabloyu açın
rs.AddNew
rs ("isim") = Me! INome
rs ("adres") = Me! Imorada
rs ("yaş") = Me! Iidade
rs.Update 'tablosu veri gönderir
rs.Close 'Clear veri ve kayıt kapatır
Rs = Nothing Set
Db = Nothing Set
Me.INome = Boş 'şeklinde alanları temizlenir
Me.Imorada = null
Me.Iidade = null
MsgBox "kaydedilen Record", vbInformation, 'Ekran onay mesajı "Bitti"
Me.INome.SetFocus 'ilk alana götür
Else: Exit Sub
End If
Download: Bağımsız Yeri
Yayınlanan örnekleri , formlar , modüller , kayıtları , tabloları | Yorum Yok »
Salı, Şubat 19, 2008 |
Bu örnek, saat hesaplamaları gerçekleştirmek için nasıl gösterir. Bu ne kadar zaman bir başlangıç ve bitiş zamanı arasında geçen bilmek ihtiyacı olanlar için yararlıdır. Bu başlangıç zamanı için bitiş zamanı çıkarma yapmak için yeterli değil, bitiş saati bir sonraki hesapları için bir gün hareket çünkü eğer artık doğru, örneğin:
23:00:00: Başlangıç Zamanı
Bitiş Saati: 02:00:00
Bitiş Zamanı - Start Time = 2:00:00-23:00:00 = -21:00:00
Açıkçası o zaman, çünkü yerine yanlışlıkla -21 saat yaptığınız doğru sonucu üç saat kalmadan, zaman çalışmak için bu kadar basit değildir.
Günden güne bizim bitiş saati hangisi büyükse başlangıç zamanı, büyükse ilk denetlemek zorunda gider bu dönemde geçici olarak almak için daha sonra hesaplama: Bitiş Saati - Start Time.
Eğer altında iseniz biz, yani hesaplama başka bir yol yapmanız gerekir:
23:00:00: Başlangıç Zamanı
Bitiş Saati: 02:00:00
Toplam Süre: 23:59:59
Hit: 00:00:01
Temelde ne yapmamız bize doğru üç saat vermek 24:00:00 çıkarma değeri ekleyin. Yani:
Bitiş Zamanı - Start Time + Toplam Saatleri + Hit = 2:00:00-23:00:00 + 23:59:59 + 00:00:01 = 24:00:00 = 03 + -21:00:00 : 00:00
Download: Time Matematik
Yayınlanan Örnekler , Formlar , Saat , Modülleri | 21 Yorum »
Çarşamba, Şubat 6, 2008 |
Bu örnek, bir PopUp Takvim aracılığıyla bir tarih seçmek için nasıl gösterir. Bu bir modül olarak, ve bu bir takvim olarak seçilmiş bir tarih oluşturabilir. Örneğin biz tarih alanının yanındaki düğmesine tıklayarak veya tarih alanına farenin sağ tuşuna tıklayarak tarih seçebilirsiniz. Bize bir takvim görmek ve istediğiniz en iyi tarih seçmenize olanak sağlar yana tarihleri girmek için bu yolu çok pratiktir.
Download: PopUp Takvim
Yayınlanan Tarihler , Örnekleri , Formlar , Modüller | 1 Yorum »
Pazar, Ocak 27, 2008 |
Genellikle bir form üzerinde farenin orta düğmesini çalıştırdığınızda, erişim günlüğü değiştirin. Bazı durumlarda bu olmaz ki yararlı olabilir.
Bu örnek, kullanıcının kaydırma fareyi kullanarak kayıtlar arasında gezinmek önlemek için, yüklemek için form durumunda bir modül kullanır. Biz kayıt değişmez olduğunu görmek için (orta düğme) fare tekerleğini kullanabilirsiniz test etmek için.
Download here: Tekerlek fare
Yayınlanan Örnekler , Formlar , Modüller , Fare , Rekorları | Yorum Yok »
Pazartesi, Ocak 21, 2008 |
Bu örnek sadece formun penceresi görünür bırakarak, Microsoft Access ana penceresinde gizleyen bir modülü kullanır.
Çağrı fsetAccessWindow (SW_HIDE): biz formu açılış etkinliğinde aşağıdaki komutu kullanmak zorunda bu modülü kullanmak için.
Örnek olarak kontrol etmek için Yazılımı yükle yapın: Pencere Ulaşım İşlemek
Yayınlanan Örnekler , Formlar , Modüller | 8 Yorum »
