البحث في الموقع

السلام عليكم. أنا أدين لهذا المنتدى بكل معرفتي المتواضعة جداً في الأكسس, ولطالما كان ملاذاً لي في حل كل المشاكل التي تواجهني, ودائما ما كنت أحصل على الحل من المشاركات السابقة, لكن المشكلة التي تواجهني لم أتمكن من إيجاد حل لها, وأنا طامع في أن تزودوني بالحل بأسرع ما يمكن. والمشكلة هي: يوجد عندي برنامج أساسي للفوترة إسمه "Host" ونفس البرنامج موجود مع شخصين مختلفين "User A, User B" وهذان الشخصان يقومان بإدخال بيانات الفواتير التي يقومون بها كل واحد على برنامجه, أريد أن أضع زر في برامج "User A, User B" لتصدير البيانات, وأن أضع في برنامج الـHost زر يُمكنه من إستيراد هذه البيانات المرسلة من قبل "User A, User B" والتي تكون على CD, مع مراعاة أن تتم زيادة البيانات الجديدة على البيانات السابقة في "Host" وتحديث البيانات السابقة التي طرأ عليها تغيير من قبل "User A, User B". مرفق نموذج صغير لهذه البرامج لتكون الفكرة واضحة وإن أمكن التعديل عليها برامج فوترة.zip

السلام عليكم ورحمة الله وبركاته الأخوة الأفاضل أقوم بعمل استيراد للبيانات من الاكسيل لجدول بيانات بقاعدة البيانات، يحتوى على رقم السجل (لايتكرر) والاسم والرقم القومى (يجب أن يحتوى على 14 رقم) وكود النوع عند الاستيراد تظهر رسالة تم الاستيراد بنجاح ولكن قد يكون هناك خطأ حيث لم يستورد جميع البيانات بسبب الشروط الموجوده على الجدول مثل : عدم تكرار رقم السجل أو ان الرقم الوقومى اقل أو اكثر من 14 رقم . أريد إظهار رسالة توضح للمستخدم أن الاستيراد قد تم ولكن هناك خطأ فى الحقل الفلانى (الذى لم يتم الاستيراد بسبب مخالفة الشرط عليه) أو لم يتم الاستيراد إذا لم يتم الاستيراد مطلقا، بمعنى رسالة توضح نوع الخطأ . ومرفق قاعدة بيانات وملف اكسيل للتجربة عليه ولكم جزيل الشكر والسلام عليكم ورحمة الله وبركاته Import from Excel.rar

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

الاخوة الكرام السلام عليكم ورحمة الله وبركاته برجاء المساعدة اذا اردنا ان نستورد اكثر من ورقة عمل من نفس ملف الاكسيل بمعني انه فرضا عندي 10 ورقات عمل واريد استيراد 6 ورقات عمل فقط فما هي الطريقة لعمل ذلك انا قمت بعمل COMBO-BOX يظهر اسماء ورقات العمل ويكون من النوع MULTI-VALUE لكي نتمكن من اختيار اكثر من ورقة عمل في نفس الوقت واستيرادهم كيف يمكن كتابة كود لهذا الامر الملف المرفق يمكن استيراد ملف اكسيل كامل ولكن انا اريد امكانية استيراد مجموعة ورقات عمل او شيتات او استيراد الملف بالكامل مرفق الملف excel to access.rar

