Kategorisi 'Kategorilenmemiş' tarafından Arşiv

Gelişmiş Arama - Birkaç kelime

Pazar, 4 Mart, 2012 |

Bu örnekte ben formun bir alanda, birkaç kelime için bir arama yapmak nasıl göstereceğim.
Bu örnekte kullanılan kod daha gelişmiş arama gerçekleştirmek için yararlıdır.

1 tablo oluşturmak için
- Aşağıdaki alanları ile tablo "tbldados" oluşturun: id (Otomatik Sayı) / veri (metin)
2 formu "Form1" oluşturma
- Sihirbazını kullanarak form oluşturma ve veri kaynağı olarak tbldados seçin, form şema için "Tablo" seçeneğini seçin.
- Daha sonra form tasarım gidin ve txtpesquisa adlı formdaki altbilgi bağımsız bir metin alanı oluşturmak,.
- Mülk üzerinde bir düğme oluşturun ve aşağıdaki kodu koymak:

'************************************************* *************
'Jose Martins Hazırlayan
'Site: www.accessexemplos.com
'Tarih: 2011/09/22
'NOT: Bu başlık çıkarmayın. Kod yazar Saygı.
'************************************************* **************
Error GoTo Err_Comando8_Click Açık
As String Dim kelime ()
As Integer Dim x
As String Dim strSQL
As String Dim strWhere

kelimeler = Split (Me.txtpesquisa, "")

X = 0 To UBound (Sözcükler)

strWhere = strWhere & & kelimeler (x) & "*" veya "" '* gibi Verileri "
Sonraki x
strWhere = (- 3 strWhere, Len (strWhere)) $ Left

& strWhere & "[veri] ORDER BY" strSQL = "tbldados SELECT * FROM"
Me.RecordSource = strSQL

Exit_Comando8_Click:
Exit Sub

Err_Comando8_Click:
MsgBox Err.Description
Devam Exit_Comando8_Click

Ne kodu, temelde, boşluklar sayesinde tespit edilir txtpesquisa kelimelerden oluşan bir dizi oluşturmaktır yok. Bir döngü txtpesquisa girilen tüm kelimeleri aramak için oluşturulduktan sonra.

3. Testi
- Verileri girin ve sonra biz metin kutusu (txtpesquisa) bulduğunuz kelime veya kelime yazmak, düğmesini tıklatın ve sonuçlarını kontrol etmek.

Aşağıda dowenlod örnek link ÇEŞİTLİ ARA KELİMELER

Google Artı

Cumartesi, Ağustos 6, 2011 |

Bugün Google Düğme Plus +1 ekledi. Bu mesaj tanıtımı için başka bir yoludur. Daveti göndermek için e-posta adresi ile bir yorum Google'a Artı terk etmeye davet almadıysanız.

Harcama

Çarşamba, Temmuz 13, 2011 |

Bu günlük hayatın giderleri kontrol etmek için hizmet çok basit bir veritabanıdır.

Ana Menü
Resimde bir ana menü çok basit ve fonksiyonel görebilirsiniz. Üstünde biz çalıştıkları yıl görebilirsiniz.
Resim 1

Iş yılı
Yılın iş değiştirmek için istediğimiz yıl yazılarak yıl ve açık form (Şekil 2), seçmek için düğmesini tıklatın.
Resim 2

Harcama
Veri girişi için düğmeye açık form (Şekil 3) Harcamaları. Kategorinin yanında biz kategoriler eklemek için bir '+' düğmesi var ve alt sizin cetegoria seçmediyseniz eğer alt tıklayarak alt kategorileri (eklemek için '+' düğmesine bir tarafı var hata verir ve kategori seçmenizi ister . Eğer kategori seçtiyseniz o kategoride bir formu kategoriler) açılır.
Alanında biz listeden bir sağlayıcı seçebilir ve varsa eklemek isterseniz diye soruyor.
Resim 3

Kategoriler
Bu form (şekil 4) kategorileri ve alt kategorileri (eklemek / değiştirmek / / arama silme) yönetmek için kullanılır.
Resim 4

