الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

التبديل بين بيانات حقلين في الجدول

مغلقمُجاب
بدأه R-o-O-t في 17 نوفمبر 2013 · 5 رد · 519 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاته

 

سؤالي عن كيفية التبديل بين حقلين في جدول عن طريق نموذج وأرفقت ملف أكسس حاولت أشرح فيه الطلب بالظبط رجيا من الله ان أجد أجابة لسؤالي عندكم

arab Team.rar

تم تعديل هذه المشاركة بواسطة R-o-O-t في 17 نوفمبر 2013 في 15:54

#2

المشاهدات كتير ومفيش رد !

لو طلبي دا غير ممكن تنفيذه  ياريت حد يقولي اني متعبش نفسي  لأني فعلا بقالي كتير بدور على اجابات للسؤال

#3

اخى الكريم ما تطلبه يبدو بسيطا و لكن

ساعد نفسك أولا بأن يكون

مطلوبك واضح حتى تسهل على من يريد ان يساعدك

 

لقد رأيت المرفق

و لكن الجدول الثانى الحقول مكررة به مرتين و لا أفهم السبب فى ذلك و هل تريد نقل البيانات الى سجل جديد ام تعديل بيانات الجدول الثانى

 

اشرح الموضوع بشىء من التفاصيل حتى يكون الامر مفهوم

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#4

شكرا على الرد السريع  أخي أبو يوسف وعذرا على الازعاج

 

الحقول ليست مكررة هذا مثال على جدول يومي  ( الاسامي هتتكرر كل يوم المواعيد هتتغير ) وهحاول اشرح طلبي بشكل افضل :-

هذا جدول يومي للموظفين المفروض ان الموظفين بيحضروا الى العمل على اساسه ، أحيانا بيحصل ظرف لأحد منهم ولا يستطيع الحضور فيضطر الى ان يبدل ميعاده مع حد آخر

طلبي هو form swap  بيعرض فيه بيانات ال 2 موظفين اللي المفروض انهم هيبدلوا مع بعض من داخل جدول tblscheduel 
 

swap button يقوم بعملية  تبديل التاريخ والوقت  لكلا الموظفين ( كل موظف فيهم هياخد وقت وتاريخ الموظف التاني ويتم تسجيلها في الجدول tblscheduel  )
 

والعملية دي كلها تتسجل في الجدول اللي اسمه tblinteraction  بالوقت والتاريخ

#5 أفضل إجابة

استخدم هذا الكود

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

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#6

شكرا أخي أبو يوسف سدد الله خطاك وجعلك دائم السعي في قضاء حوائج الناس

هذا الموضوع مغلق.

مواضيع مشابهة