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

[Tarekfathallah]

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

User : tarek 

Pass : 26180 

الادمين 

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

484304066_.accdbFetching info...

[أبوبسمله]

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

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

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

بالتوفيق

 

[Tarekfathallah]

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

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

اريد تطبيق المعادلة على الفورمين في قاعدتي 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.mdbFetching info...

[Tarekfathallah]

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

1632452011_.accdbFetching info...

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

[أبوبسمله]

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

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

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

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

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

 

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

  في 23‏/1‏/2022 at 20:38, الفلاحجى said:

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

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

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

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

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

 

Expand  

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

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

[أبوبسمله]

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

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

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

  في 23‏/1‏/2022 at 20:52, الفلاحجى said:

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

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

Expand  

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

وصلني حقي

[Tarekfathallah]

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

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

1024299452_b-saderwared.accdbFetching info...

[أبوبسمله]

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

بالتوفيق

[أبوبسمله]

  في 24‏/1‏/2022 at 07:52, Tarekfathallah said:

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

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

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

Expand  

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

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

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

فغيره الى

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

بالتوفيق

[Tarekfathallah]

  في 24‏/1‏/2022 at 16:26, الفلاحجى said:

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

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

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

فغيره الى

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

بالتوفيق

Expand  

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

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

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

719181047_b-saderwared.accdbFetching info...

[أبوبسمله]

  في 24‏/1‏/2022 at 17:55, Tarekfathallah said:

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

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

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

Expand  

الحمدلله

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

[Eng.Qassim]

  في 24‏/1‏/2022 at 18:04, الفلاحجى said:

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

Expand  

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

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

جزيت خيرا