PDA

View Full Version : convert from acc97 to accXP لطفا توضیح دهید



najafi_1
سه شنبه 25 فروردین 1383, 09:14 صبح
یک بانک در اکسس 97 دارم و در خیلی از قسمتها از دستورات vb در آن استفاده کرده ام.
دیشب برنامه را از 97 به xp تبدیل کردم. ولی بر روی هر قسمت که کلیک میکردم اخطار میداد و خطا میگرفت.و در صورتیکه میخواستم به قسمت کدها بروم پیام میداد که dll وجود ندارد. لطفا راهنمایی کنید.

vadood
سه شنبه 25 فروردین 1383, 11:55 صبح
شما احتمالا در برنامه VBA نوشته شده از DAO یا نسخه ای قدیمی از ADO استفاده کردین که توی xp نیست. برای بررسی این که چیو ککم دارین برین به قسمت Tool->References و ببینید کدوم کتابخانه ها را ندارید (جلوش می نویسه Missing)

najafi_1
سه شنبه 25 فروردین 1383, 12:09 عصر
با سلام
مدیر محترم متشکرم
من قسمت repair office xp رو هم اجراء کردم ولی بازهم نشد!
راهنمایی بیشتر لطفاً
بازهم متشکرم

vadood
سه شنبه 25 فروردین 1383, 19:17 عصر
من قسمت repair office xp رو هم اجراء کردم ولی بازهم نشد
این درست نمی کنه! شما کاری را که من گفتم انجام دادی؟ کجاش سوال داری؟

najafi_1
چهارشنبه 02 اردیبهشت 1383, 07:47 صبح
آقا vadood محلی رو که گفتی در access xp پیدا نکردم. لطفا بیشتر راهنمایی کنید.
متشکرم.

vadood
چهارشنبه 02 اردیبهشت 1383, 08:07 صبح
این عکس ها باید گویا باشند. اول ماجول را باز کن بعد این کارا را انجام بده.

najafi_1
چهارشنبه 02 اردیبهشت 1383, 13:16 عصر
با سلام
جناب vadood از اینکه
با حوصله جواب میدهی سپاسگزارم.
به این قسمت هم سر زدم. نشد.
یعنی مشخص نیست که ما چه کم داریم؟ از طرفی فکر نکنم انتخاب همه کاری معقول باشد.

vadood
چهارشنبه 02 اردیبهشت 1383, 14:12 عصر
یعنی مشخص نیست که ما چه کم داریم؟
من که توضیح دادم.


ببینید کدوم کتابخانه ها را ندارید (جلوش می نویسه Missing)

najafi_1
شنبه 05 اردیبهشت 1383, 07:15 صبح
جناب vadood
با سلام و خسته نباشید
ببین من یه قسمت تو برنامه دارم که از() trim استفاده میکنم
به اونجا که میرسه گیر میده
البته بطور جداگانه مثلا در یک برنامه کوچک امتحان کردم توابع رو درست عمل میکنه(اگه توی xpتعریف کنیم)
تا وقتی تغییر اساسی تو قسمت vba اون ندادم عکس العمل خاصی نشون نمیده. همینکه خواستم یک پروسجر جدید تعریف کنم دیگه شروع میشه
کد مربوطه اینه
Private Sub Command37_Click()
Dim str_serch As String
str_serch = Trim(InputBox("لطفا کد جلسه را وارد کنید"))
If Len(str_serch) <> 0 Then
DoCmd.FindRecord str_serch, acAnywhere, False, acSearchAll, True, acAll, True
End If
End Sub

یه گیر سه پیچ حسابی میده
البته من پیدا نکردم که کجای اون قسمت refrences‌مینویسه missing
از صبر و حوصله ات ممنونم

vadood
شنبه 05 اردیبهشت 1383, 11:45 صبح
فایل ات رو برای من mail کن، البته قبلا دیتا هاش را کم کن و Compact کن که کوچک شه

vadood@mehr.sharif.edu

najafi_1
یک شنبه 06 اردیبهشت 1383, 11:23 صبح
جناب vadoodمهمترین قسمت فایل را به اسم db4 به میل شما ارسال کردم
از زحمتی که خواهید کشید متشکرم

najafi_1
دوشنبه 07 اردیبهشت 1383, 10:44 صبح
جناب vadood با سلام
میل شما رو خوندم
اگه برنامه پیش شما درست کار میکرد و
اگه امکان داره فایل کانورت شده اون db4 رو برام به آدرس najafi482000@yahoo.com یا n482000@gawab.com بفرست تا روی xp خودم امتحان کنم شاید ایراد از آفیس اکس پی دستگاه من باشه
متشکرم

eniak.master
جمعه 31 تیر 1384, 10:44 صبح
دوستان گرامی سلام
من هم با همچین مشکلی مواجه شده ام
البته به نوع خفن تری
یک بانک دارم که از VBA در اون استفاده کردم . زمانی که ازیک سیستم به سیتم دیگری می برم شانسی توی یک سیستم جواب می ده و در دیگری ازکدهای نوشته شده (به هر شکل ) خطا می گیره .
البته توی رفرنس ها رفتم ولی نتونستم چیزی بفهمم .
پیشاپیش از راهنماییتون متشکرم

sarami
سه شنبه 04 مرداد 1384, 00:53 صبح
عزیزم برو تو پنجره کد نویسی بعدش تو tools\referensاونجا ببین کدوم یکی از refrens ها جلوش mision زذه شده من احتمال میدم که mso.dll رو باید add koni باتشکر از vadood