Tedarikçiler
Bu form (eklemek / değiştirmek / / arama silme) tedarikçilerin adları yönetmek için kullanılır.
tedarikçiler

Raporlar
Bu butona tıkladığınızda biz raporları dört çeşit seçebileceğiniz menü (resim 5) bildirir açar:
Resim 5

- Cari yıl (Şekil 6) Maliyetleri kategori, alt kategori ve biz çalıştıkları ile yılın ayda toplam değeri içeren bir rapor gösterir. Ayrıca toplam aylık giderleri ve alt kategori toplam gösterir.
Bu raporda, her alt kategori aylık değişim göstermektedir alt kategori için bir grafik içerir. Bu grafik benim kendi değil, ilgili modül de dahil olmak üzere yazarın bilgi var:

'Yazar: Philippe Bonnardel (Edward Tufte bir fikir dayalı)

Resim 6

- Yılda Maliyetleri (resim 7): Belli bir yıl kategoriye göre giderleri ile bir form gösterir. Biz grafiğini görüntülemek için bu yıl kaydedilen bir harcama olması kaydıyla, harcamaların yıl seçebilirsiniz. Ne zaman çift tıklatın kategorisi aynı formata sahip alt yıllık raporunu açar. Eğer çift tıklama alt kategori detay (Şekil 8) Bu alt kategorideki masraf açar.

Resim 7

Detay
Resim 8

- Aylık Harcama: yıllık harcamalarına eşit ama biz burada arzu yıl ve ay seçebilirsiniz.

- Tedarikçi tarafından Harcama Belli bir yıl içinde tedarikçi başına maliyet ve onun grafiği ile bir form gösterir. Bu yazıda yalnızca görüntülemek istediğiniz yılı seçebilirsiniz.

Yıllık Karşılaştırma
Son 10 yıl içinde harcama evrim gösterir. Yıldır değerleri gösterir ve bir grafiğini gösterir.
Yıllık karşılaştırma

Bu veritabanı yorum bekliyor, ancak ben raporları yazdırmak için yeteneği olarak örnek işlevsellik ekleyebilirsiniz.

Örneğin indirin: GİDERLER

Sistem satış (güncelleme)

Cumartesi, 26 Mart, 2011 |

Aşağıdaki gibi satış değişir, bu güncelleştirme edildi:
Görünmüyor raporunda, şirketin resmi koymak.
Baskı değildi "ürün" satışı ve yerleştirme baskı yönü yeniden biçimlendirme.
Tablo IVa ve toplamları yerleştirilmesi.
Biz ödeme türüne göre gün ve bir liste tüm satış görebilirsiniz formu listeleme günlük satış oluşturulması.
Şirket logosu görüntü eklemek için kod değiştirme. Görüntü, görüntü sitede değilse görüntü hatası verdi ve formu "kurumsal veri" açık vermedi diskte yolu 'localfoto' bağlı olduğundan. Bu yüzden hata denetleyen bir rutin meydana koymak ve böylece hata vermek için görüntü ve çıkar işlevini gizler eğer. Temelde yeniden başlangıç ​​durumuna bu görüntü yoktu sanki.
Şeklinde değiştirildi ve satış raporu yazdırın.
Tedarikçiler - formu tedarikçiler için oluşturuldu. Eklemek istediğiniz eğer yeni bir alım girin ve tedarikçi yok zaman, sorar. Böylece formu açarsanız "Tedarikçi" veri girmek için.
Alışveriş - eklemek istiyorsanız makaleler yoksa, sorar.

Download: Satış Sistemi

Test etmek ve yorumlamak, sistemi iyileştirmek için teşekkür ederiz.

Fotoğraf eklemek için kod güncelleştirme

Cumartesi, 12 Mart, 2011 |

