سلام خدمت همه دوستان و اساتید عزیز
ممنون از لطف و محبت همه شما عزیزان
ایشاللا از خجالت در بیام
کارم راه افتاد تا حدودی البته بقیه رو هم بازم مزاحم میشم
من که خیلی می خوامت مخصوصا تیلیپ ست شدن رنگ کروات با رنگ دور آستینات خیلی هنری هستش! یه چیزی بین سبک پاپ آرت و ساپ آرت ، فکر کنم بهش می گن زاغ آرت!!! ;))
دمت گرم بابا
همین زاغارت رو کم داشتیم
آقا خشایار ما گردنمون از مو باریک تره !
فقط چون دوست دارم و فکر می کردم اهل شوخی هستی باهات شوخی کردم و گرنه اصلا قصد بی احترامی نداشتم.
معذرت می خوام اگه ناراحتت کردم.
من نوکرتم
من خودم خره ...
آه ببخشید منظور اینکه دیونه این کارام
دل و قلوه چیه من واست کوبیده میزارم!! شما فقط بگو رنگ نوشابت چی باشه تا خودم برات باکس باکس وا کنم!!
mbza11 نوشته است:سلام.
با اجازه اساتید.
با توجه به اینکه این دوست عزیز گفتن مبتدی هستن و احتمال اینکه بتونن به درستی از API یا ریفرنس استفاده کنن کمه، من پیشنهاد می کنم از این کد استفاده کنه:
کد:
Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.BuildPath "FileName.Ext", "FileName-" & Year(Now) & Month(Now) & Day(Now) & ".bac"
اول که آبجکت ساخته می شه و بعد:
1- FileName: اسم دیتابیس یا فایل
2- Ext: پسوند دیتابیس یا فایل
3- Year(Now): سال جاری
4- Month(Now): ماه جاری
5- Day(Now): روز جاری
سلام به همه دوستان
گفته بودم كه اگه مشكلم رفع نشه باز ميام
اين كدي كه همشهري عزيزم داده رو تو يه cmd نوشتم كه با زدنش پشتيبان واسم بگيره و يه پيام بده كه گرفت
ولي هنوز نتونستم اين كارو بكنم يعني هنوز پشتيباني واسم نگرفته ممنون ميشم بازم كمكم كنين
سلام.
اول؛ من یه عذرخواهی به دوست عزیز alaska بدهکارم. موقع تایپ اشتباها به جای Buildpath ،CopyFile تو کد نوشته شد.
کد رو اصلاح و یه مثال هم اتچ کردم.
[
attachment=691]
Di Di نوشته است:دل و قلوه چیه من واست کوبیده میزارم!! شما فقط بگو رنگ نوشابت چی باشه تا خودم برات باکس باکس وا کنم!!
دوم؛ خیلی باحالی پسر. من دلستر می خورم، یه دونه بسه.
برای منم لطفا سالاد !
این منو رو به اشکان هم بدید انتخاب کنه !
کوبیده Byval
جوجه Unload Me
سالاد As Integer
نوشابه CopyFile
ماست Option Explicit
پیتزا As Boolean
سیستم پرداخت هم با Token Handle پیش میره
