עקסעס: הילף

די אחראים: זייער נייגעריג, אחראי, thefact

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11193
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

עקסעס: הילף

תגובהדורך פאטאקי08 » מיטוואך ינואר 02, 2008 8:07 pm

וויאזוי קען מען דורך א קווערי אריינלייגן און א ליידיגע טעיבל נומערן אין א רייע למשל פון איינס ביז טויזענט אדער פון טויזענט ביז צוויי טויזענט

און א פולע טעיבל קען מען דורך טייפן 1 און די ערשטע און אראפגיין א רעקארד אןו טייפן 2 און דערנאך אראפ און עס וועט אוטומאטיש זיך טייפן 3 און אזוי ווייטער אויף אראפ די זעלבע וועט עס ארבעטן אין די ברייט נאך מער אז דו וועסט טייפן 1 און דערנאך 3 וועט עס אוטומאטיש טייפן 5 און דערנאך 7 און אזוי ווייטער
דאס אלעס איז נאר אויב די רעקארד לעבט שוין דאס הייסט עס איז דא אנדערע פולע פיעלדס אבער איך רעד פון א נייע טעיבל

אוועטאר
פיקח
שר חמישים ומאתים
תגובות: 278
זיך איינגעשריבען אום: דינסטאג ינואר 01, 2008 6:15 pm

תגובהדורך פיקח » דאנארשטאג ינואר 03, 2008 11:44 am

לכבוד הרב פאטאקי שליט"א און אלע אנדערע בעלי מלאכה איך מוז האבן הילף מיט דעם.......
איך האב א עקסעס ד.ב. איין פאנקשטן דארט האב איך צו פרינטן טשעקס. סאו האב איך געגאגלט א קאוד צו טושין פון נאמבערס צו טעקסט כדי צו קענען אויס שרייבן $15.00 צו FIFTEEN DOLLARS וכדומה. האב איך געטראפן דעם VB קאוד און אלעס ארבעט א מחי'. נאר איין פראבלעם האב איך ווען איך לייג אריין א אמאונט וואס ענדיגט זיך מיט צען סענטס למשל 14.10 שרייבט ער עס כאילו עס איז 14. און ער לאזט עס אינגאנצען אויס, אפשר ווייסט איינער וואס איז די פראבלעם מיט דעם קאוד.

Function SpellDollar(dblValue As Double) As String
Dim centspot As Integer, dollarlen As Integer
Dim dollars As Double, Cents As Integer
Dim Hundreds As Integer, Thousands As Integer
Dim Millions As Integer, Billions As Integer
Dim centtext As String, huntext As String, thoutext As String
Dim milltext As String, billtext As String, temptext As String

If dblValue < 0.01 Then
temptext = "Zero"
Else
centspot = InStr(dblValue, ".")
If centspot > 0 Then
Cents = Right(dblValue, 2)
dollars = Left(dblValue, centspot - 1)
Else
Cents = 0
dollars = dblValue
End If

dollarlen = Len(CStr(dollars))

If dollarlen > 0 Then
Select Case dollars
Case 1 To 999
Select Case dollars
Case 1 To 9
Hundreds = Right(dollars, 1)
Case 10 To 99
Hundreds = Right(dollars, 2)
Case 100 To 999
Hundreds = Right(dollars, 3)
End Select
Case 1000 To 999999
Hundreds = Right(dollars, 3)
Select Case dollars
Case 1000 To 9999
Thousands = Left(dollars, 1)
Case 10000 To 99999
Thousands = Left(dollars, 2)
Case 100000 To 999999
Thousands = Left(dollars, 3)
End Select
Case 1000000 To 999999999
Hundreds = Right(dollars, 3)
Thousands = Mid(dollars, (dollarlen - 5), 3)
Select Case dollars
Case 1000000 To 9999999
Millions = Left(dollars, 1)
Case 10000000 To 99999999
Millions = Left(dollars, 2)
Case 100000000 To 999999999
Millions = Left(dollars, 3)
End Select
Case 1000000000 To 999999999999#
Hundreds = Right(dollars, 3)
Thousands = Mid(dollars, (dollarlen - 5), 3)
Millions = Mid(dollars, (dollarlen - 8), 3)
Select Case dollars
Case 1000000000 To 9999999999#
Billions = Left(dollars, 1)
Case 10000000000# To 99999999999#
Billions = Left(dollars, 2)
Case 100000000000# To 999999999999#
Billions = Left(dollars, 3)
End Select
End Select
End If

