اذهب الي المحتوي
أوفيسنا

د.كاف يار

الخبراء
 عرض الملف الشخصي  عرض المشاركات

  • Posts

    1,681

  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    60

 نوع المحتوي 

كل منشورات العضو د.كاف يار

  1. د.كاف يار
    تمت اضافة مفتاح رئيسي للحقلين كما في الصورة
  2. د.كاف يار
    تفضل هذا المثال DataForServer.zip
  3. د.كاف يار
    جرب هذا التعديل الدائن و المدين.zip
  4. د.كاف يار
    تفضل [TexBox1].ForeColor = RGB(0, 0, 128) ' التحكم بلون الخط [TexBox1].FontBold = False ' عرض الخط عادي [TexBox1].FontBold = True ' عرض الخط سميك هذا موقع لمكتبة الألوان مفيد جدا مكتبة الألوان RGB
  5. د.كاف يار
    تفضل التعديل مساعدات مرضية جديد.accdb
  6. د.كاف يار
    في المعيار ضع التالي Like "*" & "خصم" & "*" مرفق الملف بعد التعديل 1042371728_RubberSalse.zip
  7. د.كاف يار
    تفضل التعديل UP_PRICE.zip
  8. د.كاف يار
    تفضل هذا الكود Sub RunQurey() Dim conn As ADODB.Connection, rs As ADODB.Recordset, Sql As String Dim strConnString As String, ServerAddress As String, ServerUserName As String, ServerPassword As String '============================= معلومات الدخول للسيرفر ======================= ServerAddress = "xxxx.mssql.somee.com" ServerUserName = "" ServerPassword = "" '============================= الاتصال بالسيرفر ======================= strConnString = "Provider=SQLOLEDB;Data Source=" & ServerAddress & _ ";Persist Security Info=True;User ID=" & ServerUserName & ";Password=" & ServerPassword Set conn = New ADODB.Connection conn.Open strConnString '============================= تنفيذ جملة الاستعلام الحذف او الاضافة او التحديث ======================= Sql = "" ' ضع هنا جملة الاستعلام Set rs = conn.Execute(Sql) rs.Close Set rs = Nothing End Sub
  9. د.كاف يار
    تفضل هذه المحاولة timetable 2022.accdb
  10. د.كاف يار
    جرب هذي الطريقة TempVar!EmpNameTemp=Me.cbo123.Column(2)
  11. د.كاف يار
    جرب هذا التعديل تقسيم.zip
  12. د.كاف يار
    و هذا فعلا متبع قم بالتجربة و قارن العدد
  13. د.كاف يار
    تفضل هذا التعديل فقط ضع عدد الاسماء لكل ملف و اضغط تصدير تقسيم.zip
  14. د.كاف يار
    تفضل هذه المحاولة للحصول على نتيجة الفصل الأول Public Function Semester1(StudintID As Integer) As String Dim AllMwad As Integer, Set1 As Integer, Set2 As Integer 'Set1 = ناجح / Set2= دور ثاني AllMwad = DCount("*", "Q_Final1", "ID=" & StudintID) Set1 = DCount("*", "Q_Final1", "ID=" & StudintID & " And resultt='ناجح'") Set2 = DCount("*", "Q_Final1", "ID=" & StudintID & " And resultt='دور ثان'") If AllMwad = Set1 Then Semester1 = "ناجح" Else Semester1 = "دور ثان" End If Debug.Print Semester1 End Function و للحصول على نتيجة الفصل الثاني Public Function Semester2(StudintID As Integer) As String Dim AllMwad As Integer, Set1 As Integer, Set2 As Integer AllMwad = DCount("*", "Q_Final2", "ID=" & StudintID) Set1 = DCount("*", "Q_Final2", "ID=" & StudintID & " And resultt='ناجح'") Set2 = DCount("*", "Q_Final2", "ID=" & StudintID & " And resultt='راسب'") If AllMwad = 0 Then Semester2 = "لم يختبر" ElseIf AllMwad = Set1 Then Semester2 = "ناجح" ElseIf Set2 < 3 Then Semester2 = "مكمل" ElseIf Set2 > 3 Then Semester2 = "باقٍ للإعادة" End If Debug.Print Semester2 End Function و للاستدعاء كما يلي نتيجة الفصل الأول Call Semester1([ID]) نتيجة الفصل الثاني Call Semester2([ID]) مرفق الملف بعد التعديل Data_Base.zip
  15. د.كاف يار
    تفضل جرب هذا التعديل numberfield = Me.fash Dim A As String, MsgTitle As String, MsgBody As String MsgBody = "هذا الفسح موجود من سابق وللتاكد سيتم عرض بياناته الان" MsgTitle = "رسالة تحـــزيرية" A = DLookup("[INVOICENO]", "اشعار شحن بضاعة", "[INVOICENO]=" & Me.INVOICENO & _ " AND [invoicekind]= '" & Me.INVOICEKIND & "'AND [brnchNo]= '" & Me.brnchNo & "' ") If Not (IsNull(A)) Then If MsgBox(MsgBody, vbCritical + vbMsgBoxRight + vbYesNo, MsgTitle) = vbYes Then Cancel = True Me.Undo DoCmd.FindRecord numberfield End If End If
  16. د.كاف يار
    فكرة اكثر من رائعة شكرا لك اخي الكريم استمر في تقديم عطائك
  17. د.كاف يار
    كلمة مبدع قليلة جدا جدا .. بارك الله في علمك و نفع به العباد فعلا هنا يطلق على هذه الفكرة ابداع لا حدود له و تفكير خارج الصندوق
  18. د.كاف يار
    تفضل هذه المشاركة بلغة html Dim db As DAO.Database, rs As DAO.Recordset Dim sFile As String, FSO As Object, oFile As Object, HtmlText As String Dim oFSO As Object, oFolder As Object, i As Integer, x As String HtmlText = "<!DOCTYPE html><html><head><meta charset='utf-8' /><title></title>" HtmlText = (HtmlText) & "<style>.cursor {cursor: pointer;}.hover-shadow:hover {box-shadow: 0 4px 8px 0 rgba(0, 0, 0, 0.2), 0 6px 20px 0 rgba(0, 0, 0, 0.19);}.div {padding:10px;text-align:center;float:left;margin-left:1%;width:21%;height:133px;}</style></head><body>" Set oFSO = CreateObject("Scripting.FileSystemObject") Set oFolder = oFSO.GetFolder(CurrentProject.Path & "\Images") Set rs = CurrentDb.OpenRecordset("SELECT * FROM Link where ID=" & ID) If Not rs.BOF And Not rs.EOF Then rs.MoveFirst While (Not rs.EOF) x = x & vbNewLine & "<div class='div'><img class='hover-shadow cursor' src='" & rs.Fields(1) & "' style='width:100%;height:133px;'><div>" & rs.Fields(2) & "</div></div>" rs.MoveNext Wend End If rs.Close Set rs = Nothing HtmlText = (HtmlText) & x & "</body></html>" sFile = CurrentProject.Path & "\" & ID & ".html" Set FSO = CreateObject("Scripting.FileSystemObject") Set oFile = FSO.CreateTextFile(sFile) oFile.WriteLine HtmlText oFile.Close Set FSO = Nothing Set oFile = Nothing Me.WebBrowser257.ControlSource = "=""" & sFile & """" Me.WebBrowser257.Object.Silent = True WebBrowser257.Visible = True images.zip
  19. د.كاف يار
    تفضل Dim FolderName as String,BillText as String FolderName=Format(Now, "yyyy-mm-dd") 'اسم المجلد BillText= [حقل رقم الفاتورة] Call ExortPDF("فاتورة", FolderName, BillText)
  20. د.كاف يار
    تفضل ضع الكود في اي مكان داخل محرر الأكواد Sub ExortPDF(ReportName As String, FldrName As String, NewFileName As String) On Error GoTo ErrH Dim fso As Object, FldrPath As String: Set fso = CreateObject("scripting.filesystemobject") FldrPath = CurrentProject.Path & "\" & FldrName If Not fso.FolderExists(FldrPath) Then: fso.createfolder (FldrPath) DoCmd.OutputTo acOutputReport, ReportName, _ "PDF", FldrPath & "\" & NewFileName & ".pdf", _ False, "", , acExportQualityPrint Exit Sub ErrH: MsgBox "Opes Erorr" & vbNewLine & vbNewLine & "Eror Number :" & " ( " & Err.Number & " )" & vbNewLine _ & vbNewLine & "Eror Description :" & vbNewLine & _ Err.Description, vbCritical + vbOKOnly, "Err" End Sub و في ازرار الحفظ ضع الكود التالي Call ExortPDF("فاتورة", "BillsFolder", Format(Now, "yyyy-mm-dd")) سيتم انشاء مجلد و سيتم حفظ الفواتير بتاريخ اليوم الحالي
  21. د.كاف يار
    تفضل جرب Course certificates -Mohd+Moosa.zip
  22. د.كاف يار
    ما افهم شرحك اخي حاول التوضيح اكثر لقد قمت بالتجربة و الامور تقريبا طيبة
  23. د.كاف يار
    توجد فروقات في معيار الاستعلام بين الاكسس و قاعدة بيانات SQL تفضل هذا هو المعيار بالشكل الصحيح Private Sub PlanSearchBox_AfterUpdate() Dim str_txt As String str_txt = PlanSearchBox.Value [PlansListSubForm].Form.Filter = "PlanName Like '%" & str_txt & "%'" [PlansListSubForm].Form.FilterOn = True End Sub لكن راح تواجه بطئ بهذي الطريقة
  24. د.كاف يار
    وتفضل هذه محاولة اخرى MEDATA.zip
  25. د.كاف يار
    تفضل التعديل تم انشاء جدول للأقسام ( يجب فتح قسم جديد لإضافة الموظفين ) تم انشاء جدول للموظفين ( يجب اضافة الموظفين لتوزيع الحوافز ) خطوات الاستخدام كما هو مبين في الصورة نصيحة لك 💡 لكي تتعلم يجب ان تحاول و عندما تجد صعوبة في المحاولة الجأ للمنتدى و اطرح سؤالك بوضوح هنا سأتوقف عن الاجابة لإستفسار بخصوص هذا الموضوع لكي أترك لك المجال للمحاولة شكرا لك Microsoft Access3.zip
×
×
  • اضف...

Important Information

  I accept