بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'vbacode'.
تم العثور علي 6 نتائج
-
هدية : اكواد اكسس السلام عليكم ورحمة الله وبركاته اليكم هذه الهدية الصغيرة الحجم وكبيرة المنفعة ( باذن الله ) راح يساعدكم في عملكم http://codevba.com/ وهذه صورة لشريط الاكواد وهذه هو الملف codevba.zip وشكرا لاستاذنا جعفر على ادراج الرابط لكي لا يخالف الملكية الفكرية
- 18 replies
-
- 12
-
-
-
- vbacode
- مساعد اكواد برمجة اكسس
- (و2 أكثر)
-
السلام عليكم ورحمة الله اساتذتنا واخواننا في هذا المنتدى تحية لكم ارجو مساعدتي في خطاء برمجي عند الضغط على زر السكنر تظهر لي هذه الجملة (Type mismatch) Private Sub أمر166_Click() On Error Resume Next Dim y y = [dd] & "\" & [رقم الطلب] Dim fs As Object Dim q As Object Set fs = CreateObject("Scripting.FileSystemObject") If fs.FolderExists(y) = True Then Else Set q = fs.Createfolder(y) End If Dim hg, OldFile, DBwithEXT Dim fdialog As Office.FileDialog Dim filepath As String Dim sdialog As New WIA.CommonDialog Dim imagefile As WIA.imagefile On Error GoTo errorhandle Set fdialog = Application.FileDialog(msoFileDialogSaveAs) OldFile = Me.x DBwithEXT = Dir(OldFile) hg = y & "\" & [a] & " " & [b] & " " & Format([c], "yyyy-mm-dd") & " " & [d] & "." & Right(DBwithEXT, 3) With fdialog .Title = "Save as" .AllowMultiSelect = False .InitialFileName = [hg] If .Show Then filepath = .SelectedItems(1) ' Else Exit Sub End If Set imagefile = sdialog.ShowAcquireImage() imagefile.SaveFile filepath [ImagePath] = filepath End With errorhandleexit: Exit Sub errorhandle: MsgBox Err.Description Resume errorhandleexit End Sub
-
سلام عليكم اخواني ... في هذا الفيديو نشرح كيف تحمي اكسس في مشروعاتك بدون كود فيجوال بيسك طريق سهل جدا https://www.youtube.com/watch?v=1AvCOO_ee4M
-
السلام عليكم عدد الفصول فى كل صف يختلف من عام لآخر مثلا الصف الأول فى العام الماضى كان 4 فصول هذا العام صار 5 فصول هل يمكن إدراج مربع نص للتقرير حسب الحاجة بحيث لو كان العدد 4 فصول يتم إدراج 4 فصول وإذا كان العدد 5 فصول يتم إدراج 5 فصول طبعا كل هذا بالكود ما اقتراحاتكم لتنفيذ ذلك والتقرير هو عبارة عن ميزانية مدرسة فى أعوام مختلفة
-
Version 1.0.0
1,668 تنزيل
السلام عليكم ورحمة الله وبركاته اليكم هذه الهدية الصغيرة الحجم وكبيرة المنفعة ( باذن الله ) راح يساعدكم في عملكم- 6 تعليقات
-
- 5
-
-
-
- مساعد اكواد برمجة اكسس
- codevba
- (و2 أكثر)
-
السلام عليكم السلام عليكم و رحمة الله عودة مرة أخرى إلى شروح الفديو كنت قبل فترة طويلة قد أعددت شروح فيديو خاصة بالإكسيل وقد لاقت أيامها استحسانا كبيرا حيث كانت شروح الفيديو أيامها قليلة جدا باللغة العربية و نظرا لانتقال الاهتمام إلى الأكسيس فقد توقفت عن عمل شروح إكسيل و أحجمت فى نفس الوقت عن عمل شروح أكسيس لأنى كنت و مازلت فى مرحلة الابتداء و هأنذا أقوم برفع بعض الفديوهات لشرح موضوعات بسيطة جدا فى الأكسيس و هى و إن كانت بسيطة جدا بالنسبة للكثيرين منكم إلا أنها مطلوبة لكثير من المبتدئين و ذلك لأننى جربت ذلك من قبل و إن شاء الله أقوم برفع فديوهات أخرى حسب التيسير و أعتذر منكم أننى صممت عل رفع هذا الفديو رغم انقطاع الصوت فيه لأننى رغبت أن أبدأ فقط و البداية دائما صعبة يتضمن الفديو 3 طرق لفتح النموذج من داخل نموذج بالماكرو و بزر جاهز أيضا بالماكرو و أخيرا بالكود بسيط جدا جدا لكن أهميته بالنسبة لى أنه البداية