If Hundreds > 0 Then huntext = GetDollarString("hundreds", Hundreds)
If Thousands > 0 Then thoutext = GetDollarString("thousands", Thousands)
If Millions > 0 Then milltext = GetDollarString("millions", Millions)
If Billions > 0 Then billtext = GetDollarString("billions", Billions)

If billtext = "" Then
If milltext = "" Then
If thoutext = "" Then
If huntext = "" Then
temptext = centtext
Else
temptext = huntext & " Dollars and " & Cents & "/100"
End If
Else
temptext = thoutext & " " & huntext & " Dollars and " & Cents & "/100"
End If
Else
temptext = milltext & " " & thoutext & " " & huntext & " Dollars and " & Cents & "/100"
End If
Else
temptext = billtext & " " & milltext & " " & thoutext & " " & huntext & " Dollars and " & Cents & "/100"
End If
End If

If Right(temptext, 1) = "d" Then temptext = Left(temptext, Len(temptext) - 4)
SpellDollar = Trim(temptext)
End Function

Function GetDollarString(strPart As String, intPart As Integer) As String
Dim strDollars As String

If intPart > 99 Then
Select Case Mid(intPart, 1, 1)
Case 1: strDollars = "One Hundred"
Case 2: strDollars = "Two Hundred"
Case 3: strDollars = "Three Hundred"
Case 4: strDollars = "Four Hundred"
Case 5: strDollars = "Five Hundred"
Case 6: strDollars = "Six Hundred"
Case 7: strDollars = "Seven Hundred"
Case 8: strDollars = "Eight Hundred"
Case 9: strDollars = "Nine Hundred"
End Select
End If