السلام عليكم وكل عام وانتم بالف خبر بمناسبه قدوم رمضان الكود المرفق هو استيراد فايل اكسل الى الاكسس بكبسه من الفورم وشغال مثل الحلاوه اذا كان الجول غير موجود اما اذا كان الجدول موجود واريد استيراده مره اخرى فانه يضيفه على الجدول ويكون الجدول مكرر لذا اريد ان عمل الغاء للجدول الموجود بالاكسس قبل كبسه الاستيراد مرفق لكم الكود والداتا بيس ......... الرجاء التعديل على المرفق اذا ما فيها ازعاج Private Sub Command1_Click() Dim blnHasFieldNames As Boolean, blnEXCEL As Boolean, blnReadOnly As Boolean Dim lngCount As Long Dim objExcel As Object, objWorkbook As Object Dim colWorksheets As Collection Dim strPathFile As String, strTable As String Dim strPassword As String ' Establish an EXCEL application object On Error Resume Next Set objExcel = GetObject(, "Excel.Application") If Err.Number <> 0 Then Set objExcel = CreateObject("Excel.Application") blnEXCEL = True End If Err.Clear On Error GoTo 0 ' Change this next line to True if the first row in EXCEL worksheet ' has field names blnHasFieldNames = True ' Replace C:\Filename.xls with the actual path and filename strPathFile = "D:\test.xls" ' Replace tablename with the real name of the table into which ' the data are to be imported strTable = "test" ' Replace passwordtext with the real password; ' if there is no password, replace it with vbNullString constant ' (e.g., strPassword = vbNullString) strPassword = " vbNullString" blnReadOnly = True ' open EXCEL file in read-only mode ' Open the EXCEL file and read the worksheet names into a collection Set colWorksheets = New Collection Set objWorkbook = objExcel.Workbooks.Open(strPathFile, , blnReadOnly, , _ strPassword) For lngCount = 1 To objWorkbook.Worksheets.Count colWorksheets.Add objWorkbook.Worksheets(lngCount).Name Next lngCount ' Close the EXCEL file without saving the file, and clean up the EXCEL objects objWorkbook.Close False Set objWorkbook = Nothing If blnEXCEL = True Then objExcel.Quit Set objExcel = Nothing ' Import the data from each worksheet into the table For lngCount = colWorksheets.Count To 1 Step -1 DoCmd.TransferSpreadsheet acImport, acSpreadsheetTypeExcel9, _ strTable, strPathFile, blnHasFieldNames, colWorksheets(lngCount) & "$" Next lngCount ' Delete the collection Set colWorksheets = Nothing ' Uncomment out the next code step if you want to delete the ' EXCEL file after it's been imported ' Kill strPathFile End Sub Import.rar

الأخوة الأفاضل السلام عليكم ورحمة الله وبركاته بحثت فى المنتدى عن طريقة استيراد بيانات من ملف إكسيل إلى جدول بالأكسيس ووجدت والحمد لله مثال لحل هذه المشكلة (ومرفق الملف الخاص بها) وتم تنفيذه بنجاح. ولكنى وجدت أن الكود يحدد نوع إصدار واحد لمف الاكسيل إما xls أو xlsx ، فهل من طريقة أو إضافة على الكود تجعل الاستيراد من أى إصدار من الاكسيل؟؟ فأرجو المساعدة فى تنفيذ هذه الخطوة ولكم جزيل الشكر والتقدير والسلام عليكم ورحمة الله وبركاته استيراد بيانات.rar

مساعده لو سمحتو انا عندي جدول اكسل وعندي برنامج اكسس عايز من ضمن النموذج يوجد امر استيراد اذا ضغطنا على الامر يروح ماسح كل بيانات الجدول في اكسس ويضيف البيانات اللي في اكسل هل من الممكن لو سمحتو موظفين.rar

السلام عليكم و شكرا لكم على المنتدى الجميل الذى تعلمنا منه الكثير لدى ملف نصى اريد استيراد لاكسل عن طريق ماكرو او كود فى بى و لقد وجدت احدى المشاركات و قمت بالتجربه و بدا ان الكود يعمل و لكن لم تتم الفرحه لانى عندما قمت بحمايه الورقه توقف عن العمل هل من طريقه لتجاوز المشكله او نصيحه او توجيه الى اكواد اخرى لانى اريد استيرادها فى خانات معينه و ليس من اول الشيت علما ان الملف النصى كله تكست و ايضا عن نجاح الاستيراج يقوم بمسح لون الخلفيه ( !!!) لا ادرى لماذا شكرا جزيلا لكم ملاحظه وضع الملف النصى فى مسار سى درايف او تغير مكانه من الكود مرفق التجربه شكرا ----استيراد ملف.rar

