אובייקט עדכני באקסס 2016

[enterprize]

אובייקט עדכני באקסס 2016

שלום רב,

אני מנסה לכתוב קוד לכפתור למסך Login למסד נתונים.
מצאתי קוד בסרטון באינטרנט שנכתב באקסס 2013 -

בעת כתיבת הקוד - האובייקט as database לא זוהה.
האם יש אובייקט במקומו בגרסת 2016 שיכול להפעיל את הקוד הזה?

האם יש קוד אחר שיכול לתת את המענה של מסך LOGIN מטבלת שם משתמש וסיסמה?

Private Sub BtnLogin_Click()
Dim rs As recordset
Set rs = CurrentDb.openrecordset("tblUsers", dbOpenSnapshot, dbReadonly)
rs.findfirst "Username='" & Me.txtUsername & "'"
If (rs.NoMatch = True) Then
Me.lblWrongUser.Visible = True
Me.txtUsername.SetFocus
Exit Sub
End If
Me.lblWrongUser.Visible = False
If (rs!password <> Me.txtPass) Then
Me.lblWrongPass.Visible = True
Me.txtPass.SetFocus
Exit Sub
End If
Me.lblWrongPass.Visible = False
DoCmd.OpenForm "FrmMainApp"
DoCmd.Close acForm, Me.Name
End Sub

 

[ziv98]

אובייקט DB

אין בעיה ב - 2016 עם אובייקט מסוג DB. גם לא עם RS (כתבת DB, הדגשת RS).
מצ"ב צילום מסך השלמה אוטומטית

 

[enterprize]

אכן התבלבלתי

התכוונתי שאין זיהוי לRECORDSET - מה אפשר במקומו?

 

[ziv98]

RS עובד מצויין

 

[enterprize]

לא מצליח

אני לא מצליח לא את אובייקט Recordset ולא את Database.
&nbsp
אשמח לעזרה
&nbsp
תודה
&nbsp
&nbsp

 

[ziv98]

קובץ

קצת קשה להתייחס לצילומי מסך.
מצ"ב צילום מסך שלי...

 

[enterprize]

זה לא מצליח!!!!

אצלי לא מופיעים האובייקטים שאצלך - מה עושים???
&nbsp
&nbsp

 

[ziv98]

קובץ

בלי לראות את הקובץ, אני לא מכיר פיתרון.
אתה יכול לשנות סיומת ולצרף לכאן, או לקשר לקובץ מ - one drive ודומיו

 

[enterprize]

מצרף קישור לקובץ

מקווה שזה יובן
&nbsp
https://1drv.ms/t/s!Aq77MKBPI4Sy20e3_S34HgP13knm
&nbsp
טופס UserLogin שגרה של הכפתור.
הוא לא מזהה את הrecordset.
&nbsp
תודה

 

[ziv98]

מצ"ב צילום מסך

תחת עורך VBA, בחר TOOLS

 

[enterprize]

וואו

עובד באופן מרשים!!!
&nbsp
תודה על הסבלנות ועל האבחון המדויק.
&nbsp
&nbsp
&nbsp