שלום, הרצתי קוד מסויים והוא נתן לי את השגיאה הזו, (Object Required , 424),לחצתי על דיבאג וזה סימן לי את השורה האחרונה בקוד, הסתכלתי על השורה ולא מצאתי משהו דפוק הורדתי מחקתי שיניתי לא הלך עדיין יש את השגיאה..
עשיתי חיפוש כאן, אין כלום, עשיתי חיפוש ב dr-vb אין כלום, עשיתי חיפוש בגוגל מצאתי מליון תוצאות, התחלתי להיכנס וראיתי שלהרבה אנשים יש את השגיאה הזו, וכל פעם על קוד אחר, במספ' פורומים ראיתי שזו בעייה ב vb, הגעתי מגוגל לקישור הבא: http://www.techonthenet.com/access/...bj_required.php , שבו מתארים את הבעיה ומסבירים שהיא נובעת (לפי הקישור ומה שהבנתי) מכך שvb לא מזהה את הטופס, והבעיה היא לא בקוד.
רשמו שם דרך לסדר את הבעיה אבל לא הבנתי מה זה לפתוח את הטופס בתצוגת עיצוב, חיפשתי ב visual studio בקליק ימני של הטופס בצד ימין ולא מצאתי משהו דומה.
אם מישהו יוכל להגיד לי מה לעשות אודה לו מאוד .

חתימתי העצומה בגודלה הוסרה ע"י השליט הבלתי מעורער שימי, למי שיש בעיה שיפנה אליו.


ד אַל תַּעַן כְּסִיל כְּאִוַּלְתּוֹ פֶּן תִּשְׁוֶה לּוֹ גַם אָתָּה. ה עֲנֵה כְסִיל כְּאִוַּלְתּוֹ פֶּן יִהְיֶה חָכָם בְּעֵינָיו

לפחות, לפי האתר.

מז"א? , זה לא מה שנעשה בהפעלת הפרוביידר?
וגם השתמשתי ב2 שאילתות לפני והם פעלו ללא שגיאות, אבל רק בשורה הספציפית הזו זה עושה את הבעיה, הנה השורה:

קוד:

oConn.Execute("INSERT into sapak (name, cphone, company, phone, fax, id) VALUES ('" & sapak.Text & "', '" & cphone.Text & "', '" & comapny.Text & "', '" & phone.Text & "', '" & fax.Text & "', id)")

חתימתי העצומה בגודלה הוסרה ע"י השליט הבלתי מעורער שימי, למי שיש בעיה שיפנה אליו.


ד אַל תַּעַן כְּסִיל כְּאִוַּלְתּוֹ פֶּן תִּשְׁוֶה לּוֹ גַם אָתָּה. ה עֲנֵה כְסִיל כְּאִוַּלְתּוֹ פֶּן יִהְיֶה חָכָם בְּעֵינָיו

אתה עובד ב-VB או ב-VBA של אקסס?

1. אין לי מספיק נתונים כדי שאוכל לעזור לך. קודם כל, תגיד באיזה סביבה אתה עובד (בידיוק מה ש-"לפנים" שאל)?
VB6? VBA? VB.NET?

2. תצרף לפחות דוגמאת קוד שעושה את הבעיה. תנסה לתאר באיזה פקדים או רכיבים אתה משתמש וכו...

1) vb6

2)

זו השורה שהדיבאג מסמן:

קוד:

oConn.Execute("INSERT into sapak (name, cphone, company, phone, fax, id) VALUES ('" & sapak.Text & "', '" & cphone.Text & "', '" & comapny.Text & "', '" & phone.Text & "', '" & fax.Text & "', id)")

יש לי בטופס flexgrid כמה כפתורים ואדיטים,
זה הקוד המלא:
(קצת מטומטם כנראה :|)

קוד:

 
Private Sub Form_Load()
	Dim i As Integer
	i = 0
	Do While (i <= 4)
	list_s.ColWidth(i) = 1957
	i = i + 1
	Loop
	list_s.Visible = False
	list_s.CellAlignment = 7
	list_s.Visible = True
	list_s.TextMatrix(0, 0) = "שם הספק"
	list_s.TextMatrix(0, 1) = "מס' פלא"
	list_s.TextMatrix(0, 2) = "שם החברה"
	list_s.TextMatrix(0, 3) = "טלפון החברה"
	list_s.TextMatrix(0, 4) = "מס' פקס"
	Dim oConn As ADODB.Connection
	Set oConn = New ADODB.Connection
	oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=sapak.mdb; DefaultDir=c:\" & ";"
	Dim oRs As ADODB.Recordset
	Set oRs = oConn.Execute("SELECT * FROM sapak")
	Dim strrow As String
	Do While (oRs.EOF = False)
		strrow = oRs.Fields("name") & vbTab & oRs.Fields("cphone") & vbTab & oRs.Fields("company") & vbTab & oRs.Fields("phone") & vbTab & oRs.Fields("fax")
		list_s.AddItem (strrow)
		oRs.MoveNext
	Loop
	oRs.Close
	Set oRs = Nothing
	oConn.Close
	Set oConn = Nothing
