الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

برنامج ينقصني اشياء بسيطه فيه ....

بدأه البررنس1 في 1 مايو 2009 · 21 رد · 1,164 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم والرحمه والاكرام

كيفكم يا اخوان

انا حاولت تطوير برنامج

وهذا احد الاكواد وهو كود بحث 

'
Private Sub MSHFlexGrid1_DblClick()
'
 If MSHFlexGrid1.Row = 0 Then Exit Sub
	txtCustomerNo = MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0)
	Call ConnectionDatabase
		 If rs.State = adStateOpen Then rs.Close
			rs.Open "SELECT * FROM [t15] WHERE [Customer_No] =" & _
							  Val(txtCustomerNo) & "", db, adOpenStatic, adLockOptimistic
			If rs.RecordCount <> 0 Then
			   txtCustomerName = rs![Customer_Name]
			   txtAddress = rs![Address]
			   txts1 = rs![s1]
			   txts2 = rs![s2]
			   Txtb9 = rs![b9]
			   txts3 = rs![s3]
			   txtd4 = rs![d4]
			   txtd3 = rs![d3]
			   txtdd = rs![dd]
			   txtbb = rs![bb]
			   txtt = rs![t]
			   txtss = rs![ss]
			   txts3 = rs![s3]
			   txts4 = rs![s4]
			   txts5 = rs![s5]
			   txts6 = rs![s6]
			   txts7 = rs![s7]
			   txts8 = rs![s8]
			   txts9 = rs![s9]
			   txts10 = rs![s10]
			   txts11 = rs![s11]
			   txts12 = rs![s12]
			   txts13 = rs![s13]
			   txts14 = rs![s14]
			   txts15 = rs![s15]
			   txts16 = rs![s16]
			   txts17 = rs![s17]
			   txts18 = rs![s18]
			   txts19 = rs![s19]
			   txts20 = rs![s20]
			   txts21 = rs![s21]
			   txts22 = rs![s22]
			   txts23 = rs![s23]
			   txts24 = rs![s24]
			   txts25 = rs![s25]
			   txts26 = rs![s26]
			   txts27 = rs![s27]
			   txts28 = rs![s28]
			   txts29 = rs![s29]
			   txts30 = rs![s30]
			   txts31 = rs![s31]
			   txts32 = rs![s32]
			   txts33 = rs![s33]
			   txts34 = rs![s34]
			   txts35 = rs![s35]
			   txts36 = rs![s36]
			   txts37 = rs![s37]
			   txts38 = rs![s38]
			   txts39 = rs![s39]
			   txts40 = rs![s40]
			   txts41 = rs![s41]
			   txts42 = rs![s42]
			   txts43 = rs![s43]
			   txts44 = rs![s44]
			   txts45 = rs![s45]
			   txts46 = rs![s46]
			   txts47 = rs![s47]
			   txts48 = rs![s48]
			   txts49 = rs![s49]
			   txts50 = rs![s50]
			   txts51 = rs![s51]
			   txts52 = rs![s52]
			   txts53 = rs![s53]
			   txts54 = rs![s54]
			   txts55 = rs![s55]
			   txts56 = rs![s56]
			   txts57 = rs![s57]
			   txts58 = rs![s58]
			   txts59 = rs![s59]
			   txts60 = rs![s60]
			   txts61 = rs![s61]
			   txts62 = rs![s62]
			   txts63 = rs![s63]
			   txts64 = rs![s64]
			   txts65 = rs![s65]
			   txts66 = rs![s66]
			   txts67 = rs![s67]
			   txts68 = rs![s68]
			   txts69 = rs![s69]
			   txts70 = rs![s70]
			   txts71 = rs![s71]
			   txts72 = rs![s72]
			   txts73 = rs![s73]
			   txts74 = rs![s74]
			   txts75 = rs![s75]
			   txts76 = rs![s76]
			   txts77 = rs![s77]
			   txts78 = rs![s78]
			   txts79 = rs![s79]
			   txts80 = rs![s80]
			   txts81 = rs![s81]
			   txts82 = rs![s82]
			   txts83 = rs![s83]
			   txts84 = rs![s84]
			   txts85 = rs![s85]
			   txts86 = rs![s86]
			   txts87 = rs![s87]
			   txts88 = rs![s88]
			   txts89 = rs![s89]
			   txts90 = rs![s90]
			   txts91 = rs![s91]
			   txts92 = rs![s92]
			   txts93 = rs![s93]
			   txts94 = rs![s94]
			   txts95 = rs![s95]
			   txts96 = rs![s96]
			   txts97 = rs![s97]
			   txts98 = rs![s98]
			   txts99 = rs![s99]
			   txts110 = rs![s110]
			   txts111 = rs![s111]
			   txts112 = rs![s112]
			   txts113 = rs![s113]
			   txts114 = rs![s114]
			   txts115 = rs![s115]
			   txts116 = rs![s116]
			   txts117 = rs![s117]
			   txts118 = rs![s118]
			   txts119 = rs![s119]
			   txts120 = rs![s120]
			   txts121 = rs![s121]
			   txts122 = rs![s122]
			   txts123 = rs![s123]
			   txts124 = rs![s124]
			   txts125 = rs![s125]
			   txts126 = rs![s126]
			   txts127 = rs![s127]
			   txts128 = rs![s128]
			   txts129 = rs![s129]
			   txts130 = rs![s130]
			   txts131 = rs![s131]
			   txts132 = rs![s132]
			   txts133 = rs![s133]
			   txts134 = rs![s134]
			   txts135 = rs![s135]
			   txts136 = rs![s136]
			   txts137 = rs![s137]
			   txts138 = rs![s138]
			   txts139 = rs![s139]
			   txts140 = rs![s140]
			   txts141 = rs![s141]
			   txts142 = rs![s142]
			   txts143 = rs![s143]
			   txts144 = rs![s144]
			   txts145 = rs![s145]
			   txts146 = rs![s146]
			   txts147 = rs![s147]
			   txts148 = rs![s148]
			   txts149 = rs![s149]



			   End If
