ورود

View Full Version : سوال: جانمایی در نقشه


laia56
دوشنبه 11 بهمن 1395, 15:54 عصر
با سلام و احترام
بنده در قالب برنامه اکسس که در حال حاضر در حال تهیه آن میباشم میخواهم فیلدی را ایجاد کنم که مربوط به قطعات زمینهای شرکت میباشد و میخواهم با کلیک بر روی هر قطعه ی این فیلد ،قطعه مربوطه در نقشه و پلانی که اسکن شده مشخص شود
حالا سئوالی که دارم این هست که آیا اینکار عملی هست و چگونه
saeed1234n
سه شنبه 12 بهمن 1395, 10:41 صبح
سلام

بله مي شه يك كارهايي كرد .


با تشكر نادري !
laia56
شنبه 16 بهمن 1395, 08:17 صبح
سلامبله مي شه يك كارهايي كرد .با تشكر نادري !با سلام لطفا کاملتر پاسخ بدهید
mazoolagh
دوشنبه 18 بهمن 1395, 07:11 صبح
پرسش کلی و مبهم منجر به پاسخ کلی میشه

پاسخ دقیق و کامل لازمه اش اینه که سؤال هم دقیق و معین باشه
laia56
دوشنبه 18 بهمن 1395, 12:28 عصر
با سلام لطفا ملاحظه بفرمایید نمونه فایل و نمونه نقشه
mazoolagh
سه شنبه 19 بهمن 1395, 06:11 صبح
شما هر سناریویی که تصور کنین مستلزم این هست که یک ارتباط منطقی بین هر قطعه از نقشه با رکورد متناظر با اون برقرار کنین و این کار هم دستی باید انجام بشه.
مگر اینکه نقشه توسط نرم افزاری تهیه شده باشه که خود هر قطعه رو بشه بصورت یک موجودیت باهاش کار کرد.

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

144421

144422

و البته میشه یک تصویر دیگه هم بسازین که فقط جزئیات قطعه مورد نظر رو نشون بده:

144423

حالا کافی هست تمام این تصاویر رو در یک فولدر بریزین و اسامی اونها رو هم بر اساس ID رکورد قطعه متناظر تعریف کنین:
144424

در واقع تمام کارها خارج اکسس باید انجام بشه و کل کد مورد نیاز چند خط بیشتر نیست:
Option Compare Database
Option Explicit
Private MapsFolder As String
Private Sub Form_Open(Cancel As Integer)
MapsFolder = CurrentProject.Path + "\Maps\"
Me.Map.Picture = MapsFolder + "m0.png"
End Sub
Private Sub Lands_AfterUpdate()
Me.Map.Picture = MapsFolder + "m" + Trim(Me.Lands) + ".png"
End Sub
Private Sub Zoom_Click()
Me.Map.Picture = MapsFolder + "z" + Trim(Me.Lands) + ".png"
End Sub