Alıntı:
http://www.utteraccess.com/forum/x-y-mou...23895.html


In a Module:
******************************************

Option Compare Database

Option Explicit

Public Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Public Type POINTAPI

X As Long

Y As Long

End Type

Public Function GetX() As Long

Dim n As POINTAPI

GetCursorPos n

GetX = n.X

End Function

Public Function GetY() As Long

Dim n As POINTAPI

GetCursorPos n

GetY = n.Y

End Function

******************************************
Then, this in the form's code:
*****************************************

Private Sub ImageFrame_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.txtMouseX = X / 15

Me.txtMouseY = Y / 15

End Sub

Private Sub ImageFrame_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)

Me.txtMouseX2 = X / 15

Me.txtMouseY2 = Y / 15

End Sub

******************************************

Arkadaşlar merhaba kıramayacağım birisi bana bu resimleri attı ve böyle bi program istediğini söyledi forumdaki programlara baktım yalnız onlar çok profesyonel şeyler ve ben düzenleme yapamıyorum yani bilgim yok lütfen yardımcı olun bana böyle bişey istiyorum bilgileri girecek ve yazdıracak birde gönderdiği kargoların listesini görecek bu kadar . Şimdiden herkese çok teşekkürler

Yeni yılınız kutlu olsun
Ağdaki phpmyadmin içindeki şifreli mysql veritabanına Access içinden bağlanmak istiyorum bunun ile ilgili internette iki gündür arama yapıyorum ama bir türlü çözüm bulamadım. Daha önceden bunu mutlaka birileri denemiştir diye umuyorum. Yardımlarınız için şimdiden çok teşekkür ederim

Arkadaşlar sizlerin büyük desteği ile Milli eğitim Bakanlığına bağlı okullardaki pansiyonların yönetilmesinde kullanılan temel iş ve işlemlerle ilgili programı büyük emeklerle bitirdim.  Bu kapsamda;
https://accesstr.net/ ailesine, bilgilerini esirgemeyen üstatlara;
Aynı zamanda https://access - sql.com/ ailesine çok ama çok teşekkür ediyorum.
Ve programın son halini sizlerin vasıtası ile paylaşıyorum. Umarım birilerinin işine yarar.