د.كاف يار

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

تفضل هذا المثال

DataForServer.zip

جرب هذا التعديل

الدائن و المدين.zip

تفضل 

[TexBox1].ForeColor = RGB(0, 0, 128)      '   التحكم بلون الخط
[TexBox1].FontBold = False       ' عرض الخط عادي
[TexBox1].FontBold = True       ' عرض الخط سميك

هذا موقع لمكتبة الألوان مفيد جدا مكتبة الألوان RGB

تفضل التعديل

مساعدات مرضية جديد.accdb

في المعيار ضع التالي

Like "*" & "خصم" & "*"

مرفق الملف بعد التعديل

1042371728_RubberSalse.zip

تفضل التعديل

UP_PRICE.zip

تفضل هذا الكود 

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

تفضل هذه المحاولة

timetable 2022.accdb

جرب هذي الطريقة

TempVar!EmpNameTemp=Me.cbo123.Column(2)

جرب هذا التعديل

تقسيم.zip

2 دقائق مضت, ابو عبد الرحمن العراقي said:

دكتورنا العزيز @د.كاف يار عمل راقي ورهييب عاشت الايادي ولو تكرمت وتفضلت علي انه في حالة الملف يحتوي على رقم 4999 اسم وانا في حالة كتبت 2500 للملف الاول باقي العدد يتم تصديره للملف الثاني اقصد الملف الاخير يصبح متغير او متتم اذا كانت الاسماء 4999 الملف الكلي انا وضعت 2500 الملف الاول الباقي يذهب للملف الثاني وجزيييل الشكر

و هذا فعلا متبع

قم بالتجربة و قارن العدد

تفضل هذا التعديل

فقط ضع عدد الاسماء لكل ملف و اضغط تصدير

تقسيم.zip

تفضل هذه المحاولة

للحصول على نتيجة الفصل الأول 

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

تفضل جرب هذا التعديل

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

فكرة اكثر من رائعة 

شكرا لك اخي الكريم استمر في تقديم عطائك

كلمة مبدع قليلة جدا جدا ..

بارك الله في علمك و نفع به العباد

فعلا هنا يطلق على هذه الفكرة ابداع لا حدود له و تفكير خارج الصندوق

تفضل هذه المشاركة بلغة 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

تفضل

Dim FolderName as String,BillText as String
FolderName=Format(Now, "yyyy-mm-dd")  'اسم المجلد
BillText= [حقل رقم الفاتورة]  
Call ExortPDF("فاتورة", FolderName, BillText)

تفضل

ضع الكود في اي مكان داخل محرر الأكواد

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"))

سيتم انشاء مجلد و سيتم حفظ الفواتير بتاريخ اليوم الحالي

تفضل جرب

Course certificates -Mohd+Moosa.zip

ما افهم شرحك اخي حاول التوضيح اكثر

لقد قمت بالتجربة و الامور تقريبا طيبة

توجد فروقات في معيار الاستعلام بين الاكسس و قاعدة بيانات 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

لكن راح تواجه بطئ بهذي الطريقة

وتفضل هذه محاولة اخرى

MEDATA.zip

تفضل التعديل

تم انشاء جدول للأقسام ( يجب فتح قسم جديد لإضافة الموظفين )

تم انشاء جدول للموظفين ( يجب اضافة الموظفين لتوزيع الحوافز )

خطوات الاستخدام كما هو مبين في الصورة

نصيحة لك 💡

لكي تتعلم يجب ان تحاول و عندما تجد صعوبة في المحاولة الجأ للمنتدى و اطرح سؤالك بوضوح

هنا سأتوقف عن الاجابة لإستفسار بخصوص هذا الموضوع لكي أترك لك المجال للمحاولة 

شكرا لك

Microsoft Access3.zip