لینک کردن اکسس با اتوکد

[ahmadi110]

سلام دوستان عزیز
میخواستم بدانم چگونه ممکن است رکوردهای اکسس را با مختصات روی اتوکد لینک کرد

باتشکر قبلی از کمک شما:تشویق::تشویق::تشویق:

[ahmadi110]

کسي نيست کمک کنه

[Abbas Amiri]

سلام دوستان عزیز
میخواستم بدانم چگونه ممکن است رکوردهای اکسس را با مختصات روی اتوکد لینک کرد

باتشکر قبلی از کمک شما:تشویق::تشویق::تشویق:
سلام
بااینکه من در Vba اتوکد تجربیاتی دارم با این حال متوجه منظور شما نمیشوم . دقیقتر بیان کنید.

[ahmadi110]

سلام دوست عزیز
من میخواهم به هر رکورد خاص از یک تیبل یک مکان بر روی نقشه اتوکد نظیر کنم تا با انتخاب آن رکورد نقطه نظیر آن بر روی نقشه اتوکد مشخص شود
با تشکر

[RESMAILY]

به نام خدا
با سلام. با اجازه اقای امیری، فکر کنم دوستمان درواقع می خواهند از درون اتوکد، بانک آکسس را صدا بزنند و ظاهرا این کار شدنی هم است. منتها به کمک اکشن ها و اسکریپت های خود اتوکد. شاید سوال در فروم های مربوط به اتوکد طرح شود پاسخ لازم دریافت گردد.

[Abbas Amiri]

سلام دوست عزیز
من میخواهم به هر رکورد خاص از یک تیبل یک مکان بر روی نقشه اتوکد نظیر کنم تا با انتخاب آن رکورد نقطه نظیر آن بر روی نقشه اتوکد مشخص شود
با تشکر

سلام
برای ارتباط با بانک اکسس در محیطهای VB دیگر راههای مختلفی است ازجمله روش زیر


Sub ConnectAccess(DbPath As String, TableName As String)
' Add Microsoft DAO 3.6 Object Library
' Microsoft Access 1x.0 Object Library

Dim rs As DAO.Recordset
Dim objAccess As Access.Application
Set objAccess = CreateObject("Access.Application")
If Len(Dir(DbPath)) = 0 Then
MsgBox "مسیر فایل صحیح نیست"
Exit Sub
End If
objAccess.OpenCurrentDatabase DbPath
Set rs = objAccess.CurrentDb.OpenRecordset(TableName)
'Type your code here

Set rs = Nothing
Set objAccess = Nothing
End Sub


منظورتان از مشخص کردن چیست ؟ مثلا زوم کردن روی آن نقطه.