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

@ابا جودى

بماء انه يوجد تفاعل للموضوع سأقوم بشرح موجز عن ما صرحت به فمن الردود يتضح ان بعض الاخوة قد فهمي كلام خطأ ما قصدته انك تستطيع تنفيذ تصميمك على نماذج الاكسس بنسبة تصل الى 90 % على صفحات ويب كذلك كونك على علم باستخدام SQL في الاضافة و الحذف و التعديل فأنت مؤهل لاستخدام Microsoft Visual Basic الخطوة الأولى ( كيف يمكنني الاتصال بقاعدة البيانات من خلال صفحت الويب ؟؟؟ ) سوف اتحدث عن نفسي 1- قمت بانشاء حساب على موقع somee 2- انشأت قاعدة بيانات على نفس الموقع من نوع SQL و هو مجاني 3- قمت بتصدير قاعدة بيانات الاكسس على قاعدة البيانات في الموقع ** ملاحظة ( ليس من الضروري ان تقوم بانشاء قاعدة بيانات على نفس الموقع فأنت تستطيع ربط الصفحة بقاعدة بيانات الاكسس ) 4- بعد الانتهاء من اجراءات قاعدة البيانات ستجدون ادناه اكواد الاتصال بقاعدة البيانات استدعاء مكتبة الاتصال Imports System.Data Imports System.Data.SqlClient الاتصال بقاعدة البيانات Public con As New SqlConnection("Data Source=[اسم قاعدة البيانات على الموقع].mssql.somee.com;Persist Security Info=True;User ID="اسم المستخدم";Password= كلمة المرور") Public ds As New DataSet Public da As New SqlDataAdapter Public dt As New DataTable نبدء هنا بجلب و ارسال البيانات محاكاة انشاء صفحة تسجيل دخول x2= اسم الجدول x3= اسم العمود في الجدول و النفترض - اسم المستخدم x4= اسم الحقل في الصفحة - اسم المستخدم x5= اسم الحقل في الصفحة - كلمة المرور x4= اسم العمود في الجدول و النفترض - كلمة المرور da = New SqlDataAdapter("SELECT * FROM X2 WHERE X3='" & 4X.Text & "' AND X5='" & X6.Text & "' ", con) da.Fill(dt) اذا كان عدد السجلات التي تم جلبها في جملة الاستعلام اعلاه هو 1 If da.Fill(dt) = 1 Then قم بجلب البيانات ... البيانات التي سيتم تمريرها بين صفحات الويب مثال لجلب اسم المستخدم الذي تم تسجيل الدخول به dt(0)("User") لتمرير اسم المستخدم بين الصفحات Session("USERNAME") = dt(0)("User") Else Labe.Text = "اسم المستخدم او كلمة المرور خطأ" End If اعزائي بما انكم قادرين على التعامل مع SQL و اكواد الاكسس فلن تجد صعوبة في انشاء موقع الكتروي و بصورة سهلة جدا من اراد البدء في انشاء اول موقع الكتروني فاليبادر بانشاء موضوع جديد و البدء في الاستفسار كيف تبدء 1- قم بتثبيت Microsoft Visual Basic ( ان حاليا استخدم الاصدار 2012 ) 2- قم بانشاء حساب على الموقع اعلاه somee

أسأل الله العظيم رب العرش العظيم ان يشفيه

بشمهندسنا ومروض اكسس / @ابا جودى الحمد لله علي سلامتك والله المنتدي كان ينقصه حضورك الدائم وكلماتك العذبة واني والله كنت احس بانك بعافية ، شفاك الله وعفاك

أذهبالبأسربّالنّاس،واشفِوأنتالشّافي،لاشفاءإلّاشفاؤك،شفاءًلايغادرسقماً،أذهبالبأسربّالنّاس،بيدكالشّفاء،ولاكاشفلهإلّاأنتياربّالعالمين،اللهمّإنّيأسألكمنعظيملطفك،وكرمك،وستركالجميل،أنتشفيهوتمدّهبالصّحةوالعافيةوكلمريضياربالعالمين

لابس عليك ولله يقومك بالسلامه

الف حمد لله على السلامة

السلام عليكم ورحمة الله وبركاته لقد أنشأت برنامج بسيط وجمعت به الأكواد التي نسنتخدمها باستمرار وصممته بحيث تكون الواجهة عبارة عن شاشة يتم تجميع بها الأكواد المراد نسخها الي شاشة الفيجوال بيسك لمشاهدة كيف يعمل البرنامج من هذا الرابط بنك الأكواد - demo-24-4-2019.accdb

