دروب مبرمج
-
Posts
215 -
تاريخ الانضمام
-
تاريخ اخر زياره
-
Days Won
4
3 متابعين
عن العضو دروب مبرمج
- تاريخ الميلاد 04 ماي, 1999
اخر الزوار
2,142 زياره للملف الشخصي
-
ماشاء الله لا قوة الا بالله التصميم و الفكرة كلها خارجة عن المألوف اسلوب جديد و احترافي في التصاميم
-
تفضل التعديل Lab5.zip
-
تفضل التعديل تم اصلاح حذف الملفات تم اصلاح حذف المجلد في حال كان فارغ Lab4.zip
-
تفضل التعديل LAB33.zip
-
كيف اكتب دالة DCOUNT او DELCOOP او DSUM فى استعلام بطريقة صحيحة
دروب مبرمج replied to jo_2010's topic in قسم الأكسيس Access
تفضل التعديل JO.accdb -
الافضل اخفي الفورم مرفق التعديل Control_Up_bar_Form_On_Ms_Access_V1.accdbControl_Up_bar_Form_On_Ms_Access_V1.zip
-
تفضل هذه بعض الاكواد قد تجد بها ضالتك Dim conn As ADODB.Connection Dim rs As ADODB.Recordset Dim strConnString As String strConnString = "Provider=SQLOLEDB;Data Source=Server_Name;Persist Security Info=True;User ID=Your_UserName;Password=Your_Password;" Set conn = New ADODB.Connection conn.Open strConnString Set rs = conn.Execute("SELECT * FROM TabolName") If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) TextBox1= rs.Fields(0).Value rs.MoveNext Wend End If rs.Close Set rs = Nothing مع اضافة المكتبة
-
كيف اكتب دالة DCOUNT او DELCOOP او DSUM فى استعلام بطريقة صحيحة
دروب مبرمج replied to jo_2010's topic in قسم الأكسيس Access
اخي العزيز تفضل التعديل JO.accdb
-
في البداية لا يجب حفظ المسار كامل في قاعدة البيانات و مع ذلك هذه ليست مشكلة سوف نقوم بالإعلان عن ثلاث متغييرات لغرض تخزين اسم المجلد و مسار الملف Dim strPath As String, fileName As String, sFile As String و هنا سنقوم بإستخلاص اسم المجلد لكل مسار في قاعدة البيانات strPath = DLookup("[Attachment_Path]", "[tbl_AttachmentList]", "[Attachment_NO]=" & MyList.Column(0)) و هنا سنقوم بإستخراج اسم الملف من المسار المخزن في قاعدة البيانات fileName = Right$(strPath, Len(strPath) - InStrRev(strPath, "\")) و الآن نقوم بجمع النتائج اعلاه في مسار واحد sFile = CurrentProject.Path & "\MY_Files\" & P_NAMES.Column(1) & "\" & fileName و الآن سنقوم بإضافة المسار الجديد للمستعرض [Forms]![Attacheds]![Show_Files]![MY_PDF].ControlSource = "=""" & sFile & """" و النتيجة تفضل التعديل LAB2.zip
-
تفضل هذا التعديل البسيط Database4.zip
-
تفضل هذا التعديل البسيط البحث وتعديل درجات8.zip
-
تفضل هذه الفكرة فكرة قوائم.zip
-
المطلوب تمكين كافة النماذج الفرعية من العمل داخل النموذج الرئيسي
دروب مبرمج replied to Md Sy's topic in قسم الأكسيس Access
النموذج sub1 مرتبط بإستعلام جدولي لا يمكن التعديل على البيانات اثناء الاستعلام اقترح بأن تستخدم جمل الاضافة لإضافة البيانات للجداول المرتبطة sub2 و sub3 قم بتشغل اذونات التحرير مرفق النموذج بعد التعديل up_ChangeSubForm.mdb
-
انشئ نموذج جديد وا ضف فيه مستعرض ويب و في حدث عند النقر على قائمة الملفات ضع الكود التالي Dim wb As Object Set wb = WebBrowser0.Object ' ضورة اضافة اسم عنصر التحكم لمستعرض الويب Dim filelocation As String filelocation = "C:\Users\File1.pdf" ' ضع هنا اسم عنصر التحكم الذي يحتوي على اسم الملف لعرضه wb.silent = True With wb .navigate2 "about:blank" Do Until .ReadyState = 4 DoEvents Loop .Document.Open .Document.write "<!doctype html><html><head><title>my title</title></head><body scroll=""auto"" style=""margin: 0px; padding: 0px;"">" & _ "<embed style='padding: 70px;' src=""" & filelocation & """ width=""50%"" height=""100%"" />" & _ "</body></html>" .Document.close End With
-
تفضل هذه المحاولة مع معلمي القديم @عمر ضاحى 1.accdb