End Sub

والمشكله اولا لابد من ملئ جميع التكستات وهذي هي مشكلتي

المشكله الثانيه عند الطباعه يقوم بطباعة جميع البيانات المسجله

وانا اريد فقط البيانات المختاره ؟؟؟

اتمنى القى عندكم الحل

وجزاكم الله خير

#2
اقتباس
والمشكله اولا لابد من ملئ جميع التكستات وهذي هي مشكلتي

إذا كنت تقصد أنك تكتب الكثير من السطور، فيمكنك مثلاً جعلها مصفوفة أدوات Control Array واستعمال حلقة For بهذه الطريقة مثلاً:

For Counter = txtFields.LBound To txtFields.UBound
	   txtFields(Counter).Text = RS.Fields(Counter)
Next

بفرض تسمية مصفوفة مربعات النصوص بالاسم txtFields، وبهذا ستكون قد اختصرت عدداً هائلاً من الأكواد، طبعاً عليك أن تحرص على أن يطابق رقم العنصر في المصفوفة رقمه في الجدول.

بالنسبة للسؤال الثاني، فأرجو وضع الكود.

بالتوفيق :)

تم تعديل هذه المشاركة بواسطة Abboodd في 1 مايو 2009 في 14:44

هذه الجملة خاطئة  :wacko: 


#3

اخوي مشكور abboodd

ولكن انا قصدي

اثناء عمل البرنامج

يوجد تكستات كثيره والمشكله ليس في كثرها

ولكن المشكله في اثناء عمل بحث

واختيار بيانات تم حفظها مسبقا

يعطيني خطأ في البيانات لابد من ملئ جميع التكستات الموجوده وعمل حفظ حتى يتسنى لي اثناء البحث

استيراد البيان بدون مشاكل

وانا اريد كود يعدل على كود البحث حتى يتجاهل جميع التكستات الفارغه

وهذا رابط لفورم صغير يوضح عدد التكستات

وزر البحث