السلام عليكم ورحمة الله وبركاته استيراد اسطر معينة من ملف نصي (مفكرة) بدلالة كلمات موجودة في اسطر الملف النصي وهو طلب لاحدهم جعلته هنا لتعم الفائدة http://www.officena....showtopic=43791 الكود : Option Explicit ''''''''''''''' ' اسم ملف النص Const tName As String = "QQQ.txt" ''''''''''''''''''''''''''''''' ' كلمة البحث عن سطر الكود كما هي في ملف النص Const S1 As String = "كود:" ''''''''''''''''''''''''''''''' ' كلمة البحث عن سطر الاجمالي كما هي في ملف النص Const S2 As String = "الأجــمــالي" ''''''''''''''''''''''''''''''' Sub kh_Import_Lines_of_TextFile() Dim MySplit Dim MyFile As String, MyText As String Dim iRow As Long '============================= ' مسح محتويات الجدول Range("A3:F14").ClearContents ''''''''''''''''''''''''''''''' ' tName الاسم الكامل لملف النص الموجود في مسار ملف الاكسل والذي تم تعيين اسمه في الثابت MyFile = ThisWorkbook.Path & ThisWorkbook.Application.PathSeparator & tName ''''''''''''''''''''''''''''''' ' اول صف لنقل البيانات iRow = 3 '============================= Application.ScreenUpdating = False '============================= Open MyFile For Input Access Read As #1 '============================= While Not EOF(1) Line Input #1, MyText ''''''''''''''' ' S1 اذا كان يحتوي السطر على الكلمة المعينة في الثابت If InStr(MyText, S1) Then ' معالجة السطر لاعطائنا الرقم فقط MyText = Mid$(MyText, InStr(MyText, S1)) MyText = Replace(MyText, S1, "") MyText = WorksheetFunction.Trim(MyText) Range("A" & iRow).Value = MyText End If ''''''''''''''''''''''' ' S2 اذا كان يحتوي السطر على الكلمة المعينة في الثابت If InStr(MyText, S2) Then ' معالجة السطر وتحويله الى اعمدة بالنص الرقمي المطلوب MyText = Replace(MyText, S2, "") MyText = WorksheetFunction.Trim(MyText) MySplit = Split(MyText) With Range("B" & iRow).Resize(1, UBound(MySplit) + 1) .Value = MySplit ' تحويل النص الرقمي في الخلية الى رقم .Replace ",", "." End With iRow = iRow + 1 End If ''''''''''''''''''''''' Wend Close #1 '============================= Application.ScreenUpdating = True '============================= End Sub المرفق ملف اكسل 2003-2007 ملف نصي + صورة استيراد اسطر معينة من ملف نصي.rar =========================================== المرفق الثاني امثلة لاستيراد وتصدير لجدول بيانات مرتب Dim MyCode As Double, MyCur As String, MyDate As Date Sub ExportRange() Dim r As Integer Open ThisWorkbook.Path & "\textfile.txt" For Output As #1 ''''''''''''''''''''' Do r = r + 1 With Range("B6") If Len(Trim(.Cells(r, 1))) = 0 Then Exit Do MyCode = .Cells(r, 1) MyCur = .Cells(r, 2) MyDate = .Cells(r, 3) End With ''''''''''''''''''''' Write #1, MyCode, MyCur, MyDate ''''''''''''''''''''' Loop ''''''''''''''''''''' Close #1 ''''''''''''''''''''' End Sub Sub ImportRange() Dim i As Integer Range("B6").Resize(1000, 3).ClearContents On Error GoTo 1 Open ThisWorkbook.Path & "\textfile.txt" For Input As #1 While Not EOF(1) Input #1, MyCode, MyCur, MyDate i = i + 1 ''''''''''''''''''''' With Range("B6") .Cells(i, 1) = MyCode .Cells(i, 2) = MyCur .Cells(i, 3) = MyDate End With '''''''''''''''''''' Wend Close #1 1: End Sub المرفق ملف اكسل 2003-2007 استيراد تصدير.rar