End Sub
Private Sub add_Click()
	Dim oConn As ADODB.Connection
	Set oConn = New ADODB.Connection
	oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=sapak.mdb; DefaultDir=c:\" & ";"
	Dim oRs As ADODB.Recordset
	Set oRs = oConn.Execute("SELECT id FROM sapak ORDER BY id DESC")
	Dim id As Integer
	If (oRs.EOF = True) Then
		id = 1
	Else
		id = oRs.Fields(id) + 1
	End If
	Set oRs = oConn.Execute("INSERT into sapak (name, cphone, company, phone, fax, id) VALUES ('" & sapak.Text & "', '" & cphone.Text & "', '" & comapny.Text & "', '" & phone.Text & "', '" & fax.Text & "', id)")
End Sub
 

ולפנים, מצטער יכול להיות שלא שמתי לב לvba ו שקראתי ולא שמתי לב לa , מצטער.


תודה רבה.

חתימתי העצומה בגודלה הוסרה ע"י השליט הבלתי מעורער שימי, למי שיש בעיה שיפנה אליו.


ד אַל תַּעַן כְּסִיל כְּאִוַּלְתּוֹ פֶּן תִּשְׁוֶה לּוֹ גַם אָתָּה. ה עֲנֵה כְסִיל כְּאִוַּלְתּוֹ פֶּן יִהְיֶה חָכָם בְּעֵינָיו

יש לך בעיה עם השירשור של ה-ID.
קודם כל תחליף את השורה שיש שם שגיאה בשורה הזו:

קוד:

 Set oRs = oConn.Execute("INSERT into sapak (name, cphone, company, phone, fax, id) VALUES ('" & sapak.Text & "', '" & cphone.Text & "', '" & comapny.Text & "', '" & phone.Text & "', '" & fax.Text & "', " & id & ")") 

אחרי זה, תוודא שיש לך את כל השדות. (sapak,cphone,comapny,phone,fax)

בהצלחה!

נ.ב:
1. הקוד לא כתוב טוב. אתה צריך מחרוזת קישור אחת, ופונקציה לניהול השאילתות. ולא כל פעם להגדיר את האובייקטים מחדש ולנהל היתחברות מחדש.
2. התיכנון של מסד הנתונים לא טוב. ID תמיד צריך להיות מספר רץ. ואז גם זה יורד לך מהראש...

דבר ראשון תודה רבה.בקשר ל id לא שמתי לב , תודה אך זה לא עזר.
עדיין זה מציג לי את אותה השגיאה ומסמן לי את אותה השורה.
כל השדות קיימים בטבלה sapak.


אגב בקשר לפונקציות, אם אכריז על משתנה בפונקציה אחת הוא לא יהיה זמין בפונקציה השנייה מבלי לעשותו גלובאלי לא?
או שאולי אני צריך לעשות את זה בצורה של מחלקה?
בקשר לשדה id אתה מתכוון שזה יהיה אוטו אינסרמנט ?

חתימתי העצומה בגודלה הוסרה ע"י השליט הבלתי מעורער שימי, למי שיש בעיה שיפנה אליו.


ד אַל תַּעַן כְּסִיל כְּאִוַּלְתּוֹ פֶּן תִּשְׁוֶה לּוֹ גַם אָתָּה. ה עֲנֵה כְסִיל כְּאִוַּלְתּוֹ פֶּן יִהְיֶה חָכָם בְּעֵינָיו

תורה רבה לשתיכם, באמת רשמתי בקוד comapny במקום company :| , תודה רבה, ומצטער על התגובה המאוחרת לא יצא לי לבדוק.

חתימתי העצומה בגודלה הוסרה ע"י השליט הבלתי מעורער שימי, למי שיש בעיה שיפנה אליו.


ד אַל תַּעַן כְּסִיל כְּאִוַּלְתּוֹ פֶּן תִּשְׁוֶה לּוֹ גַם אָתָּה. ה עֲנֵה כְסִיל כְּאִוַּלְתּוֹ פֶּן יִהְיֶה חָכָם בְּעֵינָיו

בקשר למשתנה הגלובאלי, אתה צריך לשים רק את oConn גלובאלי. ואת המישתנה Recordset, תשים בתוך הפונקציה.

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