نجوم المشاركات

السلام عليكم و رحمة الله استخدم المعادلة التالية =INDEX($B$2:$K$8;MATCH($B$15;$A$2:$A$8;0);MATCH($C$15;$B$1:$K$1;0))

الحقيقة ان اهتمامي كان مُنصب على معرفة سبب المشكله لماذا كُتبت القيمة بهذا الشكل 15 حرف بينما المنطقي ان تكون 10 احرف واعتقد والله اعلم ان بيانات الجدول ليست مدخله في الاكسس وانما تم استيرادها من ملف وربما ملف نصي وان الامر له علاقة بترميز مختلف اما بالنسبة للحل الحقيقة اني شخصت المشكلة وليس اساسها ربما لو لم يقف الموضوع عند هذا الحد فما قمت بتقديمه انت وانا وقدمه الاستاذ جعفر هو معالجة لاعراض المشكلة اما الحل النهائي فيكون بمعرفة سبب ظهور البيانات بهذا الشكل ومعالجة السبب وليس النتيجة ولكن بما ان الاستاذ لطفي وجد مبتغاه فاكتفي بذلك واتوقف هنا واتمثل بقول الاعرابي فألقت عصاها واستقرّ بها النّوى .. كما قرّ عينًا بالإيّابِ المسافر تحياتي لك استاذ لطفي وللاساتذة جعفر وابوخليل .

طيب جرب واخبرنا ................... linktable.rar

السلام عليكم لتبسيط الامور ممكن عمل التالى: 1- تعريف الجداول فى كل شهر Insert Table ........ تكون Table1 , Table2 .... الخ 2 - تجميع الجداول اسفل بعضها فى ورقة عمل جديدة بواسطة الأسم : بمعنى ادخل الخلية A1 واكتب فيها =Table1 و كذلك فى الخلية ِA17 نكتب =Table 2 وهكذا ... الى ان تظهر نسخه من جميع الجداول تحت بعضها ( ملاحظة لازم نترك مسافة بين بداية كل جدول والاخر تساوى الحد الأقصى لصفوف الجداول فى اى شهر انا افترضتها هنا 16 سطر .. علشان لو زودنا سطر فى اي جدول ما يظهرش خطأ ) بكدا يقى عندنا عمود فيه الاسماء ممكن نستعمل دالة CountIf امام كل أسم علشان نعرف تم تقييمه فى كام شهر ونعمل SumIf بدلالة نفس العمود وطبقا للاسم ونقسم المجموع على عدد التقييمات وكده نحصل على متوسط التقييمات لكل فرد فى الاشهر اللى اتقيم فيها ... والملف مرفق Evaluation.xlsx

على فكرة قمت بتجربة الكود وعمل معي بنجاح 🙂 أولا : أحضرت رابط لنموذج ملف txt من هذا الموقع والذي يوفر لك نماذج Samples جاهزة للتحميل بروابط مباشرة لكل أنواع الملفات : https://filesamples.com وهذا كان رابط الملف النصي : https://filesamples.com/samples/document/txt/sample2.txt وعملت نموذج بسيط للتجربة وهذه هي النتيجة : 🙂 Read Online Txt File.accdb

احسنت طال عمرك ، والف شكر

اعتقد ان السبب في الترميز المستخدم في موقع الانترنت او في مصدر البيانات قبل رفعها الرموز وهذا بناء على ما اذكر من رقم 0 الى 127 ثم الحقت رموز اضافية من 128 الى 255 الويندوز عندما يجد رمز لحرف غير موجود في اللغة المستخدمة يضع رمز بديل واحيانا يكون الرمز مركب ɿ في UTF-8 وباقي تفريعاته ----------- نفس الرمز في ANSI ة؟ ويمكن ملاحظة ذلك عندما نقوم باعداد خط لاستخدامه لاي غرض ثم بعد فتره نجد ان هناك رموز بدلا من بعض الاحرف والسبب اننا اغفلنا عند صناعة ملف الخط اضافة حرف او همزة او علامة استفهام او تعجب ... الخ تحياتي