Söz konusu barınak hayvanları ve bu tür satış sisteminin bir foto koyabilir bir biçime sahiptir. Görüntü, görüntü sitede değilse görüntü hatası verdi ve formu açık vermedi diskte yolu 'localfoto' bağlantılı olarak bu kodu kullandıktan sonra bunu bulundu. Bu yüzden hata denetleyen bir rutin meydana koymak ve böylece hata vermek için görüntü ve çıkar işlevini gizler eğer. Temelde yeniden başlangıç ​​durumuna bu görüntü yoktu sanki.

Sonraki yazı ki biz çalışma kodu görebilirsiniz satış sisteminin bir sonraki güncelleme koyacağım. Ancak biz farklı bir klasöre satış sistemi koydu ve biz şirket veri formu açtığınızda ne olduğunu görmek için bir test yapabilirsiniz.

Kod aşağıdaki gibi güncelleştirilir:

'Www.accessexemplos.com
'Jose Martins
'2011-02-28

Error GoTo Err_mostraimagem Açık

IsNull (Me.Localfoto) = False Then Eğer
Me.FOTO.Picture = Me.Localfoto
FOTO.Visible = True
SEMFOTO.Visible = False
Başka
Me.FOTO.Picture = ""
SEMFOTO.Visible = True
FOTO.Visible = False
End If

Exit_mostraimagem:
Exit Sub

Err_mostraimagem:
Olgu Err.Number seçin
Vaka 2220 'resmi göremiyor musunuz
FOTO.Visible = False
SEMFOTO.Visible = True
Exit_mostraimagem Özgeçmiş:
Olgu Else 'Diğer hata.
MsgBox Err.Number & "" & Err.Description
Exit_mostraimagem Özgeçmiş:
Select End

Tüm büyük yaz veya küçük harf

Cumartesi, 12 Mart, 2011 |

Giren verileri her zaman büyük harflerle yazmak bir kullanıcı için sadece olay alan özellikleri aşağıdaki kodu koymak 'tuşuna bastığınızda' (onkeypress):

KeyAscii = Asc (UCase (Chr (KeyAscii)))

KeyAscii yeni bir ASCII kodu alacağı

chr = ASCII karakter kodunu görüntüler

Fonksiyon 'artan' bir dize ilk harfine karşılık gelen kodu (ASCII) karakteri temsil eden bir tamsayı döndürür.

UCase Fonksiyonu: harfe bir dize dönüştürür.

Chr fonksiyonu: bu ASCII kodu karakterini gösterir

Sadece tarafından UCase LCase değiştirmek küçük harfe dönüştürmek için:

KeyAscii = Asc (LCase (Chr (KeyAscii)))

Blog Mesajları

Cumartesi, Ekim 30, 2010 |

Ben onlar ilk başarıyla teslim olmadığını düşünüyorum çünkü bazı okurlar, aynı mesajı birkaç defa göndermek fark ettik.
Bu yorumu ilk kez kullanıyorsanız, bu mesajı da yorum olarak uygun onaylar da kabul edilmelidir.
Bu SPAM karşı bir koruma değil, mesajları blog ile ilgisi var görünüyor.
Yani ilk mesajı gönderdikten sonra, sadece onaylanan ve bundan sonraki mesajları artık otomatik olarak görünür kadar beklemek zorunda.

Hala 252 spam mesajlar karartılmıştır ...

Dosyalar - Yerel Depolama

Cumartesi, Ekim 23, 2010 |

Önceki iletide dedi gibi, ben dosyaları indirmek için konumu değişti.
Artık hizmet içinde yer BOX.NET en azından artık indirmek için beklemek zorunda, ve hiçbir reklam vardır.

Hala önümüzdeki hafta tamamlanmış olacak bazı bağlantılar, güncellemek zorunda. Ayrıca BOX.NET klasör bağlanır blog "DOSYALAR" nin menüden bir bağlantıya nereye koyduğunuzu tüm dosyaları indirebilirsiniz.

Herhangi bir soru veya değiştirdiğiniz dosyayı bulmak, bana bilgi için teşekkür ederim.

Özel menü çubuğu