Select Case Right(intPart, 2)
Case 1: strDollars = strDollars & " One"
Case 2: strDollars = strDollars & " Two"
Case 3: strDollars = strDollars & " Three"
Case 4: strDollars = strDollars & " Four"
Case 5: strDollars = strDollars & " Five"
Case 6: strDollars = strDollars & " Six"
Case 7: strDollars = strDollars & " Seven"
Case 8: strDollars = strDollars & " Eight"
Case 9: strDollars = strDollars & " Nine"
Case 10: strDollars = strDollars & " Ten"
Case 11: strDollars = strDollars & " Eleven"
Case 12: strDollars = strDollars & " Twelve"
Case 13: strDollars = strDollars & " Thirteen"
Case 14: strDollars = strDollars & " Fourteen"
Case 15: strDollars = strDollars & " Fifteen"
Case 16: strDollars = strDollars & " Sixteen"
Case 17: strDollars = strDollars & " Seventeen"
Case 18: strDollars = strDollars & " Eighteen"
Case 19: strDollars = strDollars & " Nineteen"
Case 20: strDollars = strDollars & " Twenty"
Case 21: strDollars = strDollars & " Twenty One"
Case 22: strDollars = strDollars & " Twenty Two"
Case 23: strDollars = strDollars & " Twenty Three"
Case 24: strDollars = strDollars & " Twenty Four"
Case 25: strDollars = strDollars & " Twenty Five"
Case 26: strDollars = strDollars & " Twenty Six"
Case 27: strDollars = strDollars & " Twenty Seven"
Case 28: strDollars = strDollars & " Twenty Eight"
Case 29: strDollars = strDollars & " Twenty Nine"
Case 30: strDollars = strDollars & " Thirty"
Case 31: strDollars = strDollars & " Thirty One"
Case 32: strDollars = strDollars & " Thirty Two"
Case 33: strDollars = strDollars & " Thirty Three"
Case 34: strDollars = strDollars & " Thirty Four"
Case 35: strDollars = strDollars & " Thirty Five"
Case 36: strDollars = strDollars & " Thirty Six"
Case 37: strDollars = strDollars & " Thirty Seven"
Case 38: strDollars = strDollars & " Thirty Eight"
Case 39: strDollars = strDollars & " Thirty Nine"
Case 40: strDollars = strDollars & " Forty"
Case 41: strDollars = strDollars & " Forty One"
Case 42: strDollars = strDollars & " Forty Two"
Case 43: strDollars = strDollars & " Forty Three"
Case 44: strDollars = strDollars & " Forty Four"
Case 45: strDollars = strDollars & " Forty Five"
Case 46: strDollars = strDollars & " Forty Six"
Case 47: strDollars = strDollars & " Forty Seven"
Case 48: strDollars = strDollars & " Forty Eight"
Case 49: strDollars = strDollars & " Forty Nine"
Case 50: strDollars = strDollars & " Fifty"
Case 51: strDollars = strDollars & " Fifty One"
Case 52: strDollars = strDollars & " Fifty Two"
Case 53: strDollars = strDollars & " Fifty Three"
Case 54: strDollars = strDollars & " Fifty Four"
Case 55: strDollars = strDollars & " Fifty Five"
Case 56: strDollars = strDollars & " Fifty Six"
Case 57: strDollars = strDollars & " Fifty Seven"
Case 58: strDollars = strDollars & " Fifty Eight"
Case 59: strDollars = strDollars & " Fifty Nine"
Case 60: strDollars = strDollars & " Sixty"
Case 61: strDollars = strDollars & " Sixty One"
Case 62: strDollars = strDollars & " Sixty Two"
Case 63: strDollars = strDollars & " Sixty Three"
Case 64: strDollars = strDollars & " Sixty Four"
Case 65: strDollars = strDollars & " Sixty Five"
Case 66: strDollars = strDollars & " Sixty Six"
Case 67: strDollars = strDollars & " Sixty Seven"
Case 68: strDollars = strDollars & " Sixty Eight"
Case 69: strDollars = strDollars & " Sixty Nine"
Case 70: strDollars = strDollars & " Seventy"
Case 71: strDollars = strDollars & " Seventy One"
Case 72: strDollars = strDollars & " Seventy Two"
Case 73: strDollars = strDollars & " Seventy Three"
Case 74: strDollars = strDollars & " Seventy Four"
Case 75: strDollars = strDollars & " Seventy Five"
Case 76: strDollars = strDollars & " Seventy Six"
Case 77: strDollars = strDollars & " Seventy Seven"
Case 78: strDollars = strDollars & " Seventy Eight"
Case 79: strDollars = strDollars & " Seventy Nine"
Case 80: strDollars = strDollars & " Eighty"
Case 81: strDollars = strDollars & " Eighty One"
Case 82: strDollars = strDollars & " Eighty Two"
Case 83: strDollars = strDollars & " Eighty Three"
Case 84: strDollars = strDollars & " Eighty Four"
Case 85: strDollars = strDollars & " Eighty Five"
Case 86: strDollars = strDollars & " Eighty Six"
Case 87: strDollars = strDollars & " Eighty Seven"
Case 88: strDollars = strDollars & " Eighty Eight"
Case 89: strDollars = strDollars & " Eighty Nine"
Case 90: strDollars = strDollars & " Ninety"
Case 91: strDollars = strDollars & " Ninety One"
Case 92: strDollars = strDollars & " Ninety Two"
Case 93: strDollars = strDollars & " Ninety Three"
Case 94: strDollars = strDollars & " Ninety Four"
Case 95: strDollars = strDollars & " Ninety Five"
Case 96: strDollars = strDollars & " Ninety Six"
Case 97: strDollars = strDollars & " Ninety Seven"
Case 98: strDollars = strDollars & " Ninety Eight"
Case 99: strDollars = strDollars & " Ninety Nine"
End Select

ConstructString:
Select Case strPart
Case "cents"
GetDollarString = strDollars & "/100"
Case "hundreds"
GetDollarString = strDollars
Case "thousands"
GetDollarString = strDollars & " Thousand"
Case "millions"
GetDollarString = strDollars & " Million"
Case "billions"
GetDollarString = strDollars & " Billion"
End Select
End Function

יישר כח היילי עפרישיעיטיט

אוועטאר
thefact
שר האלפיים
תגובות: 2512
זיך איינגעשריבען אום: מיטוואך ינואר 31, 2007 3:30 pm
לאקאציע: וויליאמסבורג, ברוקלין
פארבינד זיך:

תגובהדורך thefact » דאנארשטאג ינואר 03, 2008 12:41 pm

פאטאקי08 האט געשריבן:וויאזוי קען מען דורך א קווערי אריינלייגן און א ליידיגע טעיבל נומערן אין א רייע למשל פון איינס ביז טויזענט אדער פון טויזענט ביז צוויי טויזענט איך רעד פון א נייע טעיבל

1. מאך א נייע TABLE מיט א AUTONUMBER FIELD
2. מאך א FORM מיט די DATA SOURCE די נייע TABLE
3. מאך א באטטען מיט די פאלגענדע קאוד
Private Sub Command0_Click()
Dim rs As Recordset
Set rs = Me.RecordsetClone
For i = 0 To 2000
rs.AddNew
rs.Update
Next i
End Sub
הק' משה אהרן (וועבסייט - פראפייל)
לערנט אייך אויס צו שווימען אין די טיפע וואסערן פון קאמפיוטערס

