raporla ilgili

[eskala]

Merhaba Sn. Modalı;
2 sorum olacak. ekteki örnek form üzerinden soruyorum.
1.soru: form1 de üye adı seçilecek. gelir adları otomatik olarak her firma için listede dolu olarak gelecek. kullanıcı sadece onay kutularını klikleyecek. kaydet tuşuna basıldığı zaman onaylanmış olan gelirler form3 e üye adı ile beraber sıralı liste halinde kaydedilecek. yani diyelimki 1.onay kliklenmiş, 2.si klik yok 3 de var ise bile form3 kaydederken 1-2-3 şeklinde kliklenmişleri sıralı olarak kaydedecek.(burada en az 150-200 üyenin olacağı, 15-20 kalem gelir çeşidi olacağını göz önünde bulunduralım.)

2.soru: Form2 de seçilen üyenin tek geliri ekranda, diğer gelirlerini görmek için butona basıldığında o anda adı geçen üyenin form3 ü açılacak.
teşekkürler, kolay gelsin...

 

[eskala]

sn. Modalı;
2. soruyu ben çözdüm de, 1. soru acaba access te mümkün mü . yani bir forma yadığın veri arka tarafta başka bir tabloya/forma da yazılmış olacak??
saygılarımla...

 

[eskala]

acceste word açmak

sn. Modalı;
acceste bir formda buton veya herhangi bir nesneye tıklamakla belgelerim klasöründe word, excel vs belgesi nasıl açtırılır? bunun makrosu, formulu nedir.
saygılarımla...

 

[modalı]

Sayın eskala,

Word belgesi açma ile ilgili bir fonksiyon kodu yolluyorum. Burada strfilepath açılacak word belgesinin adı ve veri yolunu gösteriyor.

Function OpenDoc(strFilePath As String) As Boolean
  Dim obWrd As Object
  On Error GoTo InitErr
  Set obWrd = CreateObject("Word.Application")
  obWrd.Documents.Open strFilePath
  obWrd.Visible = True
  Set obWrd = Nothing
  OpenDoc = True
  Exit Function
 
InitErr:
  MsgBox Err.Description, vbCritical, Err.Number
  Exit Function
End Function

İyi çalışmalar

 

[eskala]

fonksiyonu nasıl kullanacam

Sn. Modalı,
fonksiyonu forma nasıl bağlayacam, yani ben form üzerindeyken ilgili wordu nasıl aç diyecem. form üzerinde txt kutusu mu, komut düğmesi mi neye bağlantılı olacak bu fonksiyon. fonksiyon-modul-form ilişkisi nasıl oluşturuluyor
saygılarımla...

 

[modalı]

Sayın eskala

Fonksiyonları boş bir modüle yazıyoruz. Daha sonra da istediğimiz olay gerçekleşince de çağırıp sonucu hesaplatabiliyoruz.

Şimdi diyelim ki eskala(x)=2x+5 diye bir fonksiyonumuz var. Bunun serbest değişkeni x. x e bir değer verdiğimizde eskala(3)=2*3+5=11 olarak bir değer üretiyor. Ve geri dönüyor.

Şimdi diyelim ki bir düğümenin klik olayına eskala(5) diye bir kod parçası yazdık. O zaman eskala(5)= 15 olarak geri dönecek. Şimdi biz bu eskala(5) değerini normal form prosedüründe kullanabiliriz.

Word belgesini açarken o zaman OpenDoc(strFilePath As String) fonksiyonunu kullanıyoruz. Burada strFilePath açacağımız dosyanın ismi ve yolunu belirtiyor. Eğer biz yolu formdan yollarsak o zaman fonksiyon otomatik olarak bu belgeyi açacaktır.

Örneğin:

Private Sub Komut30_Click()
 
Dim strDosya As String
strDosya="C:\deneme.doc"
OpenDoc(strDosya)
 
End Sub

Şeklinde bir kod parçası yazarsak o zaman c dizininin altındaki denem.doc adlı word dosyası açılacaktır.

Burada tabi ki strDosya adını form üstündeki metin kutusundan veya açılan kutudan veya listeden alabiliyoruz.

İyi çalışmalar

 

[eskala]

acceste kapasite

Sn. Modalı, Acceste hazırlanan bir veritabanı en fazla kaç mb bilgi depolar, yani belli bir üst limiti var mı? yoksa bilgisayarın kapasitesi ne kadarsa o kadar alır mı?

 

[modalı]

Sayın eskala,

Access XP ve sonrası için 2 GB, öncesi için 1GB. Ancak Access 2007 için şu an bir bilgim yok.

İyi çalışmalar

 

[eskala]

teşekkürler...

 

[xorion]

Access 2007 Limits;
Access database (*.mdb or *.accdb) file size


2 gigabytes, including all objects in the database (data, forms, reports, indices, macros, modules, etc.)

Yani hala 2 gb. Bu arada 2007 bence çok iyi olmuş

 

[eskala]

bazı kodların açıklaması

Sn. Modalı,
bir yerde word dosyası için bir makro yazılmış, orda aşağıdaki kodlar sık sık kullanılmakta, acaba bu kodlar otomatik mi geliyor ve bunların manalarını açıklarmısınız?
teşekkürler.

"Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = ".. .. . . "
.Replacement.Text = f
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With

Selection.HomeKey Unit:=wdStory"

 

[eskala]

Cevap?

cevap yok mu acaba?

 

[eskala]

tebrik

herkesin bayramı ve yeni yılı hayırlı olsun