Merhabalar, bir giriş formu hazırlamaya çalışıyorum.Command Button yerine etiketlerden yararlanmaya çalıştım.(Bu gün sitede gördüğüm bir örnekten çok etkilendim) form üzerine koyduğum etikete;
Private Sub Etiket6_Click()
Me!Sub.SourceObject = "Form_asgariucret1"
End Sub olarak yazdım ama hata mesajı veriyor .Başvurulan Sub alanının bulunamadığını anlıyorum. Ne yapmam lazım acaba.Tşkr.
Örnek dosya eklerseniz daha iyi yardım alırsınız.
Ben bununla ilgili size bir öneride bulunayım. Yapmak istediğiniz işlemi, örneğin bir düğmeyi sihirbaz ile oluşturun, sonrada sihirbazın oluşturduğu
Kod:
Private Sub Komut5_Click()
On Error GoTo Err_Komut5_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "FORM_ADI"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Komut5_Click:
Exit Sub
Err_Komut5_Click:
MsgBox Err.Description
Resume Exit_Komut5_Click
End Sub
kodundan
Kod:
On Error GoTo Err_Komut5_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "FORM_ADI"
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Komut5_Click:
Exit Sub
Err_Komut5_Click:
MsgBox Err.Description
Resume Exit_Komut5_Click
bölümünü alın ve etiketinizin tıklandığında olay yordamına yapıştırın.
Arkadaşlar,verdiğiniz bilgilerden ve ilginizden dolayı hepinize teşekkür ederim.İyi akşamlar