تعديل فى كود الوحدة النمطية

[أبو حوده]

كنت عملت مشاركة من قبل فترة عن اظهار السجلات بجانب بعضها فى النموزج او الاستعلام وشارك اخى @kanory بوحدة نمطية تجمع كل التواريخ فى حقل واحد فاحتجتها اليوم فى نموزج مشابه لكن تظهر التواريخ من اليسار الى اليمين يعنى السنه فى بدايه التاريخ وحاولت اعكسها فلم تنجح معى ارجوا من حضراتكم المساعدة ومرفق مثال للتوضيح 

 

New Microsoft Access قاعدة بيانات (3) (1) (3).accdb

تم تعديل نوفمبر 28, 2020 بواسطه أبو حوده

[ابو جودي]

6 دقائق مضت, أبو حوده said:

كنت عملت مشاركة من قبل فترة عن اظهار السجلات بجانب بعضها فى النموزج او الاستعلام وشارك اخى @kanory بوحدة نمطية تجمع كل التواريخ فى حقل واحد فاحتجتها اليوم فى نموزج مشابه لكن تظهر التواريخ من اليسار الى اليمين يعنى السنه فى بدايه التاريخ وحاولت اعكسها فلم تنجح معى ارجوا من حضراتكم المساعدة ومرفق مثال للتوضيح 

 

New Microsoft Access قاعدة بيانات (3) (1) (3).accdb 568 kB · 0 downloads

يعنى الصح  2019-07-01  ام هذا   01-07-2019

[أبو حوده]

التاريخ الثانى هو الصح 

[ابو جودي]

30 دقائق مضت, أبو حوده said:

التاريخ الثانى هو الصح 

استدل كود الوحدة النمطية بالاتى

Public Function Horizontal(tabelle As String, Feld1 As String, Feld2 As String, valFeld1)
  Dim DB
  Dim rs As Recordset
  Set DB = CurrentDb
  Set rs = DB.OpenRecordset("select distinct " & Feld2 & " from " & tabelle _
    & " where " & Feld1 & "='" & valFeld1 & "' order by " & Feld2)
  
  Do
  
      If rs.AbsolutePosition = rs.BOF Then
        Horizontal = Format(rs(Feld2), "yyyy/mm/dd")
      Else
        Horizontal = Horizontal & " - " & Format(rs(Feld2), "yyyy/mm/dd")
      End If
    
      rs.MoveNext
      
  Loop Until rs.EOF
  
  rs.Close
  DB.Close
  Set rs = Nothing
  Set DB = Nothing
  
End Function

 

تم تعديل نوفمبر 28, 2020 بواسطه ابا جودى

[أبو حوده]

شكرا جزيلا هو دة المطلوب بالفعل ربنا يجعله فى ميزان حسناتك 

[ابو جودي]

7 دقائق مضت, أبو حوده said:

شكرا جزيلا هو دة المطلوب بالفعل ربنا يجعله فى ميزان حسناتك 

لا شكر على واجب اهلا بك