تحويل pdf الي اكسيل و العكس بدون برامج | PDF to Excel Converter نتناول في هذا الدرس طريقه احترافيه في تحويل ملف pdf الي اكسيل بدون برامج و تدعم اللغه العربيه حيث ان معظم برامج تحويل pdf لا تدعم اللغه العربيه https://www.youtube.com/watch?v=xS8dN6XSIbM وهذا هو ملف العمل لإكتمال الإستفادة PDF to Excel Converter.xlsm

السلام عليكم ورحمة الله وبركاته منذ فترة تبادر الي ذهني سوال عند تصميم برنامج مثلا سوبر ماركت بالاجل عندما تنشا صحفحة للعميل وتبدا بعملية التسجل ومعروف ان السحب تكون يومية تقريبا ويصل سحب عميل في المتوسط 50 جنيها يوميا اي يصل 1500 جنيها شهريا عند هذا الحد لا توجد مشكلة لان العميل يريد ان يستعلم عن سحبه وعطيه التقريرمثلا سحبك 1500 جنيها اوالسداد 1200 باقي 300 جنيها لكن المشكلة عند مرور اعوام وهو يريد استعلام عن جملة السحب وجملة السداد طيب انت ستقوم بالاستعلام تقول له سحبك 400 الف مثلا وانت سددت 350 الف باقي 50 الف جنيها طبعا ربما العميل لا يدرك نظام الاكسس سوف يقول لك ازاي 400 الف سحب و350 سداد انا مالي ومال السنوات السابقه انا عاوز السنة الحاليه باختصار انا بتكلم صح ولا هناك شئ غير ذلك وان كان كلامي صح هل يوجد حل او كلامي خطا توجد استراتيجية اخري يسير عليها المبرمجون منعا لمثل هذه الامور

الله يقومه بالسلامة الاستاذ محمد من خيرة الزملاء علما وادبا

فورم بحث وانتقال للاسم المختار الفيديو الصور

بالفعل تم التجربه والملف رائع جدا تسلم ايديك وتستاهل اكثر من ذلك ( اللهم إني أستودعتك شخص بعيد عن عيني قريب من قلبي اللهم إني أستودعتك راحة باله وسعادته وضحكته بحجم سمائك السابعه اللهم أرزق قلبه الراحة والطمأنينة والفرح والامان اللهم اجعل له بكل خطوة يخطيها في حياته توفيق ونجاح وتيسير اللهم قل لأمنياته وأحلامه كن فتكون )

يمكنك استعما ل هذه المعادلة ( اشارة = في الاول و القوس في النهاية ) كل الحق على اللغة العربية =IF(COUNTIF($B$1:$B1,$B1)>1,"",$B1)

Option Explicit Sub Keep_the_first() With Sheets("ورقة1") Dim i, arr() Dim lr%: lr = .Cells(Rows.Count, 2).End(3).Row .Range("i1").Resize(lr).ClearContents ReDim arr(1 To lr) For i = 1 To lr If Application.CountIf(.Range("B1" & ":B" & i), .Range("B" & i)) = 1 Then '============================= arr(i) = .Range("B" & i) Else arr(i) = vbNullString End If Next .Range("I1").Resize(UBound(arr)) = _ Application.Transpose(arr) End With Erase arr End Sub الملف مرفق Hani.xlsm

اتفضل xxx.rar

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

تفضل هذا الكود يقوم بنسخ القاعدة بالكامل مع النماذج و كل شئ 'تم وضع اسم المجلد الخاص بك فقط انسخ الكود و الصق Dim MyFile, DstFile As String Dim Syso As Object On Error GoTo ErrH MyFile = CurrentProject.FullName DstFile = CurrentProject.Path & "BackUp\Backup-" & Format(Date, "dd-mm-yyyy") & ".accdb" DBEngine.Idle Set Syso = CreateObject("Scripting.FileSystemObject") Syso.copyfile MyFile, DstFile Set Syso = Nothing Name DstFile As DstFile & ".ptc" DBEngine.CompactDatabase DstFile & ".ptc", DstFile Kill DstFile & ".ptc" MsgBox "تم انشاء قاعدة البيانات بنجاح" & vbNewLine & "Database successfully created" & vbNewLine & vbNewLine & "" & "اسم قاعدة البيانات" & vbNewLine & "The name of the database" & vbNewLine & "" & vbNewLine & "Backup-" & Format(Date, "dd-mm-yyyy") & vbNewLine & vbNewLine & "" & "مسار القاعدة الجديدة" & vbNewLine & "Path of the new rule" & vbNewLine & "" & vbNewLine & DstFile, vbOKOnly, "emphasis" & "/" & "تاكيد" Exit Sub ErrH: Select Case Err.Number End Select

جزاك الله خير نعم هذا المطلوب اضفت علية UnLoad Me لإخفاء الفورم