די פאקט איז, אז מ'לערנט, קען מען, און אז נישט...

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11193
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

תגובהדורך פאטאקי08 » דאנארשטאג ינואר 03, 2008 1:36 pm

שכח די פאקט איך האב ספעשל געשריבן אין באלד "קווערי"
אבער שכח פאר די קאוד עניוועי

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11193
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

תגובהדורך פאטאקי08 » דאנארשטאג ינואר 03, 2008 1:40 pm

[align=Left]If dblValue < 0.01 Then
temptext = "Zero"
Else
centspot = InStr(dblValue, ".")
If centspot > 0 Then
Cents = Right(dblValue, 2)
dollars = Left(dblValue, centspot - 1)
Else
Cents = 0
dollars = dblValue
End If

dollarlen = Len(CStr(dollars)) [/align]

לכאורה דארף דא ליגן די זאך

עס איז שווער צי ליינען ווייל דא מען קען נישט פעיסטן אין די קרעטשמע די קאוד כמו שהוא עס דרייט זיך איבער פון לינקס אויף רעכטס אפילו מיט די קרעטשמעס אלייען טול וואס איך האב יעצט געטרייעט צי טוהן ארבעט עס אויך נישט

אייגנטליך פארוואס דארפסטו דעם גאנצען קאוד עס ארבעט נישט מיט דעם בילטאין פאנקשען CONVSTR?
זיי דאס בעסער מסביר ביטע

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11193
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

תגובהדורך פאטאקי08 » דאנארשטאג ינואר 03, 2008 1:53 pm

[align=Left]If centspot > 0 Then
Cents = Right(dblValue, 2)
dollars = Left(dblValue, centspot - 1) [/align]

אויב סענטספאט איז מער ווי גארנישט דאן סעט די וועריבל "סענטס" 2 קערעטערס פון די רעכטע זייט

און ווען דער "יוזער טייפט 14.10 טייפט ער אנשטאט 14.1 ווי געוואוינט אין קוויק בוקס און דא שטעקט אפשר די פראבעלם?

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11193
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

תגובהדורך פאטאקי08 » דאנארשטאג ינואר 03, 2008 1:57 pm

ביי די וועי מעג איך ניצן דעם קאוד?
איך זע אז האסט עס דיזיינט צי קענען פרינטן טשעקס העכער א """"ביליאן"""" מיט א "ב"...

אוועטאר
פיקח
שר חמישים ומאתים
תגובות: 278
זיך איינגעשריבען אום: דינסטאג ינואר 01, 2008 6:15 pm

תגובהדורך פיקח » דאנארשטאג ינואר 03, 2008 4:35 pm

לכבוד פאטאקי
יא די קענסט עס נוצען עס איז נישט מיינס, איך האב באקומען פון דעם מחבר זיינער וואס האט עס געפויסט לטובת הציבור. יעצט איך פארשטיי נישט וואס די האסט צוריק געשריבן און וואס איך דארף טוישן, אזוי אויך האב איך קיינמאל נישט געהערט פון בילטאין פאנקשען CONVSTR וואס איז דאסץ ביטע לאז מיך וויסן, יישר כח

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11193
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

תגובהדורך פאטאקי08 » דאנארשטאג ינואר 03, 2008 5:39 pm

thefact האט געשריבן:
פאטאקי08 האט געשריבן:וויאזוי קען מען דורך א קווערי אריינלייגן און א ליידיגע טעיבל נומערן אין א רייע למשל פון איינס ביז טויזענט אדער פון טויזענט ביז צוויי טויזענט איך רעד פון א נייע טעיבל

1. מאך א נייע TABLE מיט א AUTONUMBER FIELD
2. מאך א FORM מיט די DATA SOURCE די נייע TABLE
3. מאך א באטטען מיט די פאלגענדע קאוד
Private Sub Command0_Click()
Dim rs As Recordset
Set rs = Me.RecordsetClone
For i = 0 To 2000
rs.AddNew
rs.Update
Next i
End Sub


פארוואס דארף עס זיין א אוטונומער פיעלד?
וואסי שלעכט מיט א געהעריגע נומבער פילד?

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11193
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

תגובהדורך פאטאקי08 » דינסטאג ינואר 08, 2008 5:24 pm