الجواب ، لا نعرف ، وقد اخبرنا الاخ محمد احمد لطفي انه يجلب البيانات من الانترنت الى الاكسل الى الاكسس ، فاعتقد ان اساس المشكلة هي طريقة ادخال هذه القيم هناك ، ولا اعتقد انه يدوي ، قد تكون البيانات أُخذت من برنامج او نظام تشغيل آخر ، وهذا ما كان يتحرى عنه الاخ خالد 🙂 جعفر

صادفتني هذه المشكلة يوم من الايام ، وبطريقة تختلف قليلا ، واشرت اليها هنا جعفر

كل الشكر والتقدير لشخصك الكريم المطلوب كما هو احسنت

بالاضافة لما تفضل به الاساتذة اليك مشاركتي Sub CopyTableStructure() If Not TableExists("tblOld") Then MsgBox "Table 'TblOld' does not exist in the current database." Exit Sub End If Dim strPath As String strPath = CurrentProject.FullName DoCmd.TransferDatabase acImport, "Microsoft Access", strPath, acTable, "tblOld", "TblNew", True End Sub Function TableExists(tblName As String) As Boolean TableExists = (CurrentDb.TableDefs(tblName).Name = tblName) End Function testdate4.mdb

مشاركة مع المهندس @Eng.Qassim استخدم هذا ....... DoCmd.CopyObject , "tbLNew", acTable, "tblOld" DoCmd.SetWarnings False DoCmd.RunSQL "DELETE tbLNew.sdate FROM tbLNew;" DoCmd.SetWarnings True

جزاكم الله خيراً تم ايجاد اضافته اذا كان هناك تعديل على "A2:j100000" ليكون أفضل يرجى التنبيه Dim x3, x4 x3 = CurrentProject.Path & "\" & "0125" & ".xls" 'اكتب اسم الجدول المراد انشاءه x4 = "جدول جديد" DoCmd.TransferSpreadsheet acImport, 10, x4, x3, True, "A2:j100000"

تفضل اخى Hassona229@gmail.com

السلام عليكم 🙂 اخوي ابو البشر ، الافضل ان تحذف الرابط الحالي قبل ان تعمل رابط جديد ، وتتعامل مع النسخة xlsx 🙂 If tdf.Name = "shet_Data" Then Call CurrentDb.TableDefs.Delete(tdf.Name) DoCmd.TransferSpreadsheet acLink, acSpreadsheetTypeExcel12Xml, _ "shet_Data", CurrentProject.Path & "\Data.xlsx", True, "ورقة1$" End If جعفر

ده انكليزي ي محمد ههههه والله لم افهمك ..رغم اني اعلم بأن أسألتك كبيرة كيف ننسخ للجدول tbLNew ويكون فارغ ؟ هو بالاساس كان فارغ قبل النسخ ...وهو الان مليان بعد النسخ ممكن توضيح اكثر استاذ محمد

مثل ما تفضل به الاستاذ @ابو البشر والكود له جزاه الله خيرا . انا فقط حذفت السطر الاول من الاكسل حسب طلبك جرب ووافينا بالنتيجة . testdate4.rar

تفضل ان شاءالله يكون نفس ما تبي تفريغ الجدول.accdb

لم افهم ما تقصد هل تريد زر امر يقوم بتفرغ بيانات الجول او كيف ؟

احسنت ياذهب بارك الله بك

وهذا شكل الجدول بعد الاستيراد ووضع بعض البيانات به

في الجدول وبعد الاستيراد غير موجود !!!!

يعني انت تحتاج اسماء الحقول فقط

وعليكم السلام ورحمة الله لاتنتظر مساعده دون ارسال ملف مدعوم بشرح

السلام عليم اخي جرب المرفق Test.xlsm

واياك استاذي الفاضل

أو ايضا مشاركة مع شيوخ الاكسس MsgBox "لا توجد بيانات في التقرير", , "تنبيه" DoCmd.CancelEvent

وعليكم السلام 🙂 في حدث "On NoData" اكتب msgbox "لا توجد بيانات" cancel=true جعفر

