Page 2 of 2 FirstFirst 12
Results 16 to 23 of 23
  1. #16
    Micron is offline Virtually Inert Person
    Windows 10 Access 2016
    Join Date
    Jun 2014
    Location
    Ontario, Canada
    Posts
    10,626
    This ain't me




    Click image for larger version. 

Name:	index.jpg 
Views:	37 
Size:	7.8 KB 
ID:	47695
    The more we hear silence, the more we begin to think about our value in this universe.
    Paraphrase of Professor Brian Cox.

  2. #17
    zozzz is offline Advanced Beginner
    Windows 7 32bit Access 2010 32bit
    Join Date
    Oct 2013
    Posts
    49
    Quote Originally Posted by Micron View Post
    This ain't me

    OK
    So can you complete the sample?

  3. #18
    orange's Avatar
    orange is offline Moderator
    Windows 10 Office 365
    Join Date
    Sep 2009
    Location
    Ottawa, Ontario, Canada; West Palm Beach FL
    Posts
    16,055
    zozzz,

    Seems this may be the same or related issue to your post in 2017. If you want focused responses, then you have to provide information to help readers understand your requirement. I do note that all of your posts on this forum lack details.
    My earlier comments and micron's post 16 signals that we are not mind readers nor clairvoyant. It's your issue, forum members are trying to help. But having to guess what the issue may be; having to ask you for more info repeatedly, asking and not receiving a sample showing current input and desired output is not conducive to a meaningful, timely solution nor dialog. There may be many reasons for your hesitancy, but you have offered little.

    There are some on the forum who may seem clairvoyant. Perhaps one will read your thread and provide a solution.

  4. #19
    Join Date
    Jan 2017
    Location
    Swansea,South Wales,UK
    Posts
    2,028
    Nice spot @orange
    Please use # icon on toolbar when posting code snippets.
    Cross Posting: https://www.excelguru.ca/content.php?184
    Debugging Access: https://www.youtube.com/results?search_query=debug+access+vba



  5. #20
    zozzz is offline Advanced Beginner
    Windows 7 32bit Access 2010 32bit
    Join Date
    Oct 2013
    Posts
    49
    Nooooooooo Spammmmmmmmm PLZ

    this is for Word to word not Letter to word

  6. #21
    zozzz is offline Advanced Beginner
    Windows 7 32bit Access 2010 32bit
    Join Date
    Oct 2013
    Posts
    49
    If you don't know Did not answer

  7. #22
    zozzz is offline Advanced Beginner
    Windows 7 32bit Access 2010 32bit
    Join Date
    Oct 2013
    Posts
    49
    this function can only convert one letter. What should we do To convert all letters in the text box??


    Code:
    Public Function fcnConvert(txt As String) As String
    Dim m As String
    For t = 1 To Len(txt)
    Select Case Mid(txt, t, 1)
    
    
          Case "A":
          m = "Aa"
          
          Case "B":
          m = "Bb"
          
          Case "C":
          m = "Cc"
          
          Case "D":
          m = "Dd"
    
    
    End Select
    Next
    fcnConvert = m
    End Function
    Attached Files Attached Files

  8. #23
    Micron is offline Virtually Inert Person
    Windows 10 Access 2016
    Join Date
    Jun 2014
    Location
    Ontario, Canada
    Posts
    10,626
    Try
    Code:
    Public Function fcnConvert2(txt As String) As String
    Dim i As Integer, intAsc As Integer, n As Integer
    
    i = 1
    n = Len(txt)
    Do Until i >= n + 1
       'get ascii integer value for letter represented by i
       intAsc = Asc(Mid(txt, i, 1))
       If intAsc > 64 And intAsc < 91 Then 'if i between A (65) and Z (90) inclusive...
          'Replace letter with i+32 which is from a (96) to z (122)
          txt = Replace(txt, Chr(intAsc), Chr(intAsc) & Chr(intAsc + 32))
          'Len of txt is now a larger number so recalculate it
          n = Len(txt)
          'next capital letter is now shifted by 1 so shift by 2, not by 1
          i = i + 2
       End If
    Loop
    fcnConvert2 = txt
       
    End Function
    Result of fcnConvert2 ("ABC") is AaBbCc
    The more we hear silence, the more we begin to think about our value in this universe.
    Paraphrase of Professor Brian Cox.

Page 2 of 2 FirstFirst 12
Please reply to this thread with any new information or opinions.

Similar Threads

  1. Replies: 8
    Last Post: 08-22-2020, 01:15 PM
  2. Replies: 4
    Last Post: 09-18-2012, 05:07 AM
  3. class module vs regular module
    By Madmax in forum Modules
    Replies: 1
    Last Post: 05-01-2012, 03:44 PM
  4. Replies: 4
    Last Post: 05-16-2011, 04:58 PM
  5. Replies: 2
    Last Post: 08-03-2010, 02:47 PM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  
Other Forums: Microsoft Office Forums