www.xneno.net/Form1.rar

بالنسبه لكود الطباعه

Set DataReport2.DataSource = pt

DataReport2.Show

وشكرا جزيلا لما تقدم لنا

والله يجزاك الجنه

#4

بانتظارك اخوي

abboodd

او اي واحد من الاخوه

جزاكم الله خير ..

#5

سوف أنظر فيها غداً إن شاء الله، لكن اعذرني الآن فعندي القليل من المشاكل والمشاغل.

بالتوفيق

هذه الجملة خاطئة  :wacko: 


#6

طيب طيب .....

وجزاك الله خيييييييييييييييييير

وهذا ايميلي اذا بتضيفني

sp.sa.02@hotmail.com

#7

للرفع

للرفع

:wub:

#8

حسناً، لماذا لا تضع كمثال:

Text1.Text=IIf(RS![Field] <> "" , RS![Field] , "")

فهذا الكود يتحقق من القيمة الموجودة في RS![Field] فإن كانت غير فارغة وضعها كما هي، وإلا وضع بدلاً منها فراغاً في Text1

بالنسبة لكود التقرير، أظن السبب أنك تضع:

DataReport1.DataSource = pt

والمفروض أن تضع:

DataReport1.DataSource = RS

واعذرني على التأخر، وأرجو أن يكون هذا ما تريده.

بالتوفيق.

هذه الجملة خاطئة  :wacko: 


#9

اخوي هذا مثال

للقيم

txts1 = rs![s1]

txts2 = rs![s2]

Txtb9 = rs![b9]

txts3 = rs![s3]

txtd4 = rs![d4]

txtd3 = rs![d3]

عدلها لي الله لايهينك لجل افهم الكود

الله يجزاك خير ..ويرحم والديك

#10 
txts1 = IIf(rs![s1] <> "", rs![s1], "")
txts2 = IIf(rs![s2] <> "", rs![s2], "")
Txtb9 = IIf(rs![b9] <> "", rs![b9], "")
txts3 = IIf(rs![s3] <> "", rs![s3], "")
txtd4 = IIf(rs![d4] <> "", rs![d4], "")
txtd3 = IIf(rs![d3] <> "", rs![d3], "")

الجملة IIf تدعى جملة Immidiate If (لست متأكداً من الكتابة) وهي تقوم تقريباً بعمل جملة If العادية ولكن في سطر واحد.

يعني إذا لم تعمل معك، يمكنك أن تبدلها لتصبح كالتالي:

if RS![s1] <> "" Then
txts1 = RS![s1]
Else
txts1 = ""
End If

تقريباً نفس المعنى تماماً، باختلافات بسيطة لسنا الآن بصدد الحديث عنها.

بالتوفيق.

هذه الجملة خاطئة  :wacko: 


#11

اللله يجزاك خيييييييييييير

ويوفقك دنيا وآخره ..... يارب

كل شي تمام ولكن تبقى عندي مشكلتين صغيرتين

1_عندما اقوم بعملية حفظ لبيانات

يعطيني خطأ

((لايمكن العثور على العنصر في المجموعه المتوافقه مع الاسم والعلامه المطلوبه !))

وهذا كود الحفظ 

Private Sub cmdSave_Click()
'
 On Error GoTo 1
 If Not IsNumeric(txtCustomerNo) Then

   If Trim(txtCustomerName) = "" Then
		   MessageBoxH Me.hwnd
		   MsgBox "ÇáÑÌÇÁ ßÊÇÈÉ ÇÓã ÇáÚãíá!", vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight, "ÇáÚãíá"
		   Call OffMsg
		   txtCustomerName.SetFocus

   Else
'Add Record
			 MessageBoxH Me.hwnd
		  If MsgBox("åá ÊÑíÏ ÍÝÙ ÈíÇäÇÊ ÇáÚãíá ÇáÍÇáíÉ ?", _
					 vbQuestion + vbYesNoCancel + vbMsgBoxRight + vbMsgBoxRtlReading, "ÇáÚãíá") = vbYes Then
			 Call OffMsg