طيب جرب كده ...... Dim x3, x4 x3 = CurrentProject.Path & "\" & "0125" & ".xls" 'اكتب اسم الجدول المراد انشاءه x4 = "جدول جديد" DoCmd.TransferSpreadsheet acImport, 10, x4, x3, True, ""

تريد استيراد من الاكسل ام تصدير للاكسل ؟؟؟ لان ملف الاكسل ليس فيه بيانات ؟؟؟؟

طيب جرب كده .................. Relink.rar

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

هذه اسهل طريقة

هذه هي جميع قيم Chr Character 0 (Chr(0): Character 1 (Chr(1): � Character 2 (Chr(2): � Character 3 (Chr(3): � Character 4 (Chr(4): � Character 5 (Chr(5): � Character 6 (Chr(6): � Character 7 (Chr(7): � Character 8 (Chr(8): [Backspace] Character 9 (Chr(9): [Tab] (vbTab) Character 10 (Chr(10): [Line Feed Return] (vbLf) Character 11 (Chr(11): [Shift+Enter] (vbVerticalTab) Character 12 (Chr(12): [Page Break] (vbFormFeed) Character 13 (Chr(13): [Carriage Return] (vbCr) Character 14 (Chr(14): [Column Break] Character 15 (Chr(15): [Shift In] Character 16 (Chr(16): � Character 17 (Chr(17): � Character 18 (Chr(18): � Character 19 (Chr(19): � Character 20 (Chr(20): � Character 21 (Chr(21): � Character 22 (Chr(22): � Character 23 (Chr(23): � Character 24 (Chr(24): � Character 25 (Chr(25): � Character 26 (Chr(26): � Character 27 (Chr(27): � Character 28 (Chr(28): � Character 29 (Chr(29): � Character 30 (Chr(30): � Character 31 (Chr(31): � Character 32 (Chr(32): (space) Character 33 (Chr(33): ! Character 34 (Chr(34): " Character 35 (Chr(35): # Character 36 (Chr(36): $ Character 37 (Chr(37): % Character 38 (Chr(38): & Character 39 (Chr(39): ' Character 40 (Chr(40): ( Character 41 (Chr(41): ) Character 42 (Chr(42): * Character 43 (Chr(43): + Character 44 (Chr(44): , Character 45 (Chr(45): - Character 46 (Chr(46): . Character 47 (Chr(47): / Character 48 (Chr(48): 0 Character 49 (Chr(49): 1 Character 50 (Chr(50): 2 Character 51 (Chr(51): 3 Character 52 (Chr(52): 4 Character 53 (Chr(53): 5 Character 54 (Chr(54): 6 Character 55 (Chr(55): 7 Character 56 (Chr(56): 8 Character 57 (Chr(57): 9 Character 58 (Chr(58): : Character 59 (Chr(59): ; Character 60 (Chr(60): < Character 61 (Chr(61): = Character 62 (Chr(62): > Character 63 (Chr(63): ? Character 64 (Chr(64): @ Character 65 (Chr(65): A Character 66 (Chr(66): B Character 67 (Chr(67): C Character 68 (Chr(68): D Character 69 (Chr(69): E Character 70 (Chr(70): F Character 71 (Chr(71): G Character 72 (Chr(72): H Character 73 (Chr(73): I Character 74 (Chr(74): J Character 75 (Chr(75): K Character 76 (Chr(76): L Character 77 (Chr(77): M Character 78 (Chr(78): N Character 79 (Chr(79): O Character 80 (Chr(80): P Character 81 (Chr(81): Q Character 82 (Chr(82): R Character 83 (Chr(83): S Character 84 (Chr(84): T Character 85 (Chr(85): U Character 86 (Chr(86): V Character 87 (Chr(87): W Character 88 (Chr(88): X Character 89 (Chr(89): Y Character 90 (Chr(90): Z Character 91 (Chr(91): [ Character 92 (Chr(92): \ Character 93 (Chr(93): ] Character 94 (Chr(94): ^ Character 95 (Chr(95): _ Character 96 (Chr(96): ` Character 97 (Chr(97): a Character 98 (Chr(98): b Character 99 (Chr(99): c Character 100 (Chr(100): d Character 101 (Chr(101): e Character 102 (Chr(102): f Character 103 (Chr(103): g Character 104 (Chr(104): h Character 105 (Chr(105): i Character 106 (Chr(106): j Character 107 (Chr(107): k Character 108 (Chr(108): l Character 109 (Chr(109): m Character 110 (Chr(110): n Character 111 (Chr(111): o Character 112 (Chr(112): p Character 113 (Chr(113): q Character 114 (Chr(114): r Character 115 (Chr(115): s Character 116 (Chr(116): t Character 117 (Chr(117): u Character 118 (Chr(118): v Character 119 (Chr(119): w Character 120 (Chr(120): x Character 121 (Chr(121): y Character 122 (Chr(122): z Character 123 (Chr(123): { Character 124 (Chr(124): | Character 125 (Chr(125): } Character 126 (Chr(126): ~ Character 127 (Chr(127): Character 128 (Chr(128): € Character 129 (Chr(129): Character 130 (Chr(130): ‚ Character 131 (Chr(131): ƒ Character 132 (Chr(132): „ Character 133 (Chr(133): … Character 134 (Chr(134): † Character 135 (Chr(135): ‡ Character 136 (Chr(136): ˆ Character 137 (Chr(137): ‰ Character 138 (Chr(138): Š Character 139 (Chr(139): ‹ Character 140 (Chr(140): Œ Character 141 (Chr(141): Character 142 (Chr(142): Ž Character 143 (Chr(143): Character 144 (Chr(144): Character 145 (Chr(145): ‘ Character 146 (Chr(146): ’ Character 147 (Chr(147): “ Character 148 (Chr(148): ” Character 149 (Chr(149): • Character 150 (Chr(150): – Character 151 (Chr(151): — Character 152 (Chr(152): ˜ Character 153 (Chr(153): ™ Character 154 (Chr(154): š Character 155 (Chr(155): › Character 156 (Chr(156): œ Character 157 (Chr(157): Character 158 (Chr(158): ž Character 159 (Chr(159): Ÿ Character 160 (Chr(160): Character 161 (Chr(161): ¡ Character 162 (Chr(162): ¢ Character 163 (Chr(163): £ Character 164 (Chr(164): ¤ Character 165 (Chr(165): ¥ Character 166 (Chr(166): ¦ Character 167 (Chr(167): § Character 168 (Chr(168): ¨ Character 169 (Chr(169): © Character 170 (Chr(170): ª Character 171 (Chr(171): « Character 172 (Chr(172): ¬ Character 173 (Chr(173): ­ Character 174 (Chr(174): ® Character 175 (Chr(175): ¯ Character 176 (Chr(176): ° Character 177 (Chr(177): ± Character 178 (Chr(178): ² Character 179 (Chr(179): ³ Character 180 (Chr(180): ´ Character 181 (Chr(181): µ Character 182 (Chr(182): ¶ Character 183 (Chr(183): · Character 184 (Chr(184): ¸ Character 185 (Chr(185): ¹ Character 186 (Chr(186): º Character 187 (Chr(187): » Character 188 (Chr(188): ¼ Character 189 (Chr(189): ½ Character 190 (Chr(190): ¾ Character 191 (Chr(191): ¿ Character 192 (Chr(192): À Character 193 (Chr(193): Á Character 194 (Chr(194):  Character 195 (Chr(195): à Character 196 (Chr(196): Ä Character 197 (Chr(197): Å Character 198 (Chr(198): Æ Character 199 (Chr(199): Ç Character 200 (Chr(200): È Character 201 (Chr(201): É Character 202 (Chr(202): Ê Character 203 (Chr(203): Ë Character 204 (Chr(204): Ì Character 205 (Chr(205): Í Character 206 (Chr(206): Î Character 207 (Chr(207): Ï Character 208 (Chr(208): Ð Character 209 (Chr(209): Ñ Character 210 (Chr(210): Ò Character 211 (Chr(211): Ó Character 212 (Chr(212): Ô Character 213 (Chr(213): Õ Character 214 (Chr(214): Ö Character 215 (Chr(215): × Character 216 (Chr(216): Ø Character 217 (Chr(217): Ù Character 218 (Chr(218): Ú Character 219 (Chr(219): Û Character 220 (Chr(220): Ü Character 221 (Chr(221): Ý Character 222 (Chr(222): Þ Character 223 (Chr(223): ß Character 224 (Chr(224): à Character 225 (Chr(225): á Character 226 (Chr(226): â Character 227 (Chr(227): ã Character 228 (Chr(228): ä Character 229 (Chr(229): å Character 230 (Chr(230): æ Character 231 (Chr(231): ç Character 232 (Chr(232): è Character 233 (Chr(233): é Character 234 (Chr(234): ê Character 235 (Chr(235): ë Character 236 (Chr(236): ì Character 237 (Chr(237): í Character 238 (Chr(238): î Character 239 (Chr(239): ï Character 240 (Chr(240): ð Character 241 (Chr(241): ñ Character 242 (Chr(242): ò Character 243 (Chr(243): ó Character 244 (Chr(244): ô Character 245 (Chr(245): õ Character 246 (Chr(246): ö Character 247 (Chr(247): ÷ Character 248 (Chr(248): ø Character 249 (Chr(249): ù Character 250 (Chr(250): ú Character 251 (Chr(251): û Character 252 (Chr(252): ü Character 253 (Chr(253): ý Character 254 (Chr(254): þ Character 255 (Chr(255): ÿ اقصد هذا الحرف : þ في الحالات المشابهه هل يجب علي اختبار جميع هذه الرموز الغريبة حتى اقع على الرمز الموافق ؟

وعليكم السلام ورحمة الله وبركاته 🙂 اشهر خير علينا ان شاء الله 🙂 لم ادخل في الموضوع ، ولكن من قراءتي السريعة ، اعتقد المشكلة في قراءة الاكسس للتاريخ !! يمكنك الاستفادة من هذا الرابط . او من طريقة اخونا الغائب الحاضر @Hawiii بتحويل التاريخ الى رقم :

لم تجب على تساؤلي :

أستاذ @مبرمج متقاعد فعلا الملف تم تحويله من صفحة انترنت الى اكسل ثم اكسس دزاك الله خيرا

السلام عليكم ورحمة الله وبركاته وبها نبدا ارفق ملف اخى

وعليكم السلام ورحمه الله وبركاته جرب هذا التعديل استبدل كودك بهذا الكود Option Explicit Sub GetData() Dim WhereToCopy As String, Col As String, CopyRange As String Dim dataWB As Workbook, currentWB As Workbook Dim WsData As Worksheet, WsResult As Worksheet, SH As Worksheet Dim FileName As String, lr As Long, i As Long Set currentWB = ThisWorkbook Set WsData = currentWB.Worksheets("List") Application.ScreenUpdating = False Application.EnableEvents = False For i = 2 To WsData.Cells(Rows.Count, 2).End(xlUp).Row FileName = WsData.Range("C" & i) & WsData.Range("B" & i) CopyRange = WsData.Range("D" & i) & ":" & WsData.Range("E" & i) WhereToCopy = WsData.Range("F" & i) Col = Mid(WsData.Range("G" & i), 2, 1) Set WsResult = currentWB.Sheets(WhereToCopy) Application.Workbooks.Open FileName, UpdateLinks:=False, ReadOnly:=True Set dataWB = ActiveWorkbook For Each SH In dataWB.Worksheets(Array("كشف", "بيانات اساسية")) ' هنا تحدد اسماء الشيتات المراد نسخها SH.Range(CopyRange).Copy lr = WsResult.Cells(Rows.Count, Col).End(xlUp).Row + 1 WsResult.Cells(lr, 1).PasteSpecial xlPasteValues, xlPasteSpecialOperationNone Application.CutCopyMode = False Next SH dataWB.Close False Next i Application.ScreenUpdating = True Application.EnableEvents = True End Sub

ما دامك مصر أنه الموضوع ما يحتاج مثال .. 🙂 استخدم هذا الكود على زر أمر بحيث تغير رابط الملف النصي وتغير اسم مربع النص اللي بيلصق النص فيه : Private Sub btnGetText_Click() ' Declare variables to hold the text from the online file and the textbox Dim strText As String Dim txtTarget As TextBox ' Set the URL of the online text file Dim strURL As String strURL = "http://www.website.com/text.txt" ' Use the XMLHTTP object to retrieve the text from the online file Dim objXMLHTTP As Object Set objXMLHTTP = CreateObject("MSXML2.XMLHTTP") objXMLHTTP.Open "GET", strURL, False objXMLHTTP.Send ' Check if the request was successful If objXMLHTTP.Status = 200 Then ' Get the text from the response strText = objXMLHTTP.responseText ' Get a reference to the textbox on the form Set txtTarget = Me.txtTextBox ' Put the text from the online file into the textbox txtTarget.Value = strText Else ' Show an error message if the request was not successful MsgBox "There was an error retrieving the text from the online file." & vbCrLf & _ "HTTP Status: " & objXMLHTTP.Status, vbExclamation End If ' Clean up Set objXMLHTTP = Nothing Set txtTarget = Nothing End Sub

السلام عليكم ورحمة الله وبركاته ارفق لكم محاولة بشكل عاجل (وبدون كواد) لعلها تناسب. واذا كان يمكن الكود فالأمر أسهل. منسدلة ديناميكة لمناديب دول وفروعها (1).xls

ان شاء الله احاول تكون الشروحات فيديو

طريقة عمل شاشة افتتاحية باسم مستخدم ورقم سري !! خطوة خطوة طريقة عمل شاشة ( فورم ) ادخال وترحيل واستعلام وتعديل !! خطوة خطوة طريقة عمل فورم فاتورة ووضع اكوادها وترحيلها واستدعائها وطباعتها !! خطوة خطوة طريقة عمل او استخراج كشف حساب بالاكواد بطريقة بسيطة !! خطوة خطوة طريقة عمل فورم بحث واظهار النتائج في ليست بوكس وتعديل النتائج !! خطوة خطوة ===================================================== ( مدخل في تعلم VBA اكسيل خطوة خطوة - 12 درس ) دورة شرح الفيجوال بيسك لبرنامج الاكسيل VBA .. !! خطوة خطوة ===================================================== قوائم بشكل جديد في الاكسيل .... تصلح للاستخدام في برنامجك .. بطريقة بسيطة كود اضافة ازرار باسماء الشيتات في الصفحة الرئيسية وزر للرئيسية في كل شيت فورم بسيط لاضافة شيت او عدة شيتات دفعة واحدة ... قائمة منسدلة متعددة الألوان - اختار لون الخلفية و الحروف لكل عنصر - أ / Jaafar Tribak هدية الجمعة : سورة ( الكهف ) في فورم ... معلومات .. قراءة .. فضائل ( لعبة مسابقات اوفيسنا ) علي الاكسيل - لعبة بسيطة من تصميمي .. تصلح لالعاب المسابقات العب مع الفورم ... حركة لطيفة وخفيفة .. واظهر قوة ملاحظتك !! ( لعبة الصورة المستخبية ) علي الاكسيل - لعبة بسيطة .. تصلح لالعاب المسابقات للاطفال استفتاء : ما افضل اصدار الاكسيل في ( اوفيس 2003 - 2007 - 2010 - 2013) هو ليس موضوع معادلات او اكواد ... ولكنه استفتاء فقط ... ولكني اعشق هذا الموضوع لاتنشرها جزاك الله خيراً ... ولا تجعل الملف يقف عندك .. انشره .. ادخل وستعرف !! علي الاكسيل ........... علي الباوربوينت

السلام عليكم ورحمة الله وبركاته الاستاذ والاخ العزيز حمادة عمر حفظك الله سبحانه وتعالى واعانك على عمل الخير اصبحت عنوانا من عناوين الاخلاص والوفاء وقضاء حاجات الناس في هذا الصرح الكبير زادك الله علما ورفعة واعلى مقامك في الدنيا والاخرة