Çarşamba, Ağustos 19, 2009 |

Bugün, bir menü çubuğu oluşturmak adım adım vermek gerçekten Access bir projenin son kullanıcı için önemli seçeneklerine erişim vermek daha profesyonel ve adil. Nasıl açılayacağız
Sonunda aşağıdaki resim gibi görünen bir menü çubuğu olacaktır.

Menü Çubuğu

1 - Araçlar menüsüne gidin ve 'özelleştirme' seçin. Aşağıdaki menü görünür:

kişiselleştirebilirsiniz

2 - sekmesi 'Araç Çubukları' seçin ve 'Yeni' seçin ve araç çubuğuna vermek istediğiniz adı girin, ben "menüsünden" seçti. Tamam'a tıklayın ve şimdi sizin için bir seçenek vardır, hangi çalışacak araç çubuğunda görünür.

3 - Seçilen araç çubuğu 'özellikleri' tıklayın ve aşağıdaki menü görüntülenir ile:

özellikleri

4 - sonra Kapat 'ı' Araç Çubuğu 'için' Tür 'değiştirin ve.

5 - 'kategoriler' son pozisyonda olmalıdır 'yeni menü' seçin diyor soldaki 'komutlar' ve liste tıklayın. Sonra sağ 'komutlar' ve aşağıdaki resimde tarafından örnek olarak menü çubuğunda sürükle 'yeni menü' yukarı kutusunu tıklatın.

menü

Bizim menü çubuğu, biz iki menü ve alt menüler yapmak için üç kez sürükler bu örnekte gereken menüler sayısına göre gerekli kez Drag 'yeni menü' kadar. Bir alt menü yapmak için sadece yeni bir menü içine 'sürükleyin. Not: Menüler sayısı daha sonra değiştirilebilir, ekleyebilir ya da istediğiniz tarafından azaltabilirsiniz.

6 - Bizim araç çubuğu ve istediğiniz gibi adını değiştirmek 'yeni menü' üstüne farenin sağ tuşuna tıklamak. Örnekte ben 1. ve 2. için 'tedarikçi' için 'Müşteriler' seçti.

7 - Şimdi biz açmak istediğiniz formları menüler etsinler. 'Komutlar' üzerine tıklayın ve kategori 'Tüm formlar' seçin ve sağ tarafta projedeki tüm mevcut formu gösterecektir. Istediğiniz formu tıklatın ve araç çubuğunu sürükleyin. Örnekte ben çeşitli form ve raporları ve ayrıca seçeneği EXIT (Access kapatmak için) seçti. Bu aşamada bizim araç çubuğu sadece biz kategoriler (tablolar, formlar, raporlar, sorgular, varsayılan menü çubuğu olarak görünür Erişim eylem menüler, vb) ne istediğinizi seçmek zorunda açmak istediğinizi seçebilirsiniz.

8 - Eğer değiştirebilirsiniz özelliklerini görmek için sağ fare tuşu ile her birinin üzerine tıklayabilirsiniz bizim menü çubuğuna sahip olmak istediğiniz her şeyi seçtikten sonra. Aşağıdaki resme bakın.

seçeneklerini değiştirmek

'Reset' - bir öğe koymak için hizmet görüntünün, vb adını değiştirmeden önce asıllıydı.
'Sil' - bir menü öğesi silmek
"Name" - menü öğesinin adını değiştirmek için. İşte biz de size bir kısayol olarak kullanmak istediğiniz harfin önüne işareti kullanarak bu öğeye kısayol ayarlayabilirsiniz. Örneğin, varsayılan Çıkış seçeneği zaten iyi olan ve menü harfi 'r' ALT tuşuna bastıklarında + r Exit menü öğesi çalışır söyler altını çizdi görünür xit. Örnekte ben kısayolu ALT Müşteriler ve Müşteri açmak için seçti + C