'
		  If US.State = adStateOpen Then US.Close
			 US.Open "SELECT * FROM [Permission] WHERE [No]=" & UserNo, db, adOpenStatic, adLockReadOnly
			 If US.RecordCount = 0 Then
				MessageBoxH Me.hwnd
				MsgBox "áÇ ÊæÌÏ áÏíß ÕáÇÍíÇÊ, ÇáÑÌÇÁ ÇáÇÊÕÇá ÈÇáÅÏÇÑÉ!", vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight, "ÑÓÇáÉ"
				Call OffMsg
			 Else
			   If US![Add] = False Then
				MessageBoxH Me.hwnd
				MsgBox "áÇ ÊæÌÏ áÏíß ÕáÇÍíÇÊ, ÇáÑÌÇÁ ÇáÇÊÕÇá ÈÇáÅÏÇÑÉ!", vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight, "ÑÓÇáÉ"
				Call OffMsg
				Exit Sub
			   End If
			 End If
'
			 Call ConnectionDatabase
				  If rs.State = adStateOpen Then rs.Close
					 rs.Open "SELECT * FROM [t15] WHERE [Customer_Name]='" & _
							  Trim(txtCustomerName) & "'", db, adOpenStatic, adLockOptimistic

			 If rs.RecordCount = 0 Then ' Ýí ÍÇáÉ ÚÏã æÌæÏ ÇáÕäÝ ÓæÝ íÊã ÅÖÇÝÊå

				If rs.State = adStateOpen Then rs.Close
				   rs.Open "[t15]", db, adOpenKeyset, adLockOptimistic

				   With rs
						.AddNew
						![Customer_Name] = Trim(txtCustomerName)
						![address] = Trim(txtAddress)
						![s1] = Trim(txts1)
						![s2] = Trim(txts2)
						![b9] = Trim(Txtb9)
						![s3] = Trim(txts3)
						![d4] = Trim(txtd4)
						![d3] = Trim(txtd3)
						![dd] = Trim(txtdd)
						![bb] = Trim(txtbb)
						![t] = Trim(txtt)
						![ss] = Trim(txtss)
						![s6] = Trim(txts6)
						![s7] = Trim(txts7)
						![s8] = Trim(txts8)
						![s9] = Trim(txts9)
						![s10] = Trim(txts10)
						![s11] = Trim(txts11)
						![s12] = Trim(txts12)
						![s13] = Trim(txts13)
						![s14] = Trim(txts14)
						![s15] = Trim(txts15)
						![s16] = Trim(txts16)
						![s17] = Trim(txts17)
						![s18] = Trim(txts18)
						![s19] = Trim(txts19)
						![s20] = Trim(txts20)
						![s21] = Trim(txts21)
						![s22] = Trim(txts22)
						![s23] = Trim(txts23)
						![s24] = Trim(txts24)
						![s25] = Trim(txts25)
						![s26] = Trim(txts26)
						![s27] = Trim(txts27)
						![s28] = Trim(txts28)
						![s29] = Trim(txts29)
						![s30] = Trim(txts30)
						![s31] = Trim(txts31)
						![s32] = Trim(txts32)
						![s33] = Trim(txts33)
						![s34] = Trim(txts34)
						![s35] = Trim(txts35)
						![s36] = Trim(txts36)
						![s37] = Trim(txts37)
						![s38] = Trim(txts38)
						![s39] = Trim(txts39)
						![s40] = Trim(txts40)
						![s41] = Trim(txts41)
						![s42] = Trim(txts42)
						![s43] = Trim(txts43)
						![s44] = Trim(txts44)
						![s45] = Trim(txts45)
						![s46] = Trim(txts46)
						![s47] = Trim(txts47)
						![s48] = Trim(txts48)
						![s49] = Trim(txts49)
						![s50] = Trim(txts50)
						![s51] = Trim(txts51)
						![s52] = Trim(txts52)
						![s53] = Trim(txts53)
						![s54] = Trim(txst54)
						![s55] = Trim(txts55)
						![s56] = Trim(txts56)
						![s57] = Trim(txts57)
						![s58] = Trim(txts58)
						![s59] = Trim(txts59)
						![s60] = Trim(txts60)
						![s61] = Trim(txts61)
						![s62] = Trim(txts62)
						![s63] = Trim(txts63)
						![s64] = Trim(txts64)
						![s65] = Trim(txts65)
						![s66] = Trim(txts66)
						![s67] = Trim(txts67)
						![s68] = Trim(txts68)
						![s69] = Trim(txts69)
						![s70] = Trim(txts70)
						![s71] = Trim(txts71)
						![s72] = Trim(txts72)
						![s73] = Trim(txts73)
						![s74] = Trim(txts74)
						![s75] = Trim(txts75)
						![s76] = Trim(txts76)
						![s77] = Trim(txts77)
						![s78] = Trim(txts78)
						![s79] = Trim(txts79)
						![s80] = Trim(txts80)
						![s80] = Trim(txts80)
						![s81] = Trim(txts81)
						![s82] = Trim(txts82)
						![s83] = Trim(txts83)
						![s84] = Trim(txts84)
						![s85] = Trim(txts85)
						![s86] = Trim(txts86)
						![s87] = Trim(txts87)
						![s88] = Trim(txts88)
						![s89] = Trim(txts89)
						![s90] = Trim(txts90)
						![s91] = Trim(txts91)
						![s92] = Trim(txts92)
						![s93] = Trim(txts93)
						![s94] = Trim(txts94)
						![s95] = Trim(txts95)
						![s96] = Trim(txts96)
						![s97] = Trim(txts97)
						![s98] = Trim(txts98)
						![s99] = Trim(txts99)
						![s100] = Trim(txts100)
						![s101] = Trim(txts101)
						![s102] = Trim(txts102)
						![s103] = Trim(txts103)
						![s104] = Trim(txts104)
						![s105] = Trim(txts105)
						![s106] = Trim(txts106)
						![s107] = Trim(txts107)
						![s108] = Trim(txts108)
						![s109] = Trim(txts109)
						![s110] = Trim(txts110)
						![s111] = Trim(txts111)
						![s112] = Trim(txts112)
						![s113] = Trim(txts113)
						![s114] = Trim(txts114)
						![s115] = Trim(txts115)
						![s116] = Trim(txts116)
						![s117] = Trim(txts117)
						![s118] = Trim(txts118)
						![s119] = Trim(txts119)
						![s120] = Trim(txts120)
						![s121] = Trim(txts121)
						![s122] = Trim(txts122)
						![s123] = Trim(txts123)
						![s124] = Trim(txts124)
						![s125] = Trim(txts125)
						![s126] = Trim(txts126)
						![s127] = Trim(txts127)
						![s128] = Trim(txts128)
						![s129] = Trim(txts129)
						![s130] = Trim(txts130)
						![s131] = Trim(txts131)
						![s132] = Trim(txts132)
						![s133] = Trim(txts133)
						![s134] = Trim(txts134)
						![s135] = Trim(txts135)
						![s136] = Trim(txts136)
						![s137] = Trim(txts137)
						![s138] = Trim(txts138)
						![s139] = Trim(txts139)
						![s140] = Trim(txts140)
						![s141] = Trim(txts141)
						![s142] = Trim(txts142)
						![s143] = Trim(txts143)
						![s144] = Trim(txts144)
						![s145] = Trim(txts145)
						![s146] = Trim(txts146)
						![s147] = Trim(txts147)
						![s148] = Trim(txts148)
						![s149] = Trim(txts149)

						.Update
				   End With

				   StatusBar1.Panels(1).Text = "ÇáÍÇáÉ : ÊãÊ ÚãáíÉ ÇáÍÝÙ ÈäÌÇÍ "
				   Call Form_Load
			 Else
			   MessageBoxH Me.hwnd
			   MsgBox "ÇáÚãíá ÇáÍÇáí Êã ÇÏÎÇá ÈíÇäÇÊå Ýí æÞÊ ãÓÈÞ¡ ÇáÑÌÇÁ ÇáÊÃßÏ ãä ÇáÈíÇäÇÊ ÇáÍÇáíÉ.", vbCritical + vbMsgBoxRight, "ÇáÚãíá"
			   Call OffMsg
					   Call Form_Load
					   txtCustomerName.SetFocus
			End If
	End If
   End If
