مساعدة في ترقيم متسلسل يبدأ في كل عام مع المحافظة على الداتا القديمة

[Tarekfathallah]

السلام عليكم اخذت هذا البرنامج من الاخ الفاضل حسين عربي من موقعكم بحاجة الى مساعدة في الفورمين forms1 & forms2    اريد الترقيم يبدأ كل سنة من جديد ولو امكن من الصفحة srart اريد combobox للسنوات لانني بحاجة لارشفة اكثر من سنة مرفق ربطا القاعدة 

User : tarek 

Pass : 26180 

الادمين 

لو سمحتم بحاجة للتفاصيل لكي اتعلم حيث انها جزء من قاعدتي فقد دمجت ثلاث قواعد بيانات مع بعض : الصادر والوارد العادي والصادر والوارد السري والبرقيات الصادرة والواردة ولكم فائق الشكر 

484304066_.accdb

[أبوبسمله]

وعليكم السلام

لو بحثت قليلا فالموقع هتلاقى كل ما تبحث عنه وزياده

اتفضل اطلع على هذا الموضوع وجزاه الله خيرا معلمنا العزيز وشيخنا الجليل @ابوخليل

بالتوفيق

 

[Tarekfathallah]

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

ترقيم مع السنة وزيادة حرف.mdb

اريد تطبيق المعادلة على الفورمين في قاعدتي foerms1 & forms2

[أبوبسمله]

اتفضل اخى

ان شاء الله يكون ما تريد ولاحظ التغييرات فالكود

وجزاه الله خيرا معلمنا العزيز وشيخنا الجليل @ابوخليل

Private Sub Form_BeforeInsert(Cancel As Integer)
On Error Resume Next
Dim xLast, xNext As Integer
Dim prtyr, prtTxt As Integer
prtyr = Right(DatePart("yyyy", Date), 4)
prtTxt = CLng(Mid(DMax("ID", "tbl1"), 4, 4))
xLast = CLng(Right(DMax("ID", "tbl1", prtTxt = prtyr), 5))
If IsNull(xLast) Then
xNext = 1
Else
xNext = xLast + 1
End If
Me!ID = "ss/" & prtyr & "-" & Format(xNext, "00000")
End Sub

بالتوفيق

ترقيم مع السنة وزيادة حرف_1.mdb

[Tarekfathallah]

السلام عليك اخي الفلاحجي نحية طيبة وبعد وشكرا لردك ما اريده تطبيق المعادلة على برنامجي الذي طرحته سابقا وذلك في الفورمين forms1  & forms2 راجيا الله عز وجل ان يرفعها في ميزان حسناتك لانني حاولت تطبيقها ولم افلح 

1632452011_.accdb

واريد ان تعلمني بالتفصيل اين يجب تغيير اسم الجدول او التكست لانني ساقوم بتطبيقه على ٦ فورمات 

[أبوبسمله]

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

اخى الفاضل طارق @Tarekfathallah

هل اقوم بالتغييرات اللازمه ام لا

بالنسبه لجدول IETEM_NEM وحقل ITEM_NO رقم الوارد الذى تريد جعل هذا الترقيم به والبادىء من اليسار بالحروف فهو فى جدولك الان حقل رقمى

والترقيم الذى تريده به حروف وعلامات فيجب تغييره الى حقل نصى  هل اقوم بالتغييرات ام لا ؟

 

[محمد حسن المحمد]

6 دقائق مضت, الفلاحجى said:

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

اخى الفاضل طارق @Tarekfathallah

هل اقوم بالتغييرات اللازمه ام لا

بالنسبه لجدول IETEM_NEM وحقل ITEM_NO رقم الوارد الذى تريد جعل هذا الترقيم به والبادىء من اليسار بالحروف فهو فى جدولك الان حقل رقمى

والترقيم الذى تريده به حروف وعلامات فيجب تغييره الى حقل نصى  هل اقوم بالتغييرات ام لا ؟

 

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

أخي الحبيب أبو بسملة @الفلاحجى جزاكم الله خيرا وأحسن إليكم آمين

[أبوبسمله]

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

واياكم اخى ووالدى العزيز ابويوسف @محمد حسن المحمد واحشنى والله واعتذر عن التقصير فالسؤال عنكم فسامحنى 💐

[محمد حسن المحمد]

منذ ساعه, الفلاحجى said:

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

واياكم اخى ووالدى العزيز ابويوسف @محمد حسن المحمد واحشنى والله واعتذر عن التقصير فالسؤال عنكم فسامحنى 💐

جزاكم الله خيرا

وصلني حقي

[Tarekfathallah]

استاذنا الكبير الفلاحجي اسعد الله صباحك 

حاولت تطبيق ما تفضلت به حضرتك ولكني لم افلح ممكن حضرتك تلقي نظرة على القاعدة وتعدل عليها وتقول لي اين خطأي لو سمحت 

1024299452_b-saderwared.accdb

[أبوبسمله]

سوف اطلع ع المرفق واوافيكم بالرد

بالتوفيق

[أبوبسمله]

8 ساعات مضت, Tarekfathallah said:

استاذنا الكبير الفلاحجي اسعد الله صباحك 

حاولت تطبيق ما تفضلت به حضرتك ولكني لم افلح ممكن حضرتك تلقي نظرة على القاعدة وتعدل عليها وتقول لي اين خطأي لو سمحت 

1024299452_b-saderwared.accdb 2.71 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 3 downloads

عندك خطأين واحد فالجدول IETEM_NEM بانك جعلت الحقل ITEM_NO  نص طويل حولها لنص مختصر

ثانيا فالكود فالسطر الاخير لم تغير Me!ID

Me!id = "bw/" & prtyr & "-" & Format(xNext, "00000")

فغيره الى

Me!ITEM_NO = "bw/" & prtyr & "-" & Format(xNext, "00000")

بالتوفيق

[Tarekfathallah]

23 دقائق مضت, الفلاحجى said:

عندك خطأين واحد فالجدول IETEM_NEM بانك جعلت الحقل ITEM_NO  نص طويل حولها لنص مختصر

ثانيا فالكود فالسطر الاخير لم تغير Me!ID

Me!id = "bw/" & prtyr & "-" & Format(xNext, "00000")

فغيره الى

Me!ITEM_NO = "bw/" & prtyr & "-" & Format(xNext, "00000")

بالتوفيق

تمام كلو تمام وشكرا لسعة صدرك ورفعها في ميزان حسناتك

ولكن طرأت عندي مشكلة في زر عمل فولدر برقم الوارد او الصادر و كذلك عدم ربط forms1 مع formq_101 

هل يمكنك مساعدتي بهذه المشكلة ولك جزيل الشكر 

719181047_b-saderwared.accdb

[أبوبسمله]

8 دقائق مضت, Tarekfathallah said:

تمام كلو تمام وشكرا لسعة صدرك ورفعها في ميزان حسناتك

ولكن طرأت عندي مشكلة في زر عمل فولدر برقم الوارد او الصادر و كذلك عدم ربط forms1 مع formq_101 

هل يمكنك مساعدتي بهذه المشكلة ولك جزيل الشكر 

الحمدلله

برجاء فتح موضوع اخر لان هذا الطلب ليس له علاقه بهذا الموضوع بالتوفيق

[Eng.Qassim]

1 دقيقه مضت, الفلاحجى said:

برجاء فتح موضوع اخر لان هذا الطلب ليس له علاقه بهذا الموضوع

تمام استاذي @الفلاحجى

فهناك ممن يبحث عن هكذا موضوع ..

جزيت خيرا