figo82eg قام بنشر فبراير 15 مشاركة قام بنشر فبراير 15 ارجو المساعدة فى الjعديل على كود لكى استفيد منه فى برنامجى وهو ' Addo strSQL = "UPDATE Test SET crn = '" & cityCode & "' & crn;" DoCmd.RunSQL strSQL حيث اريد من الكود السابق أن يضيف 00 نهاية crn رابط هذا التعليق شارك More sharing options...
kkhalifa1960 قام بنشر فبراير 16 مشاركة قام بنشر فبراير 16 تفضل أخي @figo82eg الكود بعد الاضافة . ' Addo strSQL = "UPDATE Test SET crn = '" & cityCode & "' & crn & "00";" DoCmd.RunSQL strSQL رابط هذا التعليق شارك More sharing options...
figo82eg قام بنشر فبراير 16 الكاتب مشاركة قام بنشر فبراير 16 @kkhalifa1960 أستاذى الكريم تظهر معى هذه الرسالة عند تطبيق الكود Private Sub Command84_Click() Dim cityCode As String Dim strSQL As String DoCmd.SetWarnings True = False ' استخراج كود المدينة من المربع النصي cityCode = Me.Text82.Value ' التحقق من أن تم إدخال كود المدينة If Len(cityCode) > 0 Then ' نقل السجلات المستهدفة إلى جدول مؤقت "Test" strSQL = "SELECT * INTO Test FROM [BASIC_DATE] WHERE Left(crn, 4) = '" & cityCode & "';" DoCmd.RunSQL strSQL ' Delete4 strSQL = "UPDATE Test SET crn = Right(crn, Len(crn)-4) WHERE Left(crn, 4) = '" & cityCode & "';" DoCmd.RunSQL strSQL ' Delete3 right strSQL = "UPDATE Test SET crn = Left(crn,Len(crn)-3) & Right(crn,2) " DoCmd.RunSQL strSQL ' Repete strSQL = "UPDATE Test SET crn = Left([crn],2)+[crn];" DoCmd.RunSQL strSQL ' Addo strSQL = "UPDATE Test SET crn = '" & cityCode & "' & crn & "00";" DoCmd.RunSQL strSQL ' حذف السجلات من الجدول الأصلي "BASIC_DATE" DoCmd.RunSQL "DELETE FROM [BASIC_DATE] WHERE Left(crn, 4) = '" & cityCode & "';" ' إدراج السجلات المحدثة من "Test" إلى الجدول الأصلي "BASIC_DATE" DoCmd.RunSQL "INSERT INTO [BASIC_DATE] SELECT * FROM Test;" ' حذف الجدول المؤقت "Test" DoCmd.DeleteObject acTable, "Test" ' رسالة تأكيد MsgBox "تم تحديث السجلات بنجاح!", vbInformation DoCmd.Requery Else ' رسالة في حالة عدم إدخال كود المدينة MsgBox "الرجاء إدخال كود المدينة أولاً!", vbExclamation End If DoCmd.SetWarnings True = True End Sub وده الكود كامل بحاول اضيف فيه السطر السابق لكى اضيف 00 ولكن لايقبل رابط هذا التعليق شارك More sharing options...
أفضل إجابة Foksh قام بنشر فبراير 16 أفضل إجابة مشاركة قام بنشر فبراير 16 محاولة مني جرب هذا الكود تعديلا على مشاركتك الأولى . strSQL = "UPDATE Test SET crn = '" & cityCode & "' & LEFT(crn, LEN(crn)-2) & '00';" DoCmd.RunSQL strSQL رابط هذا التعليق شارك More sharing options...
سامي الحداد قام بنشر فبراير 16 مشاركة قام بنشر فبراير 16 مشاركة مع الاساتذة جرب هذا التعديل Private Sub Command84_Click() Dim cityCode As String Dim strSQL As String ' استخراج كود المدينة من المربع النصي cityCode = Me.Text82.Value ' التحقق من أن تم إدخال كود المدينة If Len(cityCode) > 0 Then ' نقل السجلات المستهدفة إلى جدول مؤقت "Test" strSQL = "SELECT * INTO Test FROM [BASIC_DATE] WHERE Left(crn, 4) = '" & cityCode & "';" DoCmd.RunSQL strSQL ' Delete4 strSQL = "UPDATE Test SET crn = Right(crn, Len(crn)-4) WHERE Left(crn, 4) = '" & cityCode & "';" DoCmd.RunSQL strSQL ' Delete3 right strSQL = "UPDATE Test SET crn = Left(crn,Len(crn)-3) & Right(crn,2) WHERE Left(crn, 4) = '" & cityCode & "';" DoCmd.RunSQL strSQL ' Repete strSQL = "UPDATE Test SET crn = Left([crn],2)+[crn] WHERE Left(crn, 4) = '" & cityCode & "';" DoCmd.RunSQL strSQL ' Addo strSQL = "UPDATE Test SET crn = crn & '00' WHERE Left(crn, 4) = '" & cityCode & "';" DoCmd.RunSQL strSQL ' حذف السجلات من الجدول الأصلي "BASIC_DATE" DoCmd.RunSQL "DELETE FROM [BASIC_DATE] WHERE Left(crn, 4) = '" & cityCode & "';" ' إدراج السجلات المحدثة من "Test" إلى الجدول الأصلي "BASIC_DATE" DoCmd.RunSQL "INSERT INTO [BASIC_DATE] SELECT * FROM Test;" ' حذف الجدول المؤقت "Test" DoCmd.DeleteObject acTable, "Test" ' رسالة تأكيد MsgBox "تم تحديث السجلات بنجاح!", vbInformation DoCmd.Requery Else ' رسالة في حالة عدم إدخال كود المدينة MsgBox "الرجاء إدخال كود المدينة أولاً!", vbExclamation End If End Sub رابط هذا التعليق شارك More sharing options...
figo82eg قام بنشر فبراير 16 الكاتب مشاركة قام بنشر فبراير 16 اشكركم جميعاً اساتذتمى الكرام وجعل الله علمكم فى ميزان حسناتكم 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.