mostafaatiya

عندي اي قاعدة بيانات بفتاحها واشتغل عليها تتقل وتغلق لوحدها وتعمل نسخة تانيه منها وجنب اسمها Backup

ديما كل ما افتح قاعدة بيانات تعمل كده 

10 ساعات مضت, عمر ضاحى said:

هذا امرها سهل

كل ما عليك اضافة هذه الكود قبل كود الاستيراد 

On Error Resume Next
DoCmd.SetWarnings False
DoCmd.RunSQL ("delete * from NameOfTable")
DoCmd.SetWarnings True

وان شاء الله تتحل المشكله التكرار

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

حتى لا يحدث تكرار

شكرا لحضرتك تمت الفائدة ربنا يجعله في ميزان حسناتك

7 ساعات مضت, kanory said:

لا يعمل .... يعني لا يعطي ولا رسالة خطأ ؟؟؟

اعرض لنا فحوى الرسالة حتى نعرف !!!

شكرا استاذي الفاضل علي متابعه حضرتك 

حين اقوم باستيراد البيانات من الاكسل لن يقوم باستيراد البيانات ولا يقوم بسحبها وتبقي الجداول فارغة 

5 ساعات مضت, عمر ضاحى said:

هذا الكود حصلته من الاخوة واساتذتي هنا وهو يعمل جيدا 

    
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 = False

' Replace C:\Filename.xls with the actual path and filename
strPathFile = Me.txtPath    ' "C:\Filename.xls"

' Replace tablename with the real name of the table into which
' the data are to be imported
strTable = "CodeGenerator" '"tablename"

' Replace passwordtext with the real password;
' if there is no password, replace it with vbNullString constant
' (e.g., strPassword = vbNullString)
strPassword = vbNullString  '"passwordtext"

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


'---------------------------------
'   importing is finished

 

شكرا استاذي الفاضل الكود يعمل بشكل سليم ولكن يقوم بتكرار البيانات حين تشغيل الكود وسحب البيانات

للاسف الكود لا يعمل

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

موجود بالمثال كود يقوم باستيراد بيانات الطلاب من ملف اكسل والحقها بجدول داخل الاكسس

المثال المرفق لا يقوم باكثر من استيراد عمودين فقط من ملف الاكسل ولكن انا محتاج يقوم باستيراد 5 اعمدة من ملف الاكسل والحقهم بملف الاكسس 

ومرفق ملف الاكسل مع المثال 

ولكن حولت التعديل ولكن لم افلح 

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

مثال استيراد البيانات.rar

12 ساعات مضت, ابو جودي said:

اتفضل يا سيدى 

 

ID NATIONALITY.mdb 480 kB · 3 downloads

بارك الله فيك اخي ابو جودي وجزاك الله خيرا

1 ساعه مضت, Eng.Qassim said:

ماهو الهدف من ذلك رجاء؟

حتي مكنني وضع الرقم القومي بهذا الشكل 
 

6 دقائق مضت, Moosak said:

ضع الفاصلة المنقوطة ( ; ) بدل الفاصلة ( , )

شكرا لحضرتك تم واشتغلت جزاكم الله عنا كل خير

20 دقائق مضت, ابو جودي said:

على كل فى الاستعلام قم بوضع الدالة الاتية 
مع تغيير  FldName  باسم الحقل الذى يحتوى على الرقم القومى

Mid([FldName],1,1)

الرقم الثانى

Mid([FldName],2,1)

الرقم الثالث
 

Mid([FldName],3,1)

وانت كمل ..... 

شكرا لمتابعة حضرتك 
فكرة تفرغ الرقم لوضعها بالشكل الموضح بالصورة 

وحولت استخدم الداله للاسف لم افلح في تعينها 

ولن تعمل

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

محتاج داله استعلام لتفريغ الرقم القومي الي عدة حقول 

يعني مثلا الرقم القومي بيكون ( 29101011800586 )

محتاج داله تفرغ الرقم الي اكتر من حقل يعني مثلا 2 حقل 9 حقل 1 حقل 0 حقل وهكذا 

وشكرا لكم 

تم ايجاد الحل في هه المشاركة 

