אני כותב קוד ב- VBA ומשתמש בפקודה Select Case, אני רוצה שהפקודה תבדוק אם שדה מסויים מתחיל בתחביר שאני ארשום לו, יש לי בכל שכבה 4 כיתות, א1, א2, א3, א4 וכו'' אני רוצה שאם אני רושם את אחת המכיתות האלה הוא ירשום לי בשדה שזאת כיתה א ולא משנה מאיזה מספר.
לדוגמא אם בשדה KITA אני רושם א2 אז בשדה שיכבה (TEXT2) מופיע לי א
זה הקוד שרשמתי
Select Case Me.kita
Case Is =א
If Me.Text43.Enabled = False Then
Me.Text2.Enabled = True
End If
Me.Text2 = "א"
Me.Text43.Requery
אני רוצה לדעת מה התחביר שאני צריך לרשום במקרה שהשדה מתחיל באות מסוימת ולא משנה המספר

להבא תשים קוד בתוך תגי קוד.

לפי מה שאתה מתאר אתה רוצה לקבל את האות הראשונה? אתה רוצה לזהות מתי מתחילים המספרים?
אם תסביר מה אתה מנסה לעשות, אני יוכל לענות בהתאם.

לפי הדוגמא שהבאת, אני חושב שהיתכונת ל:

קוד:

 	Dim Str As String
	Str = "א2"
	Select Case Mid(Str, 1, 1)
	
	Case "א"
		MsgBox "א"
	Case "ב"
		 MsgBox "ב"
	Case "ג"
		 MsgBox "ג"
	
	End Select
 

אבל זה ממש לא יעיל. אם אתה רוצה לעבור על כל האותיות, פשוט תשתמש באותו MID...

אני רוצה לזהות את האות בלי תלות במספר שרשום אחריו, אם אני ארשום יב5 אני רוצה שהוא יזהה את זה כ- יב

תודה

תקלוט הכל למחרוזת ותעיף משמה את התווים המיותרים.

אז הפעולה שאתה רוצה לעשות, זה להעיף את כל המיספרים? או לקבל את הערך עד המיספר? ביגלל שלא ציינת במה בדיוק אתה רוצה, אז הנה דוגמא להעיף את כל המיספרים:

קוד:

	Dim Str As String
	Dim loopCont As Integer
	Str = א2"
 
	For loopCont = 0 To 9
		Str = Replace(Str, loopCont, "")
	Next
	Select Case Str
 
	Case "א"
		MsgBox "א"
	Case "ב"
		 MsgBox "ב"
	Case "ג"
		 MsgBox "ג"
 
	End Select 

הנה דוגמא לקבל את הערך עד המיספר:

קוד:

 	 Dim Str As String
	Dim intTheLeter As Integer
	Dim LoopCont As Integer
	Str = א2"
 
	For LoopCont = 0 To 9
		intTheLeter = InStr(1, Str, LoopCont)
		If intTheLeter <> 0 Then
			Str = Mid(Str, 1, intTheLeter - 1)
			Exit For
		End If
	Next
 
	Select Case Str
 
	Case "א"
		MsgBox "א"
	Case "ב"
		 MsgBox "ב"
	Case "ג"
		 MsgBox "ג"
	End Select

הקוד הראשון נותן לי קבוע א ולא משנה מה אני מכניס,
אני רוצה שאם יהיה רשום יב10 זה ירשום לי בשדה אחר מילה אחרת שאני אחליט לדוגמא לשכבת יב אני ארצה שיתן לי "בוגרים" וכו'

2 הקודים נותנים לך קבוע, כי כניראה לא שילבת אותם כמו שצריך... אני לא יכול לנחש איזה שדה יש לך ומה שמו...
תשים לב שמוגדר משתנה String בשם Str. אתה אמור לדאוג לכך, שהוא יכיל את הטקסט שנימצא בתוך השדה טקסט...

דוגמא:
בימקום השורה:

קוד:

 Str = א2" 

תיכתוב:

קוד:

 Str  = Text1.Text 

רק בימקום Text1.Text תיכתוב את השם והמאפין של השדה.