اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

سؤال في نموذج اكسس


أبو  أحمد

الردود الموصى بها

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

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

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

ارجو المساعدة سريعا لحاجة العمل وجزاكم الله خيرا 

رابط هذا التعليق
شارك

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

 

استخدم فاصل الاسطر : vBCrLf

مثلا : السطر الاول & vBCrLf & السطر الثاني

 

 

 Constant   Value               Description
 ----------------------------------------------------------------
 vbCr       Chr(13)             Carriage return
 vbCrLf     Chr(13) & Chr(10)   Carriage return–linefeed combination
 vbLf       Chr(10)             Line feed

vbCr : - return to line beginning
Represents a carriage-return character for print and display functions.

vbCrLf : - similar to pressing Enter
Represents a carriage-return character combined with a linefeed character for print and display functions.

vbLf : - go to next line
Represents a linefeed character for print and display functions.

جعفر

  • Like 1
رابط هذا التعليق
شارك

 جزاكم  الله خير 
ولكن كيف اضع الحقلين معا في حقل واحد داخل النموذج بدلا من حقلين 

24 minutes ago, jjafferr said:

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

 

استخدم فاصل الاسطر : vBCrLf

مثلا : السطر الاول & vBCrLf & السطر الثاني

 

 


 Constant   Value               Description
 ----------------------------------------------------------------
 vbCr       Chr(13)             Carriage return
 vbCrLf     Chr(13) & Chr(10)   Carriage return–linefeed combination
 vbLf       Chr(10)             Line feed

vbCr : - return to line beginning
Represents a carriage-return character for print and display functions.

vbCrLf : - similar to pressing Enter
Represents a carriage-return character combined with a linefeed character for print and display functions.

vbLf : - go to next line
Represents a linefeed character for print and display functions.

جعفر

جزاكم  الله خير 
ولكن كيف اضع الحقلين معا في حقل واحد داخل النموذج بدلا من حقلين 

 
رابط هذا التعليق
شارك

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

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

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

ارجو المساعدة سريعا لحاجة العمل وجزاكم الله خيرا 

= [data1] + [data2]

كيف اضع كل منهم في سطر
رابط هذا التعليق
شارك

بعد اذن اخى ومعلمى جعفر

فى حدث عند الخروج مثلا لمربع النص الثانى سيتم كتابه الحدث فى محرر الاكواد vba وليس كمصدر لمربع النص المراد التجميع به

text = Me.date1 & vbCrLf & Me.date2

text = اسم الحقل المراد جمع الحقلين به

تقبل تحياتى

 

رابط هذا التعليق
شارك

24 minutes ago, أحمد الفلاحجى said:

بعد اذن اخى ومعلمى جعفر

فى حدث عند الخروج مثلا لمربع النص الثانى سيتم كتابه الحدث فى محرر الاكواد vba وليس كمصدر لمربع النص المراد التجميع به


text = Me.date1 & vbCrLf & Me.date2

text = اسم الحقل المراد جمع الحقلين به

تقبل تحياتى

 

 ما زال في مشكلة ما ادري ايه السبب 
برجاء المساعدة 

تظهر هكذا 
Expr1: [text]=[Me].[date1] & [vbCrLf] & [Me].[date2]

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

السلام عليكم

احدى الطرق تعمل زرين  واخد للنسخ والاخر للصق

تحياتي

Option Compare Database
Option Explicit

Private Sub Command5_Click()
Me.kh.SetFocus 'يجب وضع التركيز على اسم الحقل المطلوب نسخه
DoCmd.RunCommand acCmdCopy 'هنا تتم عملية نسخ القيمة الموجوده في الحقل
End Sub



Private Sub Command10_Click()
Me.kh.SetFocus 'يجب وضع التركيز على اسم الحقل المطلوب لصقه
DoCmd.RunCommand acCmdPaste 'هنا تتم عملية لصق القيمة المنسوخة سابقا
End Sub

 

تم تعديل بواسطه خالد سيسكو
  • Like 1
رابط هذا التعليق
شارك