איך האב א טעבל מיט צוויי פילדס איינס מיטן נאמען FirstName און איינס LastName
דהיינו עס האט א ערשטע נעמען מיט א לעצטע נאמען בערך 2750 רעקארדס
עס זענען דא נעמען וואס זענען אזוי לאנג ווי פון די קרעטשמע ביז קאנארסי
און איך וויל זיי קלענער מאכען דהיינו נעמען די ערשטע נאמען און עס מאכען פאר אינישעלס
די זאך איז אז עס זענען דא ערשטע נעמען וואס האבן דריי אדער גאר פיר נעמען ווי משה יעקב זרח גימפעל פעפערקארן און אזוי אויך איז דא וואס האבן דריי ערשטע נעמען און אזוי אויך איז דא צוויי און איינס און אוודאי איז אויך דא וואס האבן אינגאנצען נישט קיין ערשטע נאמען נאר א לעצטע

איצטערט ווי אזוי קען איך מיט איין אדער מאקסימום צוויי קוועריס (אויב קען מען מיט איינס איז בעסער) צו זאגען דעם קאמפיוטער אז די אלע וואס די ערשטע נעמען צוזאמען מיט די לעצטע נעמען זענען צי לאנג זאל דער קאמפיוטער זיי מאכען די ערשטע נעמען נאר די ערשטע אויתיות

ווי אזוי מאכט מען דאס?

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11193
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

תגובהדורך פאטאקי08 » דינסטאג ינואר 08, 2008 5:41 pm

איך האב גטרייעט צו ניצן די SQL סטעיטמענט:
SELECT List.FIRST, Mid([first],1,InStr([first],' ')-InStr([first],' ')+1) & '.' AS Name1, Mid([first],InStr([first],' ')+1,1) & '.' AS Name2
FROM List;

און ער גיט מיר און איין פיעלד די ערשטע נאמען נאר די אינישעלס אןו אין די צווייטע פיעלדס נאר די צווייטע נאמען נאר די אינישעלס

אבער ביי איינעם וואס האט נאר איין נאמען קומט ארויף ביי ביידע פיעלדס די זעלבע איך ווייס נישט וויאזוי דאס ארויסציפילטרן
אויך האב איך א פראבלעם מיט איינעם וואס האט נישט קיין ערשטע נאמען קומט ארויף ביי די ערשטע פיעלד א פינטל און ביי די צווייטע פילד "ERROR"

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11193
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

תגובהדורך פאטאקי08 » מיטוואך ינואר 09, 2008 3:47 pm

סאו?

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11193
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

תגובהדורך פאטאקי08 » מיטוואך ינואר 09, 2008 3:53 pm

פאראכטן דאס:
Name1: IIf([first] Is Not Null,Mid([first],1,InStr([first],' ')-InStr([first],' ')+1) & '.')

איך ווארט פאר נאך

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11193
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

תגובהדורך פאטאקי08 » מיטוואך ינואר 09, 2008 3:56 pm

פאראכטן נאך:
Name2: IIf(InStr([first],' ')>0,Mid([first],InStr([first],' ')+1,1) & '.')

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11193
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

תגובהדורך פאטאקי08 » מיטוואך ינואר 09, 2008 3:57 pm

יעצט קומט די שווערסטע פארט דאס הייסט וויאזוי זיך איך דעם צווייטן ספעיס?

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11193
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

תגובהדורך פאטאקי08 » מיטוואך ינואר 09, 2008 4:11 pm

איך האב געמאכט עפעס פאר די דריטע חלק ערשטע נאמען אבער דא גיט ער מיר אן ERROR אויב די ערשטע נאמען איז ליידיג
Name3: IIf(InStr(InStr([first],' ')+1,[first],' ')>0,Mid([first],InStr(InStr([first],' ')+1,[first],' ')+1))

איך וועל טרייען צו ניצן די סוויטש פאנקשען אויב איינער ווייסט בעסער ביטע פאוסטן

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11193
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

תגובהדורך פאטאקי08 » מיטוואך ינואר 09, 2008 4:26 pm

פיינעל

Name3: IIf([first] Is Not Null,IIf(InStr(InStr([first],' ')+1,[first],' ')>0,Mid([first],InStr(InStr([first],' ')+1,[first],' ')+1,1) & '.'))

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11193
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

תגובהדורך פאטאקי08 » מיטוואך ינואר 09, 2008 4:35 pm

יעצט האב איך די SQL סטעיטמענט ווייסט איינער ווי אזוי איז דעפאזיט דאס?

