תחומים - פורום חרדי מקצועי

כתבתי

אם כן פונקציה זו תספיק כפרמטר:

Public Function SqlParameter(Text As String, Optional AsNumeric As Boolean = False) If AsNumeric Then If IsNumeric(Text) Then SqlParameter = Text Exit Function End If SqlParameter = Replace(Replace(Text, "'", "''"), "", """") End Function

אבל יש לכאורה טעות בקוד - כי רק את סוג המרכאה המקיפה צריך לשכפל בשביל שישאר הטקסט נכון.
אם מקיף ' יש לשכפל רק את ' , אם מקיף " יש לשכפל רק את ".
לכן נראה לי הקוד הזה נכון יותר (זה מה שאני משתמש) - 2 פונקציות:

Public Function Sql_InsertNumeric(MyVariant As Variant) As Variant ' לפני הכנסה כשרשור טקסט לפונקציה ' DLookup ' וכדומה, או לשאילתה שאי אפשר להכניס בה פרמטרים בדרך הרגילה. ' הפונקציה הנוכחית מוודאת שאין הזרקת 'קוד זדוני' לשאילתה על ידי וידוא שמדובר במספר If IsNumeric(MyVariant) Then Sql_InsertNumeric = MyVariant Else Sql_InsertNumeric = "" End If End Function Public Function Sql_InsertString(Text As String) As String ' לפני הכנסה כשרשור טקסט לפונקציה ' DLookup ' וכדומה, או לשאילתה שאי אפשר להכניס בה פרמטרים בדרך הרגילה. ' הפונקציה הנוכחית מוודאת שאין הזרקת 'קוד זדוני' לשאילתה, ומוסיפה גרש מכל צד לציון הטסקט 'תיקנתי כאן, כי בשאילתות וכן בקוד אם מקיף את הטקסט גרש בודד אין משמעות לגרשיים ולהיפך - כשמקיפים גרשיים אין משמעות לגרש Sql_InsertString = "'" & Replace(Text, "'", "''") & "'" End Function

ולשאילתת פעולה רגילה שאפשר להשתמש בה עם פרמטרים:

Public Sub RunSqlWithParameters(TextSql As String, ParamArray TextParameters() As Variant) On Error GoTo MsgErr Dim MyQuery As QueryDef Dim TextParameter As Variant Dim NumParameter As Integer NumParameter = 0 Set MyQuery = CurrentDb.CreateQueryDef("", TextSql) For Each TextParameter In TextParameters MyQuery.parameters(NumParameter) = TextParameter NumParameter = NumParameter + 1 Next MyQuery.Execute ExitErr: Exit Sub MsgErr: MsgBox Error$ Resume ExitErr End Sub

אשמח להערות.

(השמות SQL_INSERTSTRING ו Sql_InsertNumeric לא משהו... אשמח לשמוע שם אחר. יש עדיפות שיתחיל ב SQL למציאה קלה...)

@גגד אמר באיך לפרסם רק לחרדים:

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

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

חשבתי על רעיונות אבל הם לא כל כך מעשיים:

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

תודה רבה!

אפשר שיהיו נציגי שליחה שיאמתו כל אחד עפ"י כמה פרטים, אפשר גם ת.ז. או משהו.
אולי יהיו כאן מתנדבים.............................
[תגלה בסוד מה זה?- אני אשמח לקבל למייל].
בהצלחה.

@גגד אמר באיך יוצרים שרשור טקסט באקסס:

ואני צריך תוצאה כזו בשאילתה:
אברהם אבא של יצחק אבא של יעקב אבא של (ראובן אבא של (חנוך, פלוא, חצרון, כרמי), שמעון, לוי)

@גגד האם מדובר רק תוצאה אחת בלבד? כי מההמשך נראה שאתה צריך 9 תוצאות

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

@ivrtikshoret אמר באיך לכתוב בתוך נוסח מייל קישור לשליחת מייל חוזר עם כותרת ונוסח בתוך המייל:

&body=

תודה רבה, ניסיתי, אבל לא זה בדיוק מה שרציתי.
רציתי שלמי שילחץ תפתח חלון הדו שיח כאילו לחץ על "העברה", ולא שיפתח לו שוב מייל מחדש.

@מומחה-באקסס רק לאחר אישור הקבוצה אם אני זוכר נכון

לתועלת הציבור - מצאתי מקום שמסביר בדיוק על זה:
https://developers.google.com/workspace/solutions/group-membership-form
אמנם תוספת הסבר לא תזיק... אני עדיין לומד את זה.
תודה מראש:)