'Kopyala / Yapıştır / düzenle / / reset düğmesine imajını değiştirmek' - bu komutları tam olarak her öğenin yanındaki görmek istediğiniz görüntüyü çalışmak için kullanılır. Biz, başka bir öğe olarak kullanmak orijinal görüntü geri, görüntü düzenleme ve bir simge editörü yapmak (piksel piksel) veya menü değişikliği mevcut bir resim seçmek için görüntüyü kopyalayıp yapıştırabilirsiniz.

Sonra biz de veya metin ve görüntü sadece metin istiyorum yani eğer maddenin yönünü seçebilirsiniz.

'"Bir grup Başlayın - yatay bir çubuk ile öğeleri ayırın veya ürün grupları oluşturmak için hizmet vermektedir.

"Bağlantı hibe" - veritabanında bir URL ya da herhangi bir nesne ya da bir link atamak.

'Özellikler' - öğenin tüm özelliklerini gösterir.

9 - Şimdi menü çubuğu var ki yerine koymak için hazır. Kapat düğmesini tıklamak olur ve çubuğu varsayılan Erişim olduğu yere yapıştırın kadar ekranın üst bizim menü sürükleyin.

10 - veritabanını açmak için bar başlatmak için Access'i başlattığınızda açmak için talimat vermek zorunda. 'Araçlar' ve 'Start' ve 'Menü Çubuğu' Bu örnekte 'menüsünden' bizim menünün adını seçelim.

11 - biz başka bir şekilde kullanabilirsiniz her menü öğeleri görüntüleri değiştirmek için öğe için aynı form ve kopya bir görüntü eklemek olduğunu. Yani:

- Yapı şeklindeki bir formu oluşturma

- Ekle menüsüne gidin ve resim seçin

- Herhangi bir görüntü seçin ve enter

- Resim seçin ve sağ fare tuşu ile Kopyala seçeneğini

- Araçlar menüsüne gidin ve özelleştirmek için bu seçeneği seçin

- Eğer imajını değiştirmek ve Yapıştır Düğme Resmi seçmek istediğiniz öğenin üzerine farenin sağ düğmesini tıklayın.

- Yakın ve yakın Erişim tıklayın

- Sonuç görmek veritabanı Başlat

ÖNEMLİ NOT: menü çubuğu değiştirirken, menü Access veritabanında yok, o yapılır. Bu değişiklikleri yapmak için SHIFT tuşuna basılı veritabanını başlatmak için gereklidir.

Menüm şöyle:

bölü

Download: Menü Çubuğu

Hiçbir veri göstermek için, bir rapor açma önleyin

Çarşamba, Mayıs 20, 2009 |

Hiçbir veri göstermek için eğer açık bir rapor önleyebilir ve bunun için biz Access sürümüne bağlı olarak iki şekilde kullanabilirsiniz:

1 - ACCESS tüm sürümleri
Rapor özelliklerini, olay 'Etkinleştirilmesi' in aşağıdaki kodu yerleştirin

Olay Etkinleştirilmesi (Etkinleştir) Raporu kullanın:

Private Sub) (Report_Activate

DCount ("*", Me.RecordSource) = 0 Daha sonra ise

MsgBox vbDefaultButton1, "Hayır kayıtları görüntülemek için" "Hata!"

AcReport DoCmd.Close, "raporun adı"

End If

End Sub

2 - 'herhangi bir veri olmadığını', o zaman aşağıdaki kodu urilizar versiyon 7 (Access 95) Gönderen olayı eklendi:

Private Sub Report_NoData (Cancel As Integer)

MsgBox "raporunda veri yok.", VbInformation, "Hata!"

= True İptal

End Sub

Örneğin indirmek çalışan görmek için: açılış raporu önleyin

Tanıtım

Avatar

Ziyaret ettiğiniz için teşekkür ederiz.
Herhangi bir mesaj kaçırmamak beslemek için abone olun.

İşte blogda Microsoft Access ile çalışma örnekleri sağlayacak ve aynı zamanda isteyene soru sormak. Daha fazla

Abone olmak ister misiniz?

Abone veya e-posta ile abone:
E-postanızı girin:


Reklamlar