Sn. arkadaşlar, 3 tane genel bilgi amaçlı sorularım olacak. herkese teşekkürler ve kolay gelsin.
1- formlarda makroyu ne zaman ve niçin kullanmak gerekir.(nesneler listesindeki makrolar kısmını)
2-yaptığımız bir programda kayıtları aynı zamanda bilgisayarda bir klasöre yedek olsun diye (word veya excel olarak) nasıl kaydettirebiliriz.
3-açılır kutudan veri seçince ona ait veriler otomatik gelmesi için yapılan mesela
Private Sub Açılan_Kutu26_AfterUpdate()
x=y.column(2)
z=y.column(3)
...
böyle böyle uzun uzun her otomatik gelinmesi isteneni column1-2-3... şeklinde yazmak yerine bazı örneklerde gördüğüm aşağıda örnekte olduğu gibi toplu tamamlama gibi bişey var, aşağıdaki bu örneği açıklarmısınız. yani burda dikkat edilecek özellikle hangi nokta. FindFirst ve Bookmark den kasıt ne, nerdeki veriyi işaret ediyor bunlar. FindFirst yerine FindSecond yazsak olabilir mi?
örnek:
"Private Sub Açılan_Kutu26_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[No] = " & Str(Nz(Me![Açılan Kutu26], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub"
(bu forum sitesini oluşturanlara bütün samimiyetimle teşekkür ediyorum)
1- formlarda makroyu ne zaman ve niçin kullanmak gerekir.(nesneler listesindeki makrolar kısmını)
2-yaptığımız bir programda kayıtları aynı zamanda bilgisayarda bir klasöre yedek olsun diye (word veya excel olarak) nasıl kaydettirebiliriz.
3-açılır kutudan veri seçince ona ait veriler otomatik gelmesi için yapılan mesela
Private Sub Açılan_Kutu26_AfterUpdate()
x=y.column(2)
z=y.column(3)
...
böyle böyle uzun uzun her otomatik gelinmesi isteneni column1-2-3... şeklinde yazmak yerine bazı örneklerde gördüğüm aşağıda örnekte olduğu gibi toplu tamamlama gibi bişey var, aşağıdaki bu örneği açıklarmısınız. yani burda dikkat edilecek özellikle hangi nokta. FindFirst ve Bookmark den kasıt ne, nerdeki veriyi işaret ediyor bunlar. FindFirst yerine FindSecond yazsak olabilir mi?
örnek:
"Private Sub Açılan_Kutu26_AfterUpdate()
' Denetime uyan kaydı bul.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[No] = " & Str(Nz(Me![Açılan Kutu26], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub"
(bu forum sitesini oluşturanlara bütün samimiyetimle teşekkür ediyorum)