31 minutes ago, أحمد الفلاحجى said:

بعد اذن اخى ومعلمى جعفر

فى حدث عند الخروج مثلا لمربع النص الثانى سيتم كتابه الحدث فى محرر الاكواد vba وليس كمصدر لمربع النص المراد التجميع به


text = Me.date1 & vbCrLf & Me.date2

text = اسم الحقل المراد جمع الحقلين به

تقبل تحياتى

 

تمام جزاكم الله خيرا نتيجة الاستعجال كان الخطأ 

  • Like 1
رابط هذا التعليق
شارك

الحمدلله اللذى بنعمته تتم الصالحات

جزاهم الله خيرا اساتذتنا الافاضل @jjafferr و @kha9009lid

بالتوفيق اخى

تم تعديل بواسطه أحمد الفلاحجى
  • Like 1
رابط هذا التعليق
شارك

1 minute ago, أحمد الفلاحجى said:

اخى الفاضل

ممكن مثال لما لديك

تقبل تحياتى

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

رابط هذا التعليق
شارك

6 minutes ago, أحمد الفلاحجى said:

هل تقصد لديك اربع حقول مثلا

اذا كان ما تقصده


text = Me.date1 & vbCrLf & Me.date2 & vbCrLf &  Me.date3 & vbCrLf &  Me.date4

على ما فهمت من المقصود

تقبل تحياتى

نعم استاذي الكريم هذا ما قصدته فهل يمكن جعل اكثر من حقل معا اربع سطور لاربع حقول ، .. بالاضافة الى عدم  تغيير السجل يبقى حقل الجمع كما هو لا يتغير بياناته ... فما العمل ؟ 

تم تعديل بواسطه أبو أحمد
رابط هذا التعليق
شارك

لانك قمت بزياده الحقول

ولم تجعل الحدث فى الخروج من الحقل الاخير

ممكن تضع كود اخى خالد فى مصدر عنصر التحكم لحقل التجميع او تغيير الحدث كما تحب

او تضع زر امر وعند النقر يتم التجميع

=[data1] & Chr(13) & Chr(10) & [data2] & Chr(13) & Chr(10) & [data3]

بالتوفيق اخى

رابط هذا التعليق
شارك

7 minutes ago, أحمد الفلاحجى said:

لانك قمت بزياده الحقول

ولم تجعل الحدث فى الخروج من الحقل الاخير

ممكن تضع كود اخى خالد فى مصدر عنصر التحكم لحقل التجميع او تغيير الحدث كما تحب

او تضع زر امر وعند النقر يتم التجميع


=[data1] & Chr(13) & Chr(10) & [data2] & Chr(13) & Chr(10) & [data3]

بالتوفيق اخى

استاذي الكريم / جزاكم الله خيرا هذا هو المطلوب 
ولكن لي سؤال اخير كيف يمكن انسخ محتوى حقل لحقل اخر في نفس النموذج علما بأنني أريد التغيير في الحقول المنسوخ اليه وليس المنسوخ منه 
بمعنى اريد النسخ من الحقل A الى الحقل B  وعمل التغيير بعد ذلك في الحقل الثاني B 

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

رابط هذا التعليق
شارك

1 hour ago, خالد سيسكو said:

السلام عليكم

احدى الطرق تعمل زرين  واخد للنسخ والاخر للصق

تحياتي


Option Compare Database
Option Explicit

Private Sub Command5_Click()
Me.kh.SetFocus 'يجب وضع التركيز على اسم الحقل المطلوب نسخه
DoCmd.RunCommand acCmdCopy 'هنا تتم عملية نسخ القيمة الموجوده في الحقل
End Sub



Private Sub Command10_Click()
Me.kh.SetFocus 'يجب وضع التركيز على اسم الحقل المطلوب لصقه
DoCmd.RunCommand acCmdPaste 'هنا تتم عملية لصق القيمة المنسوخة سابقا
End Sub

 

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

لأسف يعطي لي  debug فما الحل جزاكم الله خيرا 

تم تعديل بواسطه أبو أحمد
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information