مدونة بلوجر من الصفر

Private Sub Command15_Click() Dim strSQL1, strSQL2, strSQL3 As String strSQL1 = "SELECT qrySplitName.txtName, qrySplitName.firstname, qrySplitName.secondname, qrySplitName.thirdname, qrySplitName.forthname, qrySplitName.familyname ,qrySplitName.noSpace INTO tblTemp FROM qrySplitName" strSQL2 = "DELETE Table1.* FROM Table1" strSQL3 = "INSERT INTO Table1 SELECT tblTemp.* FROM tblTemp" DoCmd.SetWarnings False DoCmd.RunSQL strSQL1 DoCmd.RunSQL strSQL2 DoCmd.RunSQL strSQL3 DoCmd.SetWarnings True Me.Requery  DoCmd.DeleteObject acTable, "tblTemp" MsgBox "تم التقسيم بنجاح", vbInformation End Sub

فى هذا الدرس سوف نستكمل مهارات التقسيم  للجمل فى الاكسيس وسبق وتم شرح الكود التالى فى 3 ملفات فيديو =========================== Attribute VB_Name = "Module1" Option Compare Database Option Explicit ================================ Function PartOfName(InName As String, NumberOfPart As Byte) As String Dim TheSpaceNumber As Byte Dim I As Integer, U As Integer InName = NoSpaces1(InName) PartOfName = "" If InName = Null Then Exit Function Do     U = I     I = InStr(I + 1, InName, " ", 1)     If I <> 0 Then         TheSpaceNumber = TheSpaceNumber + 1         If TheSpaceNumber = NumberOfPart Then Exit Do     ElseIf TheSpaceNumber + 1 = NumberOfPart Then         I = Len(InName) + 1         Exit Do     Else         Exit Function     End If Loop          PartOfName = Trim(Mid(InName, U + 1, I - U - 1)) E...

مهارة  تقسيم الإسماء دفعة واحدة   فى اكسيس =============================== اولا معرفة بعض الدوال فى اكسيس خاصة بالتعامل مع الحروف  \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ LTrim, RTrim, and Trim functions \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ إرجاع متغير (سلسلة) يحتوي على نسخة من سلسلة محددة دون مسافات بادئة (LTrim) أو مسافات زائدة (RTrim) أو مسافات بادئة وزائدة (Trim). Dim MyString, TrimString MyString = " <-Trim-> " ' Initialize string. TrimString = LTrim(MyString) ' TrimString = " <-Trim-> ". TrimString = RTrim(MyString) ' TrimString = " <-Trim-> ". TrimString = LTrim(RTrim(MyString)) ' TrimString = " <-Trim-> ". ' Using the Trim function alone achieves the same result. TrimString = Trim(MyString) ' TrimString = " <-Trim-> ". \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ Len function \\\\\\\\\\\\\\\\\\\\\\\\\\\\\ Returns a Long containing the number of characters in a stri...