שלום
יש לי שאלה
יצרתי תיבה משולבת , שמחפשת רשומה (במקרה שלי מס' עובד)
באירוע בעת שלא ברשימה, שמתי קוד, שפותח את טופס פרטי עובד במצב הוספה, ומאפשר להוסיף עובד (חדש) שלא ברשימה.
שאלתי היא :
איך אני מצרפת בקוד שורה שמבקשת לפתוח את הטופס, כבר עם מס' העובד שהקשתי קודם.
איפה שאני שמה את השורה, אני מקבלת שגיאה.

Private Sub en_NotInList(NewData As String, Response As Integer)

If MsgBox("add to list ? ", vbYesNo + vbQuestion, "add to list") = vbYes Then

DoCmd.OpenForm "pratim", acNormal, datamode: =acFormAdd, windowmode:=acDialog, OpenArgs:=NewData

If isLoaded("pratim") Then

Response = acDataErrAdded

DoCmd.Close , acForm, "pratim"

Else

Response = acDataErrAdded

End If

Else

Response = acDataErrContinue

End If

End Sub

----------------------

Module

isloaded

כמדומני שתשובה לשאלתך כבר נכתבה מזמן בפורום, נסי את זה.

אין לי מושג לאן הפנית אותי ולמה?
אני חושבת שאני בפורום הנכון.
זה לא פורום של מסדי נתונים - אקסס?

בהסבר כתוב ששאלות תיכנותיות מקומן בפורום תיכנות.
שאלתך היתה אמנם באקסס אבל באספקט התיכנותי ובאותה מידה אפשר היה לשאול את השאלה על Excel ולכן אין קשר לפורום מסדי נתונים.

[התמונה הבאה מגיעה מקישור שלא מתחיל ב https ולכן לא הוטמעה בדף כדי לשמור על https תקין: http://www.varon.co.il/signature.asp?type=.jpg]

"The reasonable man adapts himself to the world,

The unreasonable one persists in trying to adapt the world to himself,

Therefore all progress depends on the unreasonable man" --- George Bernard Shaw