דהיינו וויאזוי פילטעראיך עס זאל ארבעטן נאר אויף לאנגע נעמען? ערשטע מיט לעצטע צוזאמען

SELECT List.FIRST, IIf([first] Is Not Null,Mid([first],1,InStr([first],' ')-InStr([first],' ')+1) & '.') AS Name1, IIf(InStr([first],' ')>0,Mid([first],InStr([first],' ')+1,1) & '.') AS Name2, IIf([first] Is Not Null,IIf(InStr(InStr([first],' ')+1,[first],' ')>0,Mid([first],InStr(InStr([first],' ')+1,[first],' ')+1,1) & '.')) AS Name3
FROM List;

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11193
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

תגובהדורך פאטאקי08 » מיטוואך ינואר 09, 2008 4:52 pm

פאטאקי08 האט געשריבן:פאראכטן דאס:
Name1: IIf([first] Is Not Null,Mid([first],1,InStr([first],' ')-InStr([first],' ')+1) & '.')

איך ווארט פאר נאך


אדער קען מען גיין דעם גראדן וועג אנשטאט דעם קרומען וועג:
Name1: IIf([first] Is Not Null,Left([first],1) & '.')


פיינעל קווערי:
SELECT List.FIRST, IIf([first] Is Not Null,Left([first],1) & '.') AS Name1, IIf(InStr([first],' ')>0,Mid([first],InStr([first],' ')+1,1) & '.') AS Name2, IIf([first] Is Not Null,IIf(InStr(InStr([first],' ')+1,[first],' ')>0,Mid([first],InStr(InStr([first],' ')+1,[first],' ')+1,1) & '.')) AS Name3
FROM List;

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11193
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

תגובהדורך פאטאקי08 » מיטוואך ינואר 09, 2008 4:55 pm

סארי נאך נישט פיינעל
איך האב געטראפן נעמן מיט פיר ווערטער למשל משה יעקב זרח גימפל
ביטע ארויסהעלפן

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11193
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

תגובהדורך פאטאקי08 » דאנארשטאג ינואר 10, 2008 12:19 pm

מען האט געמאכט אן עקסטערע פורום פאר פראגרעמינג

פרעג איך צו וואס?

איך פרעג א נערישע פראגע און קיינער ענטפערט נישט

לחיים ולברכה
שר האלפיים
תגובות: 2549
זיך איינגעשריבען אום: דאנארשטאג פאברואר 22, 2007 1:10 pm
לאקאציע: אונטער'ן נעץ

תגובהדורך לחיים ולברכה » דאנארשטאג ינואר 10, 2008 1:15 pm

פאטאקי, מיר ווילן שטארק אויפארבייטן די ביזנעס און טעכנעלאגיע פורומס דא אין קרעטשמע. פראגרעמינג ווילן מיר אויך שטארק אויפארבייטן. אלץ הילף צו דעם אויפארבייטונג האט מען דאס צוטיילט.

אסאך הצלחה.
אם אין אני לי, אויב איך וועל נישט טוהן פאר מיינע אייגענע קינדער, מי לי, ווער וועט דאס טוהן אנשטאט מיר?

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11193
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

תגובהדורך פאטאקי08 » דאנארשטאג ינואר 10, 2008 1:20 pm

איך האב מורא אז חוץ חות איך און דו וועט קיינער נישט דא אריין טרעטן

אוועטאר
מעסטערמיינד
שר האלף
תגובות: 1515
זיך איינגעשריבען אום: זונטאג יוני 25, 2006 5:35 pm

תגובהדורך מעסטערמיינד » דאנארשטאג ינואר 10, 2008 2:10 pm

פאטאקי,

יו גאט איט ראנג, עס איז דא / עס וועט זיין, מער

אוועטאר
פאטאקי08
שר עשרת אלפים
תגובות: 11193
זיך איינגעשריבען אום: דאנארשטאג אוגוסט 09, 2007 1:30 pm
לאקאציע: בקרוב אין וואשינגטאן

תגובהדורך פאטאקי08 » דאנארשטאג ינואר 10, 2008 2:12 pm

מעסטערמיינד האט געשריבן:פאטאקי,

יו גאט איט ראנג, עס איז דא / עס וועט זיין, מער


איך רעד נישט פון צוקוקער נאר פון שרייבער


צוריק צו “מייקראסאפט עקסעל / עקסעס”

ווער איז אונליין

באנוצערס וואס דרייען זיך דא: נישטא קיין איינגעשריבענע באנוצערס און 2 געסט