السلام عليكم ورحمة الله وبركاته
سؤالي عن كيفية التبديل بين حقلين في جدول عن طريق نموذج وأرفقت ملف أكسس حاولت أشرح فيه الطلب بالظبط رجيا من الله ان أجد أجابة لسؤالي عندكم
السلام عليكم ورحمة الله وبركاته
سؤالي عن كيفية التبديل بين حقلين في جدول عن طريق نموذج وأرفقت ملف أكسس حاولت أشرح فيه الطلب بالظبط رجيا من الله ان أجد أجابة لسؤالي عندكم
تم تعديل هذه المشاركة بواسطة R-o-O-t في 17 نوفمبر 2013 في 15:54
المشاهدات كتير ومفيش رد !
لو طلبي دا غير ممكن تنفيذه ياريت حد يقولي اني متعبش نفسي لأني فعلا بقالي كتير بدور على اجابات للسؤال
اخى الكريم ما تطلبه يبدو بسيطا و لكن
ساعد نفسك أولا بأن يكون
مطلوبك واضح حتى تسهل على من يريد ان يساعدك
لقد رأيت المرفق
و لكن الجدول الثانى الحقول مكررة به مرتين و لا أفهم السبب فى ذلك و هل تريد نقل البيانات الى سجل جديد ام تعديل بيانات الجدول الثانى
اشرح الموضوع بشىء من التفاصيل حتى يكون الامر مفهوم
شكرا على الرد السريع أخي أبو يوسف وعذرا على الازعاج
الحقول ليست مكررة هذا مثال على جدول يومي ( الاسامي هتتكرر كل يوم المواعيد هتتغير ) وهحاول اشرح طلبي بشكل افضل :-
هذا جدول يومي للموظفين المفروض ان الموظفين بيحضروا الى العمل على اساسه ، أحيانا بيحصل ظرف لأحد منهم ولا يستطيع الحضور فيضطر الى ان يبدل ميعاده مع حد آخر
طلبي هو form swap بيعرض فيه بيانات ال 2 موظفين اللي المفروض انهم هيبدلوا مع بعض من داخل جدول tblscheduel
swap button يقوم بعملية تبديل التاريخ والوقت لكلا الموظفين ( كل موظف فيهم هياخد وقت وتاريخ الموظف التاني ويتم تسجيلها في الجدول tblscheduel )
والعملية دي كلها تتسجل في الجدول اللي اسمه tblinteraction بالوقت والتاريخ
استخدم هذا الكود
If Val(HRID1 & "") = 0 Then
MsgBox ("Enter Agent 1")
ElseIf Val(HRID2 & "") = 0 Then
MsgBox ("Enter Agent 2")
ElseIf Project1.Value <> Project2.Value Then
MsgBox ("The 2 Agents must be at the same project")
Else
Dim id As Integer
id = Nz(DMax("ID", "tblInteraction"), 0) + 1
MsgBox id
CurrentDb.Execute "INSERT INTO tblInteraction ( ID, interactiondate, HRID1, Date1, ShiftTime1, AgentName1, Dep1, HRID2, Date2, ShiftTime2, AgentName2, Dep2 ) Values ( " & _
id & ",#" & Date & "#," & _
HRID1 & ",#" & Date1 & "#,'" & ShiftTime1 & "','" & AgentName1 & "','" & Dep1 & "'," & _
HRID2 & ",#" & Date2 & "#,'" & ShiftTime2 & "','" & AgentName2 & "','" & Dep2 & "')"
MsgBox ("saved")
End Ifشكرا أخي أبو يوسف سدد الله خطاك وجعلك دائم السعي في قضاء حوائج الناس
هذا الموضوع مغلق.