'
  Else
' Edit Record
			 MessageBoxH Me.hwnd
		  If MsgBox("åá ÊÑíÏ ÊÍÑíÑ ÈíÇäÇÊ ÇáÚãíá ÇáÍÇáí ?", _
					 vbQuestion + vbYesNoCancel + vbMsgBoxRtlReading + vbMsgBoxRight, "ÇáÚãíá") = vbYes Then
			 Call OffMsg
'
		  If US.State = adStateOpen Then US.Close
			 US.Open "SELECT * FROM [Permission] WHERE [No]=" & UserNo, db, adOpenStatic, adLockReadOnly
			 If US.RecordCount = 0 Then
				MessageBoxH Me.hwnd
				MsgBox "áÇ ÊæÌÏ áÏíß ÕáÇÍíÇÊ, ÇáÑÌÇÁ ÇáÇÊÕÇá ÈÇáÅÏÇÑÉ!", vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight, "ÑÓÇáÉ"
				Call OffMsg
			 Else
			   If US![Edit] = False Then
				MessageBoxH Me.hwnd
				MsgBox "áÇ ÊæÌÏ áÏíß ÕáÇÍíÇÊ, ÇáÑÌÇÁ ÇáÇÊÕÇá ÈÇáÅÏÇÑÉ!", vbCritical + vbMsgBoxRtlReading + vbMsgBoxRight, "ÑÓÇáÉ"
				Call OffMsg
				Exit Sub
			   End If
			 End If
