Access Database VBA programmering

Undvig venligst at spamme eksperten med identiske spörgsmål. Det er nu tredje spörgsmål med samme indhold du har oprettet.

https://docs.microsoft.com/en-us/office/vba/api/access.screen.mousepointer
Not sure if vertical and horizontal size will do this

I suggest you close the question you have in vba, its not allowed to have same question in multiple categories :-)

Helt enig med Michael og Terry omkring spg i flere grupper. Det er flere år siden jeg sidst var på eksperten, og jeg havde glemt etiketten.
Tanketorsk og forglemmelse :-(
Tak
Anders

"Not sure if vertical and horizontal size will do this "

Mouse pointer = 7 eller 8 får cursor til at være "to-vejs" pil enten vertical eller horizontal, så den duer ikke
VH Anders

Efter heftig søgning viser det sig, at den tynde lodrette "stav", som står og blinker i et tekstfelt med focus kaldes Caret. Det er jo så retteligen tykkelsen på den, jeg ønsker at ændre med vba.
VH Anders

Der er noget her:

http://www.vbforums.com/showthread.php?403463-RESOLVED-How-To-Change-Caret-(Insertion)-Cursor

have you tried the code?

Hej
Til Terry - ja koden er testet og virker ikke efter hensigten - men tak
Til Falster -  Ja det ser ud til at være noget - jeg roder lidt med det og vender tilbage.
VH Anders

God morgen der
Efter lidt tilretninger og ekspirimenteren virker nedenstående præcis, som jeg ønsker. Så kan jeg beslutte hvilke(n) tekstbokse, der skal ændres caret i. Det er perfekt.
Jeg har godkendt Falsters link
Tak for hjælpen
Anders

Option Compare Database
Private Declare Function CreateCaret Lib "user32" (ByVal hwnd As Long, ByVal hBitmap As Long, ByVal nWidth As Long, ByVal nHeight As Long) As Long
Private Declare Function GetFocus Lib "user32" () As Long
Private Declare Function ShowCaret Lib "user32" (ByVal hwnd As Long) As Long
  Dim hFocus As Long
  Dim hCaret As Long

Private Sub Tekst0_Click()
    hFocus = GetFocus()
    hCaret = CreateCaret(hFocus, 0, 10, 20)
    ShowCaret hFocus
End Sub

Private Sub Tekst0_GotFocus()
    hFocus = GetFocus()
    hCaret = CreateCaret(hFocus, 0, 10, 20)
    ShowCaret hFocus
End Sub