DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Bu arkadaşın gönderdiği program aslında Yılmaz Öğretmen adında Hatay/İskenderun Fatih Anadolu Lisesi'nde öğretmen bir arkadaşın programıdır. Merak eden arkadaşlar www.egitiminsesi.com adresine girerk resim öğretmeni olan arkadaşın çalışmalarını görebilirler. Programın aslı da ektedir. Kendisini tanımıyorum ama meslektaşım oluyor. Önemli olan emeğe saygı duymaktır. "Benim" dediğiniz programların lütfen kaynağının çok kolay bulunacağını unutmayın.sayın hegu42 kardeşim yanlış anlaşıldım kimseyi eleştirmek kırmak amacım degil sakın üzerine alınma şahsına bir dediğim yok soru sorarken dosya eklemiyorlar işleri bitince yapmış oldukları programları eklemiyorlar bunları yapsak sorunu çözmek isteyen arkadaş daha çabuk olayı çözer ben bunu demek istedim başka kişiler sizin sorunuza girdiği zaman okusun diye yazdım sakın üzerinize alınmayın özür dilerim öyle anlaşıldı ise
programınızı gördüm benimde böyle bir çalışmam olmuştu bakın inceleyin elinizin altında bulunsun
Private Sub Komut19_Click()
On Error GoTo Err_Komut19_Click
If Me.Liste0.ListCount = 0 Then
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "MUHTARLIK EKLE"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit Sub
End If
If Liste0.ListIndex > -1 Then
stDocName = "MUHTARLIK EKLE"
stLinkCriteria = "[MUHTARLIKİD]=" & Me.Liste0.Column(0)
DoCmd.OpenForm stDocName, , , stLinkCriteria
Else
MsgBox "MUHTARLIK SEÇİM BÖLÜMÜNDEN MUHTARLIK SEÇMEDİNİZ"
Exit_Komut19_Click:
Exit Sub
Err_Komut19_Click:
MsgBox Err.Description
Resume Exit_Komut19_Click
End If
End Sub
Private Sub Form_Close()
Forms![ANA FORM].Liste0.Requery
End Sub
Sevgili Modalı..Sayın mehmetdemiral,
Ben iki uygulama arasında benzerlik göremedim. Nu kanıya nereden vardınız?