جرب هذا الملف التسميات ( ..... RG_1,RG_2) تجدها داخل الملف Named Range الماكرو المستعمل Sub fil_table() Dim i%, t%, k% Dim MAIN_RG As Range Set MAIN_RG = Range("B9:F16") Dim VAR_RG As Range Set VAR_RG = Range("B7:F7") Dim RG_Saech As Range Dim My_MATCH As Range Dim COL% Range("B9:F16").ClearContents For k = 1 To 5 Select Case k Case 1 Set RG_Saech = Sheets("جدول عام").Range("RG_1") Case 2 Set RG_Saech = Sheets("جدول عام").Range("RG_2") Case 3 Set RG_Saech = Sheets("جدول عام").Range("RG_3") Case 4 Set RG_Saech = Sheets("جدول عام").Range("RG_4") Case 5 Set RG_Saech = Sheets("جدول عام").Range("RG_5") End Select For i = 9 To 16 t = i - 8 Set My_MATCH = RG_Saech.Rows(t) COL = Sheets("جدول عام").Range("b6:Z6").Find(Sheets("جدول فردي").Range("F6")).Column MAIN_RG.Cells(t, k) = Intersect(My_MATCH, Sheets("جدول عام").Cells(6, COL).Resize(62)) Next Next End Sub الملف مرفق OUSTAZ.xlsm

بوركت استاذ حسين كود رائع جعله الله فى ميزان حسناتك ورحم الله والديك وغفر الله لك ووسع الله فى رزقك

تفضل اخي كود ترحيل الفاتورة.xlsm

السلام عليكم أساتذتى وإخوانى وأحبابى فى المنتدى :- ******************************************** مع كل شىء جديد فى الأكسل أصل إليه أحب أن أقدمه للمنتدى الذى تعلمت منه وفيه كرد للجميل الذى وهبنى إياه من قبل باختصار لو عندى 3 ملفات اكسل ( أ و ب و ج ) نقدر ننقل بيانات من ( أ ) إلى ( ج ) بدون فتح ( أ ) ولا فتح (ج ) ( انجليزى ده يا مرسى ؟؟؟؟ ) لأ مش انجليزى ولا ألمانى ولا حتى يابانى أو أمريكانى إنما هو مصرى خالص ووصعيدى كمان والمرفق التالى يوضح ذلك . طريقة التعامل مع المرفق : فك الضغط عن المرفق هتلاقى 3 ملفات mokhtar1 و mokhtar2 و mokhtar3 1- افتح mokhtar1 واكتب ما يبدو لك فى المدى المحدد ( A1 : C5 ) واقفله 2- رووووح على mokhtar2 فقط اضغط الزر " اقفل يا سمسم " 3- اجرى بسرعة على mokhtar3 وشوف النتيجة . الشرح والأكواد فى المرفق 123 كلمة سر الفيجوال بيسك . أكتفى بهذا الموجز وعلى حضرتك اكتشاف المزيد فى الملف . تحياتى لأساتذتى وزملائى copy data from a closed excel file & paste it in a closed excel file by mokhtar.rar

تم معالجة الأمر الماكرو لا يعمل اذا لم يكن الفلتر موجوداً أو اذا لم تكن الورقة الاولى هي النّاشطة بعد تنفيذ الماكرو تمسح البيانات التي تم نقلها من الورقة الاولى Sub Salim() If ActiveSheet.Name <> "Sheet1" Or _ Sheets("sheet1").AutoFilterMode = False Then Exit Sub If Sheets(1).[c4] = vbNullString Then Exit Sub Dim lr%, lr1% lr = Sheets(1).Range("a" & Rows.Count).End(xlUp).Row If lr <= 5 Then MsgBox "No Data to Transfer", 64 Exit Sub End If lr1 = Sheets(Sheets(1).[c4].Value) _ .Cells(Rows.Count, 1).End(3).Row + 2 If lr1 = 7 Then lr1 = 6 Sheets(1).Range("a6").Resize(lr - 5, 14).SpecialCells(12) _ .Cut Sheets(Sheets(1).[c4].Value).Range("a" & lr1) Sheets(1).Range("a6").Resize(lr - 5, 14).SpecialCells(4).EntireRow.Delete Sheets("sheet1").AutoFilterMode = False End Sub الملف من جديد Tarhil_by_filter.xlsm