'
				If rs.State = adStateOpen Then rs.Close
				   rs.Open "SELECT * FROM [t15] WHERE [Customer_No] =" & txtCustomerNo, db, adOpenKeyset, adLockOptimistic

				   With rs
						![Customer_Name] = Trim(txtCustomerName)
						![address] = Trim(txtAddress)
						![s1] = Trim(txts1)
						![s2] = Trim(txts2)
						![b9] = Trim(Txtb9)
						![s3] = Trim(txts3)
						![d4] = Trim(txtd4)
						![d3] = Trim(txtd3)
						![dd] = Trim(txtdd)
						![bb] = Trim(txtbb)
						![t] = Trim(txtt)
						![ss] = Trim(txtss)
						![s6] = Trim(txts6)
						![s7] = Trim(txts7)
						![s8] = Trim(txts8)
						![s9] = Trim(txts9)
						![s10] = Trim(txts10)
						![s11] = Trim(txts11)
						![s12] = Trim(txts12)
						![s13] = Trim(txts13)
						![s14] = Trim(txts14)
						![s15] = Trim(txts15)
						![s16] = Trim(txts16)
						![s17] = Trim(txts17)
						![s18] = Trim(txts18)
						![s19] = Trim(txts19)
						![s20] = Trim(txts20)
						![s21] = Trim(txts21)
						![s22] = Trim(txts22)
						![s23] = Trim(txts23)
						![s24] = Trim(txts24)
						![s25] = Trim(txts25)
						![s26] = Trim(txts26)
						![s27] = Trim(txts27)
						![s28] = Trim(txts28)
						![s29] = Trim(txts29)
						![s30] = Trim(txts30)
						![s31] = Trim(txts31)
						![s32] = Trim(txts32)
						![s33] = Trim(txts33)
						![s34] = Trim(txts34)
						![s35] = Trim(txts35)
						![s36] = Trim(txts36)
						![s37] = Trim(txts37)
						![s38] = Trim(txts38)
						![s39] = Trim(txts39)
						![s40] = Trim(txts40)
						![s41] = Trim(txts41)
						![s42] = Trim(txts42)
						![s43] = Trim(txts43)
						![s44] = Trim(txts44)
						![s45] = Trim(txts45)
						![s46] = Trim(txts46)
						![s47] = Trim(txts47)
						![s48] = Trim(txts48)
						![s49] = Trim(txts49)
						![s50] = Trim(txts50)
						![s51] = Trim(txts51)
						![s52] = Trim(txts52)
						![s53] = Trim(txts53)
						![s54] = Trim(txst54)
						![s55] = Trim(txts55)
						![s56] = Trim(txts56)
						![s57] = Trim(txts57)
						![s58] = Trim(txts58)
						![s59] = Trim(txts59)
						![s60] = Trim(txts60)
						![s61] = Trim(txts61)
						![s62] = Trim(txts62)
						![s63] = Trim(txts63)
						![s64] = Trim(txts64)
						![s65] = Trim(txts65)
						![s66] = Trim(txts66)
						![s67] = Trim(txts67)
						![s68] = Trim(txts68)
						![s69] = Trim(txts69)
						![s70] = Trim(txts70)
						![s71] = Trim(txts71)
						![s72] = Trim(txts72)
						![s73] = Trim(txts73)
						![s74] = Trim(txts74)
						![s75] = Trim(txts75)
						![s76] = Trim(txts76)
						![s77] = Trim(txts77)
						![s78] = Trim(txts78)
						![s79] = Trim(txts79)
						![s80] = Trim(txts80)
						![s80] = Trim(txts80)
						![s81] = Trim(txts81)
						![s82] = Trim(txts82)
						![s83] = Trim(txts83)
						![s84] = Trim(txts84)
						![s85] = Trim(txts85)
						![s86] = Trim(txts86)
						![s87] = Trim(txts87)
						![s88] = Trim(txts88)
						![s89] = Trim(txts89)
						![s90] = Trim(txts90)
						![s91] = Trim(txts91)
						![s92] = Trim(txts92)
						![s93] = Trim(txts93)
						![s94] = Trim(txts94)
						![s95] = Trim(txts95)
						![s96] = Trim(txts96)
						![s97] = Trim(txts97)
						![s98] = Trim(txts98)
						![s99] = Trim(txts99)
						![s100] = Trim(txts100)
						![s101] = Trim(txts101)
						![s102] = Trim(txts102)
						![s103] = Trim(txts103)
						![s104] = Trim(txts104)
						![s105] = Trim(txts105)
						![s106] = Trim(txts106)
						![s107] = Trim(txts107)
						![s108] = Trim(txts108)
						![s109] = Trim(txts109)
						![s110] = Trim(txts110)
						![s111] = Trim(txts111)
						![s112] = Trim(txts112)
						![s113] = Trim(txts113)
						![s114] = Trim(txts114)
						![s115] = Trim(txts115)
						![s116] = Trim(txts116)
						![s117] = Trim(txts117)
						![s118] = Trim(txts118)
						![s119] = Trim(txts119)
						![s120] = Trim(txts120)
						![s121] = Trim(txts121)
						![s122] = Trim(txts122)
						![s123] = Trim(txts123)
						![s124] = Trim(txts124)
						![s125] = Trim(txts125)
						![s126] = Trim(txts126)
						![s127] = Trim(txts127)
						![s128] = Trim(txts128)
						![s129] = Trim(txts129)
						![s130] = Trim(txts130)
						![s131] = Trim(txts131)
						![s132] = Trim(txts132)
						![s133] = Trim(txts133)
						![s134] = Trim(txts134)
						![s135] = Trim(txts135)
						![s136] = Trim(txts136)
						![s137] = Trim(txts137)
						![s138] = Trim(txts138)
						![s139] = Trim(txts139)
						![s140] = Trim(txts140)
						![s141] = Trim(txts141)
						![s142] = Trim(txts142)
						![s143] = Trim(txts143)
						![s144] = Trim(txts144)
						![s145] = Trim(txts145)
						![s146] = Trim(txts146)
						![s147] = Trim(txts147)
						![s148] = Trim(txts148)
						![s149] = Trim(txts149)


						.Update
				   End With
							  StatusBar1.Panels(1).Text = "ÇáÍÇáÉ : ÊãÊ ÚãáíÉ ÇáÊÍÑíÑ ÈäÌÇÍ"
							  Call Form_Load
		   End If
 End If