وكان الموضوع خاص بي وكان لطلب كهذا 

شكرا لكم 

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

يوجد بالملف شاشة رئسية بها رساله تنبيه بمعاد الدفع 

وفي حاله وجود مستحقات يتم العد 1 او 2 او 3

انا محتاج تكون زي اللي في الصورة وعند الضغط عليها يفتح نموذج المستحقات 

رساله تذكير 2بمعاد الدفع.accdb

في تشغيل الشاشة بيتم تغير الكلمة والعدد بين لونين الاحمر والاصفر للفت انتباه المستخدم ان فيه مستحقات وجب تحصيلها

18 ساعات مضت, king5star said:

ستجد ما تتمنى هنا ان شاء الله .

شكرا لحضرتك

مفيش طريقة حماية للبرنامج من النسخ علي اجهزة اخري 

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

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

وربنا يجزيك عنا كل خير

3 ساعات مضت, د.كاف يار said:

حمل الاوفيس 2016 و انصحك تحمله من اكاديمية سيجما راح تحصلها مفعلة و كاملة

اشكرك استاذ وبارك الله فيك وجعله في ميزان حسناتك قمت بالبحث علي الانترنت عن حل المشكلة 

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

كان عند تحديد مكتبة (Microsoft Excel 14.0 Object Libeary)

كان يظهر معي هذا الخطأ (Name conflicts Woth existing module project or Object Libeary)

وكانت الترجمه (يتعارض الاسم مع مشروع الوحدة النمطية الموجود أو مكتبة الكائنات)

وذلك لوجود مكتبة كان قد تم اختيارها من قبل ولذلك كان لا يقبل اختيار مكتبة (Microsoft Excel 14.0 Object Libeary) لانه كان يتعارض معها 

والان الكود يعمل علي اوفيس 2010 ولا يوجد به اي مشاكل ولكن كان الخطا مني انا

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

11 دقائق مضت, د.كاف يار said:

طيب جرب هذا

 

تصدير اكسل.zip 39.95 kB · 1 download

المشكلة هيا هيا ومشتغلش انا بعتذر لحضرتك لتعبك معايا

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

الان, د.كاف يار said:

هل المشكلة في نفس الملف او بعد نقل العمل الى الملف الاصلي ؟

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

5 دقائق مضت, د.كاف يار said:

اضف المكتبة

قمت باضافة كل المكتبة التي تحتوي علي مايكروسوفت اكسل ولكن لن افلح وللعم انا اعمل علي اوفيس 2010

10 دقائق مضت, د.كاف يار said:

تفضل هذا التعديل بدون التقييد بتصميم الأكسل

و على نفس التصميم

 

 

 

تصدير اكسل.zip 58.07 kB · 0 downloads

يظهر امامي هذا الخطأ 

وهل يتم التصدير من خلال التقرير 

وشكرا لمتابعه حضرتك وتعبك وجزاك الله كل خير

طيب هل من الممكن ارسال بيانات من استعلامين

يعني مثلا في الاستعلام الاول هيتم تصدير البيانات ( الاسم - الرقم القومي - المادة - الصف - محل الميلاد - رقم التليفون - المجموع)

وفي استعلام تصدير اخر يتم تصدير ( تاريخ _ الميلاد _ الفصل _ العنوان )

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

وفي الاستعلام الاخر يتم تصدير البيانات في الصف الفارغ 

الصف اللي لونة اصفر ده هيكون التصدير 1 من الاستعلام الاول

والفارغ هيكون من الاستعلام تصدير2

هل ممكن عمل ذلك

تصدير2.rar

متابعة

up

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

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

ومرفق صورة توضيحية وملف الاكسس به التقرير وملف اكسل به نفس التصميم واللي هيتصدر اليه التقرير

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

تصدير اكسل.rar

بارك الله فيك اخ ناقل بالفعل هذا ما اريده 

واتوجه بالشكر والتقدير لاستاذي د كاف يار علي تعبه ومتابعه للوصول لحل امثل 

واشكر الاخ الفاضل ابو محمد عبدالله علي متابعه للموضوع 

جزاكم الله خيرا وجعله الله في ميزان حسناتكم 

بارك الله فيكم اجمعيا