أبدأ بحمد الله أولا وأخيرا على ما انعم ووفق وأصلي واسلم على الرحمة المهداة والسراج المنير نبينا محمد وعلى آله وصحبه وسلم ... وبعد في أحدي الموضوعات علي منتدانا الكريم وفي موضوع لاحد الأخوة بطلب برنامج ليتمكن من ادارة الأشتراكات الشهرية (اشتراكات DSL - كروت - توزيع شبكات انترنت او شبكات الكابل التلفزيوني ) وما الي ذلك من الاشتراكات التي تحتاج لمتابعة شهرية علي انتهاء صلاحية اسم المستخدم مثلا او متابعة حركة السداد المختلفة لذلك وفقني الله سبحانه وتعالي لتلك الفكرة بعمل برنامج يقوم بمتابعة تلك الاشتراكات الشهرية ومتابعة سداد وعمل وطباعة تقارير عن المديونية والمبيعات وكشف حساب للعميل وما الي ذلك من العمليات التي يمكن ان يحتاجها المستخدم لادارتها وكذلك ادخال اغلبية البيانات تلقائيا كرقم ايصال السداد مسلسل العميل تاريخ نهاية الاشتراك وادعو الله سبحانه وتعالي ان اكون وفقت في البرنامج وان يكون فيه النفع ويمكن تطويع البرنامج ليتلائم مع ادارة المشروعات الفردية الصغيرة ايضا ولا تنسونا من دعوة صالحة في ظهر الغيب بصلاح الحال ناتي لشرح بعض خصائص البرنامج المختلفة أترككم لتجربة البرنامج في المرفقات وارحب بمشاركتكم في اجراء اية تعديلات وفقنا الله واياكم للصالحات مع تحياتي // ضاحي الغريب Manage Subscriptions By Dahy al Gharieb.rar

عدد الصفوف في الفورمة حسب اكبر قيمة للتسلسل في النطاق A7:A10 Sub kh_Trheel() Dim ShName As String Dim Lr As Long Dim c As Integer, Cont As Integer ' استخراج رقم الشهرلاستخدامة لاسم الورقة ShName = Month(Range("C1")) ' A7:A10 عدد الصفوف في الفورمة حسب اكبر قيمة للتسلسل في النطاق Cont = WorksheetFunction.Max(Range("A7:A10")) Application.ScreenUpdating = False On Error GoTo 1 With Worksheets(ShName) ' آخر عمود في الصف الاول لورقة الشهر زايدا واحد c = .Cells(1, .Columns.Count).End(xlToLeft).Column + 1 ' نقل التاريخ واسم الكورس وغيره في الصفوف الاربعة الاولى .Cells(1, c).Value = Range("C1").Value .Cells(2, c).Value = Range("K1").Value .Cells(3, c).Value = Range("K2").Value .Cells(4, c).Value = Range("K3").Value ' آخر صف في العمود الاول لورقة الشهر زايدا واحد Lr = .Cells(.Rows.Count, "A").End(xlUp).Row + 1 ' نقل التاريخ في الصفوف الاربعة في العمود الاول .Range("A" & Lr).Resize(Cont, 1).Value = Range("C1").Value ' نسخ الجدول Range("B7:L7").Resize(Cont).Copy ' لصق الجدول .Range("B" & Lr).PasteSpecial xlPasteValues End With Application.CutCopyMode = False ' مسح الجدول kh_Clear 1: Application.ScreenUpdating = True End Sub ' كود المسح بدون مسح المعادلات Sub kh_Clear() On Error Resume Next Range("A7:L10").SpecialCells(xlCellTypeConstants).ClearContents Range("K1:K4").ClearContents On Error GoTo 0 End Sub

السلام عليكم اخي و استاذنا محمد طاهر بارك الله فيك و جزاك الجنة واذن لي بالمشاركة واتمني ان اكون قد فهمت المطلوب ايضا حاولت رفع ملف الي المنتدي و لم استطع ذلك لا اعرف من اين المشكلة هل من المنتدي ام من عندي اخي leprince2007 قم بفك الملف المرفق بالكامل في اي مكان افتح الملف الذي اسمه 2.xls اضغط علي زر انقل البيانات يوجد شرح بداخل الملف و الكود المستحدم هو Sheets("data").Range("A1:f1000") = "" m = ThisWorkbook.Path & "\" & "1.xls" Set wb = Workbooks.Open(m, True, True) For Each cell In Sheets("sheet1").Range("A1:f1000") If cell <> "" Then n = cell.Address If cell.HasFormula Then m = cell.Formula Windows("2.xls").Activate Sheets("data").Range(n) = m Else m = cell.Value Windows("2.xls").Activate Sheets("data").Range(n) = m End If End If Next Windows("1.xls").Activate Application.DisplayAlerts = False ActiveWorkbook.Close Application.DisplayAlerts = True علما بان نقل البيانات يتم علي الخلايا اذا كان بها بيانات او معادلات عموما هذا رابط للملف نقل البيانات من ملف اخر.rar