'
Exit Sub
1
 MsgBox Err.Description & "!", vbCritical, "ÇáÚãíá"
 StatusBar1.Panels(1).Text = "ÇáÍÇáÉ : ÎØà ÛíÑ ãÚÑæÝ"
 Call Form_Load
End Sub

2_وايضا اريد كود لتعديل البيانات بعد حفظها واتسرجاعها

وادري والله اني ازعجتك ..وتعبتك معي ...بس استحملني شوي ^.^

الله يرحم والديك

#12

up

up

up

#13

up

up

#14

السلام عليكم ورحمة الله وبركاته ،،،

أخي ... أرفق مثالا مشابها للحالة التي طرحتها وسأحاول أن أعدل عليه وأرسله لك مرة أخرى ... هذا أفضل من مجرد الطرح النظري ... وحياك الله

#15

شكرا لتواجدك اخوي

طيب هذا مثال مصغر

جرب تعدل او حتى تضيف عميل مثلا

وشوف الخطا الي يطلع لك

((لايمكن العثور على العنصر في المجموعه المتوافقه مع الاسم والعلامه المطلوبه !))

www.xneno.net/test.rar

#16

المثال الذي ارفقته فيه ملف ناقص ... واسمه ArabMsg.bas

ولهذا السبب فقد أوقفت عمل الجمل التي تستخدم هذه الدالة وهي :

MessageBoxH Me.hWnd

و

Call OffMsg

وأما الخطأ الذي يظهر لك ... فسببه أنك تريد أن تحفظ معلومات في حقول ليس لها وجود في قاعدة البيانات ... وهذه الحقول هي :

'						![s146] = Trim(txts146)
'						![s147] = Trim(txts147)
'						![s148] = Trim(txts148)
'						![s149] = Trim(txts149)

تفضل أخي برنامجك بعد التعديل في المرفقات ... واحفظ فيه كيفما تشاء

test.rar

#17

شكرا لتواجدك اخوي

جزاك الله خير

تم حل المشاكل ولكن

الان اثناء التعديل فقط وليس الحفظ

تظهر لي مشكله وهو خطأ

يقول ((تم تعريف حقول كثيره جدا!)) هذا الخطا اثناء التعديل فقط

تعبتكم معي

^.^

#18

>>وده يقول up ومستحي

^.^

#19

يا اخوان لم يتبقى مشكله

الا هذي

الان اثناء التعديل فقط وليس الحفظ

تظهر لي مشكله وهو خطأ

يقول ((تم تعريف حقول كثيره جدا!)) هذا الخطا اثناء التعديل فقط

فقط

#20

أخي الكريم ....

ليس في برنامجك زر اسمه التعديل ... فمن أين تقوم بالتعديل في برنامجك حتى أستطيع أن أساعدك ؟؟ وما هي الخانات التي يلزمك تعديل البيانات فيها حتى تجري عليها التعديل ؟؟ ...

برنامجك فيه الكثير من الأدوات التي لم تقم بتوضيح مهامها !

#21

اخي لو رجعت للنسخه الي عطيتك بتجد اني واضع كود التعديل مدموج في الحفظ

يعني تسترجع البيانات ثم تعدل

وتظهر لك رساله تقول (هل تريد التعديل على العميل الحالي ؟؟)

على العموم لو لم يتم معالجة الخطأ البسيط

انا ابي اعدل فقط على تكستات تحمل بيانات عند حفظها

موجوده في المثال الي ارسلته لك tset

#22

ولا يهمك أخي الكريم ... تفضل برنامجك بعد التعديل في المرفقات

:)

test.rar

تم تعديل هذه المشاركة بواسطة maajed555 في 14 مايو 2009 في 00:08

مواضيع مشابهة